«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В12»

Готовые решения задач на языке Паскаль

К работе прилагается все исходники с расширением .pas.

Составить программу назначения стипендии студентам по результатам сессии, используя следующие правила:1) если все оценки 5, назначается повышенная стипендия; 2) если все оценки 4 и 5, назначается обычная стипендия; 3) если есть оценка 3, то стипендия не назначается. В результате работы программы должны быть напечатаны два списка фамилий (назначенных на повышенную и обычную стипендию)

1. Дан файл T, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам

var

a:string;

i,j,k,l:integer;

q:array[1.100] of integer;

begin

readln(a);

for i:=1 to length(a) do

begin

if (a[i]'(')then k:=k+1;

if a[i]=')' then l:=l+1;

end;

if k=l then writeln('Otvet Yes') else writeln('Otvet No');

readln

end.

1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.

2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.

3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.

4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.

5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.