Пример решения задачи

Индивидуальное задание

Дана ведомость учащихся, занимающихся в кружке по программированию:

Алешина Елена 5

Ковалев Иван 5

Александров Борис 4

Пашин Игорь 5

Антонова Ольга 4

Определить количество учащихся, занимающихся на 5 и число учащихся с фамилией, начинающейся на букву ‘A’.

Описание работы

1. Выберите алгоритм решения задачи

2. Выберите точность и форму представления данных

3. Выберите стандартные средства (процедуры), необходимые для решения задачи

4. Для ввода исходных данных используйте диалоговый режим. Результат решения задачи выведите на экран дисплея . Операторы в подпрограммах используются только для контроля правильности обмена данными.

5. Выберите имена основных идентификаторов. Введите текст программы, придерживаясь структуры написания текста, приведенной в типовом примере.

6. Для этого необходимо войти в программу-оболочку TP7, как указано выше. Загрузить в редактор Турбо-Паскаль новый (NEW) файл. Для этого нажмите одновременно клавиши [ALT]+[F] , установите курсор на подменю «NEW» и нажмите клавишу [ENTER].

7. Сохраните набранный текст программы. Нажмите клавишу [F2]. На запрос системы укажите, где и с каким именем будет сохранена ваша программа. Например, C:\Lr8.PAS, если программа сохраняется на жесткий диск или A:\ Lr8.PAS, если программа сохраняется на дискету.

8. После того, как программа набрана, откомпилируйте ее. Нажмите одновременно клавиши [ALT]+[F9]. Если в программе есть ошибки, то в левом верхнем углу появится сообщение об ошибке, а курсор укажет место ошибки. Если в программе ошибок нет, то появится сообщение об успешной компиляции.

9. После компиляции программу необходимо выполнить. Для этого нажмите одновременно клавиши [CTRL]+[F9]. Для просмотра результатов одновременно нажмите клавиши [ALT]+[F5].

10. Убедитесь в правильности решения задачи. Введите данные, для которых легко устно просчитать результат. Выполните программу и убедитесь в правильности полученного результата.

11. Выведите полученные результаты на печать.

Текст программы

Program Lr8;

Uses Crt ;

Const m = 10 ; { Максимальная длина фамилии}

Type

t=Record

fam : array[1 .. m] of char ;

ball : integer ;

end ;

Var spisok : t ; { Список имеет тип t }

i , k : integer ; { Параметры циклов }

sum1 : integer ; { Счетчик оценки 5 }

sum2 : integer; { Счетчик фамилий начинающихся на ‘A’}

n : integer ; { Счетчик учеников в списке }

begin

clrscr ;

sum1:= 0 ; sum2 := 0 ;

writeln('Введите число учеников : ') ;

readln(n) ;

writeln('Введите таблицу: фамилия, имя, оценка') ;

for i := 1 to n do

begin

for k := 1 to m do

read(spisok.fam[k]) ;

writeln(spisok.fam) ;

readln(spisok.ball);

writeln(spisok.ball) ;

if spisok.ball = 5 then sum1 := sum1 + 1 ;

if spisok.fam[1] = ‘A’ then sum2 := sum2 + 1 ;

end ;

writeln('Количество учеников занимающихся на 5 : ', sum1 : 3) ;

writeln(' 'Количество учеников с фамилией на букву А = ', sum2 : 3) ;

readln

end.