Методические рекомендации и указания (стр. 11 )

«3», но активно выполняющих общественные поручения. Студент, имеющий

все оценки «5» получает повышенную стипендию. Признак активности – буква

«а», неактивности – буква «н». Программа составляется из расчета четырех

экзаменов и должна использовать признак 1, если студент активно выполняет

общественные поручения, или 0 – в противном случае. Признаками зачисления

на стипендию являются: 0 – отсутствие стипендии; 1-обычная стипендия; 2 –

повышенная стипендия.

Решение на языке Pascal имеет следующий вид:

Program Zapis_Stud (input, output);

Uses ort; {только для версии 5.5}

Const

Nk=4; Nst=5;

Type

Rez = array[1..nk] of integer;

Student = record

Fam: string[20];

Ekz: rez;

Srb: real;

Act: char;

Stip: integer;

End;

Grup =array[1..nst] of student;

Var

St: grup; Sum: real; I, j,: integer;

162

Begin

Clrscr; Writeln;

Writeln(‘ Программа, демонстрирующая использование записи.’);

Writeln(‘ ****** ’);

Writeln;

I:=1

Repeat { Цикл ввода студентов группы: заполнение массива}

Write (‘Введите фамилию студента:’);

Readln (st[i].fam);

For j:=1 to nk do

Begin

Write (‘ введите оценку за ‘,j,’ экзамен: ’);

Readln (st[i].ekz[j]);

End;

Write (‘ введите активность студента: ’);

Readln (st[i].act);

i:=i+1;

Writeln;

Until (i>nst);

I:=1;

Repeat { Цикл подсчета среднего балла и определении типа стипендии}

Sum:=0;

For j:=1 to nk do begin

If (st[i].ekz[j]<3) then st[i].stip:=0

Else sum:=sum+st[i].ekz[j]

End;

St[i].srb:=sum/nk;

If (st[i].srb>=5) then st[i].stip:=2;

If (st[i].srb>=4) and (st[i].srb<5) then st[i].stip:=1;

If (st[i].srb>=3) and (st[i].srb<4) then st[i].stip:=0;

If (st[i].srb>=3) and (st[i].srb<4) and (st[i].act=’1’)

Then st[i].stip:=1;

I:=i+1;

Until (i>nst);

I:=1; clrscr;

Writeln;

Writeln (‘ Результаты начисления ‘);

Writeln;

Writeln (‘ Ф.И.О. Средний балл Активность Отметка о начислении‘);

Writeln (‘ -- ‘);

Reperat {‘ Цикл вывода результатов на экран}

case sti, stip of

O: begin

Writeln (‘ ‘, st i. fam, ‘ ‘, sti. srb: 4:2, ‘ ‘, sti. act,

‘стипендия не начисляется’);

163

end;

1: begin

writeln (‘ ‘, sti. fam, ‘ ‘, sti.srb: 4: 2, ‘ ‘, sti.act,

начислена обычная стипендия);

end;

2: begin

writeln (‘ ‘, sti. fam, ‘ ‘, sti.srb: 4: 2, ‘ ‘, sti.act,

начислена повышенная стипендия’);

end;

end;

i:=i+1;

until (i>nst);

end.

3. Внимательно прочитать условие задачи.

4. Составить алгоритм решения задачи согласно варианта.

5. Реализовать алгоритм на языке Turbo Pascal.

ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОГО ВЫПОЛНЕНИЯ

1. Разработать программу для составления списков студентов, имеющих

оценки: только «отлично», «отлично» и «хорошо», только «хорошо» и

«удовлетворительно», только «удовлетворительно».

2. Составить программу для нахождения групп на курсе, в которых учатся

студенты, имеющие одинаковые фамилии.

3. Вывести на экран в общепринятом виде список сотрудников данной

организации, фамилии которых начинаются на А, и их средний месячный

заработок.

4. Сведения об ассортименте обувного магазина представлены в виде записи.

Определить самую дорогую женскую обувь, а так же наименования всей

имеющейся в ассортименте мужской обуви с указанием ее стоимости.

5. Составить программу, моделирующую телефонный справочник. Вывести

список абонентов женского поля с указанием номера телефона и

домашнего адреса.

6. Сведения о машинах, прошедших ремонт в данной ремонтной организации

представлены в виде записи. Определить номера и марку машин имеющих

красный цвет.

7. Информация о сотрудниках некоторой организации представлена в виде

записи. Вывести на экран список сотрудников мужского пола с указанием

специальности и возраста.

8. Составить каталог книг, указав название, фамилию автора, год издания,

цену и тираж. Вывести на дисплей упорядоченный список книг каталога

по алфавиту и тиражу.

9. В железнодорожной кассе имеется следующая информация: номер поезда,

станция назначения, наличие билетов. Узнать номера поездов и станцию

назначения на те поезда, для которых число свободных билетов равно 125.

164

10.Упорядочить список Вашей учебной группы по алфавиту и дате рождения

студентов. Результат вывести в общепринятом виде.

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

библиотеки: фамилия, домашний адрес и место работы. Пользователь

библиотеки, имеющий задолженность отмечается в общем списке

читателей буквой «з».

12.Разработать программу способную выводить на экран список посетителей

стоматологической клиники, фамилии которых начинаются на одну из

букв интервала от Б до Л.

13.Вывести на экран анкетные данные студентов, получивших за все время