Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл: Источник:
Скачиваний:
305
Добавлен:
04.03.2014
Размер:
36.35 Кб
Скачать

2. даны действительные числа p,q,r. Если p<q<r , то все числа заменить абсолютным значением минимального из них, если p>q>r, то те из них, которые больше 2, заменить нулями, в противном случае оставить числа без изменения.

  • Текст программы

Program number 2;

var

p, q, r: real;

begin

readln( p, q ,r);

if ( p<q) and (q<r) then

begin

q: =abs (p);

r:=abs(p);

p:=abs(p);

end.

else if (p>q) and (q>r) then

begin

If q>2 then q: =0;

If r>2 then r: =0;

If p>2 then p: =0;

end;

writeln (p, q, r);

readln;

end.

  • Исходные данные: 3,4,5 and (5,4,3); результат: 3.0000000000E+00, 3.0000000000E+00, 3.0000000000E+00, ( 0.0000000000E+00, 0.0000000000E+00, 0.0000000000E+00).

  • Блок-схема

r>2 then r:=0

Соседние файлы в папке 2 лабораторка