Все готовые лабы по паскалю (2 лабораторка задание 2)

Посмотреть архив целиком

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

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


Случайные файлы

Файл
175791.rtf
24680-1.rtf
18738-1.rtf
118665.rtf
143655.doc




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.