составьте блок-схему и программу для решения следующей задачи. Введите с клавиатуры два числа: к и л. Если они положительны, то замените каждое на квадрат их суммы и выведите результаты на экран. Если все числа отрицательны, то каждое сделайте равным наименьшему и выведите результаты. Иначе, К приравняйте к 10, а Л - к 15 и выведите результаты
Answers & Comments
procedure Algorithm;
var к,л: integer;
begin
Readln(к,л);
if к>0 and л>0 then
к := (к+л)^2;
л := к;
else
if к<0 and л<0 then
if к<л then
л := к;
else
к := л;
else
к := 10;
л := 15;
end.
блок схема во вложении, надо перерисовать аккуратнее, вот сама задача на паскале:
соственно код, протестирован на паскале:
program znz;
uses crt;
var k,l, kvsum:real;
begin
clrscr;
write('Input l:');
readln(l);
write('Input k:');
readln(k);
if(k>0) and (l>0) then
begin
kvsum:=k*k+l*l;
k:=kvsum;
l:=kvsum;
end
else
begin
if(k<0) and (l<0) then
begin
if(k<l) then l:=k else k:=l;
end
else
begin
k:=10;
l:=15;
end;
end;
writeln('k=',k:0:2);
writeln('l=',l:0:2);
readln;
end.