Составить программу по вычислению функции в turbp pascal
на скриншоте

текст программы может выглядеть следующим образом:
program lab_2-1;
uses crt; { раздел объявления внешних модулей }
label m1,m2;
var
n : integer;
x,y : real;
p: byte; {признак выполнения пунктаn1}
begin
clrscr; { очистка экрана }
riteln(‘программа вычисления функции…’);

{ вывод на экран меню }
writeln(‘++’);
writeln(‘| 1. ввод данных |’);
writeln(‘| 2. вычисление функции и вывод результатов |’);
writeln(‘| 3. завершение работы программы |’);
writeln(‘++’);
p: =0;
m1: riteln(‘введите пункт меню’);
readln(n); { ввод номера пункта меню}
case n of
1: begin { ввод данных }
m2: write(‘введите значение аргумента x=’);
readln(x)

{ проверка допустимого значения аргумента }
if x=0 then begin
riteln(‘x не может быть равным 0 по условию’) ;
goto m2; end;
p: =1; {пункт n1 выполнен}
end;
2: { вычисление значения функции }
begin
if p< > 0 then
writeln (‘данные не введены, выполните пункт n1’);
else
begin
{ операторы вычисления и вывода значения функции }
if x> 0 then y: =1/x else y: =x*x;
writeln(‘при х=’, x: 7: 2, ‘ y=’, y: 7: 2)
end;
end;
3: exit { выход из программы }
end; { end case }
goto m1;
end. { конец программы}

171

410

Посмотреть ответы 2

Ответы на вопрос:

panda4918

Информатика

4,7(31 оценок)

ответ:

user crt;

var x, y: real;

begin

clrscr;

write('введите значение функции x=');

readln(x);

if x< 0 then y: =x*x+4*x-8 else y: =1/(x*x+4*x-8);

writeln('при x=', x: 7: 2, 'y =', y: 7: 2);

end.

объяснение:

danilohca

Информатика

4,5(16 оценок)

Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real; begin writeln('введите строны первого треугольника: '); read(a1, b1, c1); writeln('введите стороны второго треугольника: '); read(a2, b2, c2); p1 : = (a1 + b1 + c1) / 2; p2 : = (a2 + b2 + c2) / 2; s1 : = sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1)); s2 : = sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2)); if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('равновеликие') else writeln('неравновеликие'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.