Программа на Turbo Pascal

15 ноября 2009

Программа на TP. Не сложная программа, сначала пользователю предлагают выбрать цвет текста для работы, потом тип выбора массива, после чего программа находит наибольшее, наименьшее значение, а так же сумму.

Program Vectora;

uses crt;

Const f=10;

VAR A:array[1..f] of integer;

s,i, max, min: integer;

OP, OS: char;

BEGIN

textcolor(14);

clrscr;

writeln(‘Каким цветом вы хотите что бы на экране выводился текст? 1 — Синий, 2 — Зелёный, 3 — Голубой, 4 — Красный’);

writeln(‘5 — Фиолетовый, 6 — Коричневый, 7 — Светло-серый, 8 — Тёмно серый, 9 — Ярко синий’);

readln(OS);

Case OS of

‘1’ : textcolor(1);

‘2’ : textcolor(2);

‘3’ : textcolor(3);

‘4’ : textcolor(4);

‘5’ : textcolor(5);

‘6’ : textcolor(6);

‘7’ : textcolor(7);

‘8’ : textcolor(8);

‘9’ : textcolor(9);

end;

Writeln(‘Как вводить вектора? Автоматичеки(1) или вручную(2)’);

readln(OP);

Case OP of

‘1’ :Begin

randomize;

for I:=1 to f do

A[i]:=random(50);

end;

‘2’ :Begin

for I:=1 to f do

begin

write(‘Введите элемент массива ‘, i, ‘ = ‘);

readln(A[i]);

end;

end;

end;

write(‘Вектор А: ‘);

for i:=1 to f do

begin

write(a[i], ‘ ‘);

end;

writeln;

max:=A[1];

for i:=1 to f do

if A[i]>=max then max:=a[i];

writeln(‘Максимум = ‘, max);

min:=A[1];

for i:=1 to f do

if A[i]<=min then min:=a[i];

writeln(‘Минимум= ‘, min);

s:=A[1]+a[2]+a[3];

writeln(‘Сумма первых трёх элементов = ‘, s);

readln;

END.

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя