Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Нахождение минимального значения https://www.cyberforum.ru/ turbo-pascal/ thread431436.html
Написать программу нахождения минимального значения больше нуля в последовательности вводимых целых чисел c окончанием по вводу числа "0". Прошу помочь с написанием программы
Turbo Pascal Где ошибка?
Написал программу-задача:Дана вещественная матрица D размером 8х12. Сформировать одномерный массив,состоящий из номеров столбцов,элементы ктороых образуют возрастающую последовательность.Для проверки...
Вычислить значение выражения Turbo Pascal
Перевести выражение на язык Паскаля a=(\sqrt{{b}^{2}+2}/|-c|*(1-{b}^{2}))-1
Turbo Pascal Найти количество особых элементов массива дан одномерный массив А, состоящий из N элементов(N - заданное натуральное число). Элемент Ai(i=2,N-1) назовем особым, если слева от него расположен элемент, меньше его, а справа - больший. Найти... https://www.cyberforum.ru/ turbo-pascal/ thread431361.html
Turbo Pascal сумма https://www.cyberforum.ru/ turbo-pascal/ thread431357.html
Вычислить сумму членов ряда. Суммирование осуществлять, пока разность между предыдущими и текущим значениями суммы останется больше чем 0,001. Кроме суммы, вывести на экран значения последнего...
Turbo Pascal Составить программу,которая нашла бы в интервале [1,1000] число, имеющее наибольшее количество деталей
составить программу,которая нашла бы в интервале число,имеющее наибольшее количество деталей
Turbo Pascal Решение функции, нахождение аргумента
Разработать блок-схему алгоритма и составить программу вычисления значения функции F(x) (во вложенном файле) Определить значения аргумента x (т.е. набор тестов), при которых проверяются все ветви...
Turbo Pascal Неверное чтение из файла добрый вечер понадобилось написать программку в паскале, но в нем уже несколько лет ничо не делал) так что пишу наугад возникла проблемка чтения и записи в файл program test; uses crt; type ... https://www.cyberforum.ru/ turbo-pascal/ thread431341.html
Turbo Pascal срочно помощь студенту https://www.cyberforum.ru/ turbo-pascal/ thread431329.html
Друзья, помогите, нужна срочно помощь студенту - написать программу на Паскале. Задание будет завтра утром, нужно сделать за день и по возможности чуть-чуть расказать по тексту что к чему. Будет...
Turbo Pascal Вывести символы, у которых код равен среднему арифметическому min и max код строки задание звучит следующим образом: Вывести символы у которых код равен среднему арифметическому min и max код строки. program lab4; var ch: char; SA,k1,k: integer; begin writeln('введите... https://www.cyberforum.ru/ turbo-pascal/ thread431315.html
Модератор
63895 / 47371 / 32663
Регистрация: 18.05.2008
Сообщений: 114,901
19.01.2012, 20:37 0

Заменяющую меньшее из двух данных чисел модулем разности - Turbo Pascal - Ответ 2405791

19.01.2012, 20:37. Показов 1932. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var x,y:real;
begin
writeln('Введите 2 числа');
readln(x,y);
if x<y ten
 begin
  x:=abs(x-y);
  y:=abs(x,y);
  writeln('x=',x:0:2,'  y=',y:0:2)
 end
else if y<x then
 begin
  y:=abs(x-y);
  x:=abs(x,y);
  writeln('x=',x:0:2,'  y=',y:0:2)
 end
else write('Числа равны');
readln
end.


Вернуться к обсуждению:
Заменяющую меньшее из двух данных чисел модулем разности Turbo Pascal
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2012, 20:37

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Составьте программу, заменяющую меньшее из двух данных чисел суммой
Составьте программу, заменяющую меньшее из двух данных чисел суммой, а большее 1 произведением этих...

Задача на ветвление (замена меньшего из 2-х данных чисел модулем разности...)
Составьте программу,заменяющую меньшее из 2х данных чисел модулем разности,а большее модулем...

Из двух данных чисел A и B найти меньшее
контрольный пример : данные: результат: А=20, В=30 М=20 А=20,...

Заменить из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел
Составить программу, заменяющую из двух данных чисел большее число удвоенным произведением, а...

Заменить из двух данных чисел меньшее число суммой, а большее произведением
составьте программу заменяющую из двух данных чисел меньшее число суммой а большее произведение...

Найти номера двух ближайших элементов из этого массива, т. е. элементов с наименьшим модулем разности
Дан массив размера N. Найти номера двух ближайших элементов из этого массива (т. е. элементов с...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.