Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Исполнение алгоритма
| |||
Turbo Pascal
Program Summa; Uses Crt; Type Mas = Array [1..20] of Real; Var A: Mas; i, N: Integer; S: Real; BEGIN ClrScr; {очистка экрана } Write('Введите N = '); ReadLn(N); {ввод значения N} For i: = 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S: = 0; {присваивание начального значения} For i: = 1 to N do S: = S+A[i]; {суммирование} WriteLn; WriteLn('Сумма равна ', S: 5: 1); ReadLnEND. Блок-схема
 | ||||
Пример 3. Найти наибольший элемент числового массива A = (a1, a2 ,..., aN ) и его номер.
| 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 {Ввод значений элементов массива А}beginWrite('A [ ', i, ' ] = '); ReadLn(A[i])end; Amax: = A[1]; k: =1; {Поиск максимального элемента}For i: = 2 to N doIf A[i] > Amax thenbeginAmax: = A[i]; k: = iend; WriteLn; WriteLn('Наибольший элемент', k, '-й'); WriteLn('Его значение ', Amax: 5: 1); ReadLn END. | |||||||||||||
Пример 4. В баскетбольную команду могут быть приняты студенты, рост которых превышает 170 см. Составьте список кандидатов в команду изстудентов класса.
Исполнение алгоритма
| N теста | I | Рост[i] > 170 | K | Кандидаты в команду |
| 1 | 1 2 3 | + - + | 0 1 2 | Кулов Уваров |
| 2 | 1 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; ReadLnEND.Пример 5. Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала идут положительные числа, затем нулевые, и затем отрицательные из X.
Тест
| Данные | Результат | |||
| N=7 X=(-1, 2, 0, 4, -3, -2, 0) | Y=(2, 4, 0, 0, -1, -3, -2) | |||
| . | ||||
|
|