Форматирование текста с отступом строк - Turbo Pascal
Формулировка задачи:
Как бы сделать, чтобы коэффициенты оказались на одной строке? Или хотя бы сделать отступы от края экрана?
Пример кода:
Вывод на экран:
Ввести коэф-ты А, В, С:
5
7
-10
Два вещественных корня
Листинг программы
- Program Disk;
- uses Crt;
- var
- A, B, C; real
- begin
- CrtScr;
- writeln (‘ Ввести коэф-ты A, B, C: ‘ );
- readln (A, B, C);
- D:= Sqr (B) – 4* A * C;
- if D >= 0 then
- if D > 0 then
- writeln (‘ Два вещественных корня ‘ );
- else
- writeln (‘ Один вещественный корень ‘ );
- else
- writeln (‘ Нет вещественных корней ‘ );
- readln
- end.
Решение задачи: «Форматирование текста с отступом строк»
textual
Листинг программы
- Read(a); Read(b); ReadLn(c);
Объяснение кода листинга программы
- Строка кода начинается с Read(a);, что означает чтение переменной a из файла.
- Затем следует оператор Read(b);, который читает переменную b.
- Далее идет оператор ReadLn(c);, который читает переменную c и перемещает курсор на новую строку.
- Все три оператора выполняются последовательно, каждый считывает одну переменную.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д