Введите три числа и выведите их в строчку в центре экрана - Turbo Pascal
Формулировка задачи:
Задача вроде простая, но у меня ничего не выходит.
Помогите пожалуйста..
Вот задача:
Введите три числа и выведите их в строчку в центре экрана: самое большое число красным цветом, самое маленькое синим цветом, среднее по величине желтым цветом.
Решение задачи: «Введите три числа и выведите их в строчку в центре экрана»
textual
Листинг программы
Program Min_Max; uses crt; var a:array[1..3] of integer; i,min,max:integer; begin Textcolor (12); For i:=1 to 3 do Begin A[i]:=random(100); Write(A[i]:4); End; Writeln; min:=a[1]; for i:=1 to 3 do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; write(' '); for i:=1 to 3 do begin if a[i]=max then Begin textcolor(12); write(max:3); End; if a[i]=min then Begin textcolor(9); write(min:3); End; if (a[i]<>min) and (A[i]<>max) then Begin textcolor(14); write(A[i]:3); End; End; readln; end.
Объяснение кода листинга программы
- Создается программа Min_Max.
- Используется библиотека crt.
- Создается переменная типа array[1..3] of integer, названная a.
- Создаются три переменные типа integer, названные i, min и max.
- Выводится текст «Введите три числа и выведите их в строчку в центре экрана» с помощью функции Write.
- С помощью цикла for перебираются числа от 1 до 3.
- Для каждого числа выполняется следующая последовательность действий:
- присваивается значение переменной A[i] с помощью функции random(100);
- выводится значение переменной A[i] с помощью функции Write.
- переменной min присваивается минимальное значение из трех чисел;
- переменной max присваивается максимальное значение из трех чисел;
- проверяется, равно ли текущее число min или max.
- Если текущее число больше max, то max обновляется на текущее число;
- Если текущее число меньше min, то min обновляется на текущее число;
- Если текущее число не равно ни min, ни max, то выводится его значение с помощью функций Write и TextColor.
- После завершения цикла выводится символ пробела с помощью функции Write.
- Запускается цикл for заново для следующего числа.
- Повторяются шаги 6-9 для оставшихся двух чисел.
- После завершения цикла выводится символ новой строки с помощью функции Readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д