Памогите решить 2,4,5 задание в программе Паскаль
Ответы
2)
program vir;
uses
crt;
var
x, y: real;
begin
writeln('Введите x (x=[2;+oo]) :');
readln(x);
if (x >= 2) then
begin
y := (4 * sqrt(x - 2)) / (sqr(sin(2 * x))) + ln(abs(x - 3) / (2.6 * x));
writeln(y);
end
else
WriteLn('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');
readln;
end.
4)
program divc;
uses
crt;
var
ch, lc, pc, pch, vch: Integer;
begin
writeln('Введите целое восьмизначное число:');
readln(ch);
if (((ch div 10000000) > 0) and ((ch div 10000000) < 10)) then
begin
pc := ch mod 10;
lc := (ch div 1000000) mod 10;
pch := lc * 10 + pc;
vch := pc * 10 + lc;
writeln('Первое число: ', pch, ' ; Второе число: ', vch, ' .');
end
else
WriteLn('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');
readln;
end.
5)
program sqr;
uses
crt;
const
pi = 3.141592;
var
S, r: Real;
begin
writeln('Введите радиус:');
readln(r);
if (r > 0) then
begin
s := 5 * r * pi;
writeln('Площадь боковой поверхности конуса равна ', s);
end
else
writeln('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');
readln;
end.
Пояснения:
Во втором задании в выражении есть корень.
А подкоренное выражение всегда больше либо равно нулю.
Отсюда и условие x>=2.
Иначе программа выдаст ошибку, связанную с этим.
Во всех программах реализована "защита от дурака". Если пользователь введет неправильные данные, то программа сообщит об этом.
Преподаватели ирформатики часто любят вводить неправильные данные, чтобы проверить вашу программу на возможные ошибки. В данных программах такие "поползновения" пресекаются.