Program D1KPxx18;
uses crt;
var
x,y,a:real;
label 1,2,3,4;
begin
4:writeln('Выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход');
read(a);
if a=1 then
goto 1;
if a=2 then
goto 2;
if a=3 then
goto 3;
1:begin
writeln('Введите "х"');
read(x);
y:=sin(x);
writeln('Синус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
2:begin
writeln('Введите "х"');
read(x);
y:=cos(x);
writeln('Косинус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
3:writeln('Пока!');
<span>end.

Программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как меню... это если я правильно понял что именно значило:"Организовать меню")))

</span>

0 0

3 года назад

С помощью азбуки Морзе можно закодировать "смайлики". Читать смайлики нужно в определённой последовательности. Определи, каким д

Сергей Мотов

<span>копировальный аппарат электрографического типа с порошковым красящим элементом - ксерокс. Первая буква = "к", смайлик для этой буквы - 2)</span>

0 0

3 года назад

Вводится следующий поток данных: 7, 2, 3, -2, 4, -7, 10, 1 напишите программу по данной блок-схеме и вычислите результат ПОМОГИТ

StanislavKuznecov [93]

Var
n,s,k,a,i:integer;
begin
Read(n);
s:=0; k:=0;
for i:=1 to n do begin
    Read(a);
    s:=s+a;
    if a mod 2=0 then Inc(k)
    end;
Writeln(s,' ',k)
end.

Результат
7 2 3 -2 4 -7 10 1
11 4

0 0

4 года назад

Прочитать ещё 2 ответа