Даны сведения о каждом студенте, сдавшем сессию. Найти фамилии студентов, имеющих задолженность хотя бы по одному предмету

08.06.2012, 00:03. Показов 1136. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

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

Pascal

Program Kyrs;
uses crt;
type
cpis = record
fam:string[15];
Nom:integer;
N1,N2,N3:integer;
end;
var
answer:char;
elm:cpis;
base:array[1..50]of cpis;
k,i,n:integer;
f:file of cpis;
begin
assign(f,'Teten1.txt');
rewrite(f);
writeln('Jelaete dopolnit fail?(y\n)');
readln(answer);
while (answer='y') do begin
Writeln('VVedite familiy, gruppy, ocenki 1,2,3(posle kajdogo najimaite Enter)');
readln(elm.fam);
readln(elm.nom);
readln(elm.n1);
readln(elm.N2);
readln(elm.N3);
write(f,elm);
writeln('Prodoljit?(y\n)');
readln(answer)
end;
close(f);
 
reset(f);
writeln('Zadoljnosti y:');
while not(eof(f)) do begin
read(f,elm);
if (elm.n1<4) or (elm.n2<4) or (elm.n3<4) then begin
writeln(elm.fam,' ',elm.Nom);
writeln(elm.n1, elm.n2, elm.n3)
end
end;
readln
END.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.06.2012, 00:03

Ответы с готовыми решениями:

Найти фамилии студентов, имеющих задолженность хотя бы по одному предмету
В массиве содержится информация о зимней сессии. Сведения о каждом студенте содержат следующие...

Вывести фамилии студентов, имеющих задолженность хотя бы по одному предмету
Дали задание, пишу программу. Написал, сначала не запускалась, потом исправил некоторые ошибки, но...

Напечатать фамилии студентов, имеющих задолженность хотя бы по одному предмету
Тема: Записи. Работа с текстовыми файлами. В деканате хранится информация о зимней сессии на 1...

Структуры: определить фамилии студентов, имеющих задолженность хотя бы по одному предмету
Имеется список студентов с информацией об итогах сессии, в котором указаны фамилия, номер группы,...

	08.06.2012, 00:03

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.06.2012, 00:03

Помогаю со студенческими работами здесь

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

Выведите на экран фамилии и имена студентов, имеющих хотя бы одну задолженность
Напишите программу которая считывает с клавиатуры данные о группе студентов . Для каждого студента...

Написать программу, которая выводит фамилии студентов, имеющих хотя бы одну задолженность
В структуре содержится информация о результатах летней сессии студентов первого курса. О каждом...

Выбрать студентов, имеющих хотя бы 1 задолженность. Напечатать их фамилии и количество не сданных экзаменов
Создать файл, содержащий фамилии студентов и их экзаменационные оценки по 3 предметам. Выбрать...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх