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

Содержание

4.4.Лабораторная работа 4

5.Файлы.

5.6. Лабораторная работа 5.

6. Строковые переменные.

6.4. Лабораторная работа 6

Литература

---

Введение

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

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

---

Выдержка из текста работы

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

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

2. Записать в файл последовательного доступа N действительных чисел. Найти среднее геометрическое компонентов файла.

1. Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a.

2. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

---

Заключение

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.

---

Примечания

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

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

---