Игра «кот и мышь». играют два игрока, спрайтамис клавиатуры. внимание: чтобы котом поставьтеклавиатуру на раскладку! проверьтепрограммный код для кота на наличие ошибок.
Ответы на вопрос:
uses crt;
var x, res: real;
funcNum: byte;
begin
write('X = ');
readln(x);
writeln();
TextColor(1);
writeln(' 1 - sin(x)');
TextColor(2);
writeln(' 2 - cos(x)');
TextColor(3);
writeln(' 3 - tg(x)');
TextColor(4);
writeln(' 4 - ctg(x)');
TextColor(7);
writeln();
write('Введите номер функции: ');
readln(funcNum);
case funcNum of
1:
begin
TextColor(1);
res := sin(x);
end;
2:
begin
TextColor(2);
res := cos(x);
end;
3:
begin
TextColor(3);
res := sin(x) / cos(x);
end;
4:
begin
TextColor(4);
res := cos(x) / sin(x);
end;
end;
TextColor(7);
writeln(res);
end.
Популярно: Информатика
-
012109006609.12.2020 11:17
-
Lapatkoanna20.07.2021 04:49
-
natali3117406.02.2021 15:11
-
DontRobot01.03.2022 00:49
-
xoxoberrmi1120.06.2020 08:40
-
teeqo77710.03.2020 02:33
-
sofafomenkosofa21.04.2021 21:22
-
Hhjkklknbggfddxxg24.12.2021 01:09
-
Ааапллортдопсмтдд24.10.2020 22:26
-
КристинаКупава01.05.2023 01:33