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]
Кц
Все
Кон
Исполнение алгоритма
N теста
| I
| Рост[i] >170
| K
| Кондидаты в команду
| 1
|
3
| +
-
+
|
2
| Кулов
Уваров
| 2
|
2
| -
-
| 0
| -
| 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.
Не нашли, что искали? Воспользуйтесь поиском:
|