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

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

30.10.2013, 10:30. Просмотров 1149. Ответов 1
Метки нет (Все метки)


Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один записать всех, кто не сдал экза-мен, в другой – кто сдал.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2013, 10:30
Ответы с готовыми решениями:

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

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

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

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

1
0 / 0 / 2
Регистрация: 02.10.2013
Сообщений: 155
19.11.2013, 23:12  [ТС] 2
Лучший ответ Сообщение было отмечено net_haker1 как решение

Решение

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
25
26
Var
Good,Bad:Text;
x1,x2:String;
i,k,z:integer;
Mas:Array [1..5] of String;
Begin
     For i:=1 to 5 do
         Begin
              Readln(x1);
              Mas[i]:=x1;
         End;
     Assign (Good, 'C:\Program Files (x86)\PABC\Good.txt');
     Assign (Bad, 'C:\Program Files (x86)\PABC\Bad.txt');   
     Append(Good);
     Append(Bad);
     For i:=1 to 5 do
         Begin
              If Copy(Mas[i],Pos(' ',Mas[i])+1,Length(Mas[i]))<='3'  then
                      Writeln(Bad,Mas[i]);
                 
              If Copy(Mas[i],Pos(' ',Mas[i])+1,Length(Mas[i]))>='3' then
                      Writeln(Good,Mas[i]);
         End;
     Close(Good);
     Close(Bad);
End.
 Комментарий модератора 
Оформляйте текст программ тегами
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2013, 23:12

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

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

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

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

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


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

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

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