Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
1 / 0 / 0
Регистрация: 01.11.2011
Сообщений: 27
1

Сформировать два файла, в один записать всех, кто не сдал экзамен, в другой – кто сдал

29.01.2012, 20:41. Просмотров 1170. Ответов 1
Метки нет (Все метки)


Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один записать всех, кто не сдал экза-мен, в другой – кто сдал.


Хелп
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2012, 20:41
Ответы с готовыми решениями:

Сформировать два файла, в один записать всех, кто не сдал экзамен, в другой – кто сдал
Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один...

Кто из 4 студентов сдал экзамен?
Решите плз,ото уменя неполучается:( .Определите,кто из четырех студентов сдал,экзамен,если...

Определить фамилию того, кто лучше всех сдал экзамены
Ребят помогите) Сделал только 2 функции, помогите сделать 3ю, а так-же чтобы программа выходила в...

Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один записать всех
Тема: Файлы Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два...

1
любитель покушать
685 / 637 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
29.01.2012, 22:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

_Camelot, файлы ищи на диске C
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var
a: array [1..5] of string;
i,k: integer;
sdal, nesdal: text;
begin
assign(sdal, 'C:\sdal.txt');
assign(nesdal, 'C:\nesdal.txt');
rewrite(sdal);
rewrite(nesdal);
for i:=1 to 5 do
    begin
    write('Введите фамилию ',i,' студента: ');
    read(a[i]);
    write('Введите оценку ',i,' студента: ');
    read(k);
    if (k>2) and (k<=5) then
       writeln(sdal, a[i]);
    if (k<3) and (k>0) then
      writeln(nesdal, a[i]);
    end;
close(nesdal);
close(sdal);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2012, 22:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Операции с датой: вывести список студентов, кто не сдал книги в срок
Есть список студентов, в нем есть дата, когда студенту выдали книгу в библиотеке, и есть кол-во...

Узнать количество парней на 4 курсе, среди них кто сдал зимнюю сессию без троек
Сформировать массив содержащий несколько студентов из разных курсов. Узнать кол-во парней на 4...

Рассчитать средний балл каждого студента и начислить стипендию тем кто сдал без троек
Дана задачка: В БД содержится информация о студентах Ввуза: ФИО, №группы, результаты сдачи сессии...

Сдал экзамен 70-176!!
Поздравления высылайте на мое мыло :-)))


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.