Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Лекси
28.01.2022, 22:46
Информатика

Составьте программу в Паскале. Условный оператор. Ввести число А. Начертить вертикальную линию в левой части

экрана если A<0 и в правой части экрана в противном случае. Данные A=-20 (результат в левой части), А=20 (результат в правой части).
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Валерий Альбертович

uses
graphabc; // подключаем графику.
var
a : integer; // объявляем переменную целочисленного типа.
begin
writeln('Введите число:'); // вывод строки на экран.
readln(a); // считываем значение переменной.
setpenwidth(5); // устанавливаем ширину линии.
setpencolor(clRed); // устанавливаем цвет линии.
if a < 0 then // если число отрицательное.
line(20,100,20,320) // рисуем линию.
else // если число положительное, либо 0.
line(620,100,620,320); // рисуем линию.
end.