Программа вкратце. Если посещал уроки то сможешь ее написать чтоб работала. В условии задачи ошибка, наверное вместо - написал плюс. y = sqrt(х+5). если x>0. пусть здесь будет так: у= sqrt(5-х). если x<0
Program radical; var x,y:integer; Begin readln(x); if ((x+5) >= 0) and ((5-х) >=0)) then begin { проверка чтобы не-было меньше нуля } if (x>0) then y = sqrt(x+5); else if (x<0) then y = sqrt(5-x); writeln('результат=', y);
end else writeln("нельзя извлечь корень из отрицательного числа");
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var r:integer; var x:real; while true do begin Write('Выберите тип единицы длины:',NewLine, '1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' ); Read(r); if r=0 then begin Writeln('Пока!'); Exit end; Write('Введите длину в этой единице: '); Read(x); case r of 1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ', x/10000,' км'); 2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ', x*1000000,' мм');; 3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ', x/1000,' км'); 4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ', x/1000000,' км'); 5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ', x/100000,' км'); end end end.
Если посещал уроки то сможешь ее написать чтоб работала.
В условии задачи ошибка, наверное вместо - написал плюс.
y = sqrt(х+5). если x>0.
пусть здесь будет так: у= sqrt(5-х). если x<0
Program radical;
var x,y:integer;
Begin
readln(x);
if ((x+5) >= 0) and ((5-х) >=0)) then begin
{ проверка чтобы не-было меньше нуля }
if (x>0) then
y = sqrt(x+5);
else if (x<0) then
y = sqrt(5-x);
writeln('результат=', y);
end
else
writeln("нельзя извлечь корень из отрицательного числа");
readln();
End.
// Внимание! Если программа не работает, обновите версию!
begin
var r:integer;
var x:real;
while true do begin
Write('Выберите тип единицы длины:',NewLine,
'1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' );
Read(r);
if r=0 then begin Writeln('Пока!'); Exit end;
Write('Введите длину в этой единице: '); Read(x);
case r of
1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ',
x/10000,' км');
2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ',
x*1000000,' мм');;
3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ',
x/1000,' км');
4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ',
x/1000000,' км');
5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ',
x/100000,' км');
end
end
end.