Предмет: Окружающий мир, автор: Katya370

помогите.куда нужно приклееть картинки?

Приложения:

Ответы

Автор ответа: sonaalieva01

1

как положили так и правильно

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Алгебра, автор: lusyaperpenova

СРОЧНО!!! 20 Балов Пожалуйста! Нужно полное решение 1,2,3,4 пожалуйста

1 год назад

Предмет: Українська мова, автор: lexysash

будь ласка, допоможіть з контрольною, терміново!! даю 65 балів

1 год назад

Предмет: География, автор: lllyka

Що лежить в основі міжнародного поділу праці

1 год назад

Предмет: История, автор: antoninavorobey0647

який вид військових підрозділів становив основу української армії

7 лет назад

Предмет: Информатика, автор: Аноним

Помогите составить программу по вычислению функции в 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. { Конец программы}

7 лет назад