2 лабораторка задание 2 (Все готовые лабы по паскалю)
Описание файла
Файл "2 лабораторка задание 2" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 2 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "2 лабораторка задание 2"
Текст из документа "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<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