Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Найти сумму элементов матрицы, которые меньше А Заданна матрица целых чисел M x N, компоненты которой могут быть и нулями. Сделать контрольный вывод матрицы на экран в естественном виде. Матрицу инициалиазуваты как константу (двумерный массив). Заданно действительное число А. Найти сумму элементов матрицы (4х3), которые меньше А !!! https://www.cyberforum.ru/ turbo-pascal/ thread365372.html	Строки (Помогите решить) Turbo Pascal Очень нужно, заранее спасибо. Выделить две группы слов: самых коротких и самых длинных. Из этих двух групп на печать вывести слова, начинающиеся и заканчивающиеся одной и той же буквой.
Turbo Pascal Создание модулей https://www.cyberforum.ru/ turbo-pascal/ thread365361.html Создать модуль содержащий в себе следующие подпрограммы : - вычисление длины отрезка,заданного координатами его концов, - проверка принадлежит ли заданная точка маршруту, - вычисление длины хорды. По заданной последовательности координат точек определить наибольшее расстояние между точками ,принадлежащими к некоторому кругу	Turbo Pascal Посчитать количество английских букв a и b в слове https://www.cyberforum.ru/ turbo-pascal/ thread365357.html 1.Если в массиве присутствуют отрицательные элементы, заменить их значения средним арифметическим массива. Подсчитать и вывести количество совпадающих элементов массива... 2. Посчитать количество английских букв a и b в слове. В случае если a>b, то необходимо удалить все b. Перевести строчные буквы в заглавные.
Turbo Pascal Циклический сдвиг влево элементов одномерного массива 2.Напишите процедуру, реализующую циклический сдвиг влево элементов одномерного массива на заданное количество позиций. В основной программе осуществите циклический сдвиг элементов массива Т(24) на 1,3 и 4 позиции. 3.Напишите процедуру, которая вставляет пробелы между каждым символов заданной строки. Выведите на дисплей текстовый файл с программой по заданной задаче, обрабатывая нечётные строки...	Turbo Pascal Написать программу которая генерирует 10 случайных чисел Написать программу которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое. https://www.cyberforum.ru/ turbo-pascal/ thread365350.html
Turbo Pascal Определить, какие виды рыб есть у каждого рыбака помогите решить задачу плиз В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить: • какие виды рыб есть у каждого рыбака; • какие рыбы есть в озере, но нет ни у одного из рыбаков. Там поидеи с помощью множеств нужно описать рыб в озере и каких рыб поймал каждый рыбак https://www.cyberforum.ru/ turbo-pascal/ thread365324.html	на отрезке от n до m Turbo Pascal на отрезке от n до m найти натуральное число имеющее наибольшее кол-во делителей.
Turbo Pascal Задача с acm.timus.ru Помогите решить задачу Условие Мой код var s:string; k:integer; c:char; https://www.cyberforum.ru/ turbo-pascal/ thread365314.html	Turbo Pascal Для заданных натуральных n и k определить, равно ли число n сумме k-ых степеней своих цифр https://www.cyberforum.ru/ turbo-pascal/ thread365311.html Для заданных натуральных n и k определить, равно ли число n сумме k-ых степеней своих цифр.
Turbo Pascal Вычислить оплату за проезд в такси Помогите пожалуйста , в школе задание дали , а я валенок кто что сможет отпишите плиз. №1 В такси одновременно сели 3 пассажира.Когда вышел первый , на счетчике было Р1 грн. , когда вышел второй - Р2 грн. Составьте алгоритм , который вычисляет , сколько заплатил каждый , если по окончании на счетчеке было Р3 грн. , а плата ща посадку - Р0 грн. №2 Написать программу которая определяет кол-во...	Turbo Pascal Программа берет файл с цветами точек и рисует изображение. Как сделать чтоб быстро грузилось? https://www.cyberforum.ru/ turbo-pascal/ thread365305.html Здравствуйте, нужно было сделать чтобы в TP можно было загрузить jpg изображения. Написал на другом языке под windows программу которая конвертирует jpg в txt файл с записными цветами точек. В ходе ее работы получается txt такого плана: размер изображения по x размер изображения по y цвета точек (x*y штук) , а вот TP код: uses crt,graph; var q,w,x,y,xqwej,yqwej,delX,delY:integer; f:...

ЛоРД_Оледжан

Программист

56 / 54 / 15

Регистрация: 23.07.2009

Сообщений: 336

12.10.2011, 21:52

Найти длину отрезков на числовой оси - Turbo Pascal - Ответ 2064718

12.10.2011, 21:52. Показов 3558. Ответов 2

Метки (Все метки)

Сообщение было отмечено Tarus как решение

Решение

Pascal

program z4; 
 uses crt; 
 var 
  A,B,C:Real; 
 Begin clrscr; 
  writeln('Vvedite A '); 
  readln(A); 
  writeln('Vvedite B '); 
  readln(B); 
  writeln('Vvedite C '); 
  readln(C); 
  writeln('AC = ',Abs(C-A):5:2); 
  writeln('BC = ',Abs(C-B):5:2); 
  writeln('Summa = ',Abs(C-A) + Abs(C-B):5:2); 
  readln 
 end.

Вернуться к обсуждению:
Найти длину отрезков на числовой оси Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.10.2011, 21:52

Готовые ответы и решения:

Даны три точки на числовой оси. Найти длины отрезков и их сумму
1 Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.

Найти длину наименьшего отрезка числовой оси, соддержащего все элементы массива
Написать процедуру (функцию) обработки массива с параметрами для заданного одномерного масива...

Указать наименьшую длину числовой оси
Дана последовательность чисел а1, а2,..., аn. Указать наименьшую длину числовой оси, содержащую все...

Указать наименьшую длину числовой оси, содержащую все числа последовательности
Дана последовательность чисел a1, a2, a3, …, an. Указать наименьшую длину числовой оси, содержащую...

	12.10.2011, 21:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.10.2011, 21:52

Помогаю со студенческими работами здесь

Указать наименьшую длину числовой оси, содержащей все элементы массива.
Помогите плизз!!! 1) Дан массив A(m). Указать наименьшую длину числовой оси, содержащей все...

Дана последовательность чисел a1, a2,…, an. Указать наименьшую длину числовой оси, содержащую все эти числа.
Дана последовательность чисел a1, a2,…, an. Указать наименьшую длину числовой оси, содержащую все...

Даны четыре точки на числовой оси A, B, C И D. найти длину пересечения отрезков AB И CD
Я только начал изучать, не могли бы подсказать метод построения решения этой задачи

На числовой прямой покрасили n отрезков. Найти длину окрашенной части числовой прямой
На числовой прямой покрасили n отрезков. Известны координаты левого и правого концов каждого...

Наверх