01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 2 лабораторка / 2 лабораторка задание 2
.doc2. даны действительные числа 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