Turbo Pascal Блок-схема

Program MaxElem;

Uses Crt;

Type Mas = Array [1..20] of Real;

Var A: Mas;

i, N: Integer;

k: Integer;

Amax: Real;

BEGIN

СlrScr;

Write('Введите N = ');

ReadLn(N);

For i:= 1 to N do {Ввод значений элементов массива А}

begin

Write('A [ ', i, ' ] = '); ReadLn(A[i]);

end;

Amax:= A[1]; k:=1; {Поиск максимального элемента}

For i:= 2 to N do

If A[i] > Amax then

begin

Amax:= A[i]; k:= i;

end;

WriteLn; WriteLn('Наибольший элемент', k, '-й');

WriteLn('Его значение ', Amax: 5: 1); ReadLn;

END.

Пример 2.3. В баскетбольную команду могут быть приняты ученики, рост которых

Превышает 170 см. Составьте список кандидатов в команду из учеников класса.

Система тестов

Алгоритмический язык

алг Баскетбол (арг цел N, арг лит таб Фам[1:N], арг вещ таб Рост[1:N], рез лит таб Канд [1:N])

нач цел i, k

k:=0

нц для i от 1 до N | запись фамилий кандидатов в таблицу Канд

если Рост[i]>170

то k:=k+1; Канд [k]:= Фам [i]

Все

Кц

если k=0

то вывод "В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ."

иначе нц для i от 1 до k

вывод Канд [i]

Кц

Все

Кон

Исполнение алгоритма

TurboPascal

Program BascetBall;

Uses Crt;

Var

SurName: Array [1..30] of String; { фамилии учеников }

Height: Array [1..30] of Real; { рост учеников }

Cand: Array [1..30] of String; { фамилии кандидатов }

NPupil, i, K: Integer; { NPupil – число учеников, K – количество зачисленных}

BEGIN

ClrScr;

Write('В КОМАНДУ ЗАЧИСЛЯЮТСЯ УЧЕНИКИ, ');

WriteLn('РОСТ КОТОРЫХ ПРЕВЫШАЕТ 170 СМ.'); WriteLn;

Write('Сколько всего учеников? ');

ReadLn(NPupil);

WriteLn('Введите фамилии и рост учеников:');

For i:= 1 to NPupil do

begin Write(i, '. Фамилия - '); ReadLn(SurName[i]);

Write(' Рост - '); ReadLn(Height[i]);

end; WriteLn;

K:=0; { Составление списка команды }

For i:= 1 to NPupil do

If Height[i]>170 then

begin K:=K+1;

Cand[K]:= SurName[i];

end;

If K=0 then WriteLn('В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ.')

else

begin WriteLn('КАНДИДАТЫ В БАСКЕТБОЛЬНУЮ КОМАНДУ:');

For i:= 1 to K do WriteLn(i, '. ', Cand[i]);

end;

ReadLn;

END.

Пример 2.4. Для заданного x вычислить

Здесь n! = 1. 2. 3.... n (читается как "n-факториал").

Тест

Данные	Результат
X=1	n=3

Алгоритмический язык

алг Сумма Ряда (арг вещ х, арг цел n, рез вещ S)

нач цел i, вещ P | P - очередное слагаемое

S:= 1; P:= 1

нц для i от 1 до n

P:= - P*x /i | получение очередного слагаемого

S:= S + P

Кц

Кон

Turbo Pascal

Program SumUp; Блок-схема

Uses Crt;

Var x, S, P: Real; {P - очередное слагаемое}

i, n: Integer;

BEGIN

ClrScr;

Write('Введите n = ');

ReadLn(n);

Write('Введите x = ');

ReadLn(x); WriteLn;

S:= 1; P:= 1;

For i:= 1 to n do

begin

P:= - P*x /i; {получение очередного слагаемого}

S:= S + P;

end;

WriteLn('О т в е т: S = ', S: 7: 3);

ReadLn;

END.

Не нашли, что искали? Воспользуйтесь поиском: