Задачи: 1. Вывести на экран строковый рисунок (Рис. 1).
2. Написать программу, которая рисует пингвина (рис.2)
3. Написать программу, которая выводит следующий рисунок (рис.3)
215
227
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! procedure lineequation(a,b: real; var x: real; var flag: integer); begin if a=0 then flag: =b=0? -2: -1 else begin x: =-b/a; flag: =0 end end; begin var a,b,x: real; write('введите a,b: '); read(a,b); var flag: =1; lineequation(a,b,x,flag); case flag of 0: writeln('x=',x); -1: writeln('решений нет') else writeln('бесконечое множество решений') end end.
Популярно: Информатика
-
ushepbegjan29.12.2022 08:14
-
makc59p0dpo228.06.2021 16:56
-
krisb46919.07.2020 17:47
-
PavelOlga12.11.2021 15:39
-
Nikstone24.05.2020 19:58
-
mashyanova30.07.2021 16:54
-
Alniri18.05.2022 05:31
-
ezek530.12.2022 09:28
-
Ven8Kedy05.02.2022 07:17
-
bersenevaksenia117.07.2020 07:27