Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
user747
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 1
1

задачка на текстовые файлы и символьные строки,не могу разобраться

09.12.2013, 21:26. Просмотров 255. Ответов 0
Метки нет (Все метки)

Помогите, пожалуйста, с задачей на текстовые файлы и символьные строки

В каждой строке файла хранится информация о студенте в виде: фамилия, несколько
оценок за последнюю сессию (произвольное количество) . Создать новый файл,
содержащий информацию о студентах и размере стипендии, которую они получают
(«стипендиальный приказ») . В начало результирующего файла поместить фамилии
студентов-отличников, получающих повышенную стипендию (+50% к обычной
стипендии) , затем студентов-хорошистов - более половины отличных оценок (+25% к
обычной стипендии) , затем студентов-хорошистов, которые получают обыкновенную
стипендию. В отдельные файлы поместить список отчисляемых студентов («приказ на
отчисление» ) и студентов, не получающих стипендию.

Добавлено через 1 час 46 минут
так написала,но он зацикливается,помогите пожалуйста!что не так я делаю?
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
27
28
29
30
31
32
33
var stud,step,otch,bez:text;
     n,i,x,y:integer;
     s:array[1..10] of string;
    b,c,t:string;
begin
read(n);
x:=((n*50) mod 100)+n;
str(x,b);
y:=((n*25) mod 100)+n;
str(y,c);
assign(stud,'stud.txt');
reset(stud);
assign(step,'step.txt');
 
assign(otch,'otch.txt');
 
assign(bez,'bez.txt');
 
while not eof(stud) do begin
readln(s[i]);
for i:=1 to length(s[i]) do
if (s[i]='2') and (s[i]='3')and(s[i]='4') and (s[i]='5') then writeln(otch,s[i]) else
if (s[i]='3') and (s[i]='4') and (s[i]='5') and (s[i]<>'2') then writeln(bez,s[i]) else
if (s[i]='4') and (s[i]<>'2') and (s[i]<>'3') and (s[i]='5') then writeln(step,s[i]+c) else
if (s[i]='5') and (s[i]<>'2') and (s[i]<>'3') and (s[i]<>'4') then writeln(step,s[i]+b);
end;
reset(otch);
reset(bez);
reset(step);
{close(bez);
close(step);
close(otch);}
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 21:26
Ответы с готовыми решениями:

Текстовые файлы и строки
Здравствуйте уважаемые форумчане, помогите пожалуйста решить следующую задачу: Дан текстовый...

Текстовые файлы, строки.
Помогите с заданием (хотябы первые 2 пункта)! Мне такое не по силам! ЗАДАНИЕ Текстовый файл...

Текстовые файлы. Найдите самые короткие строки
дан текстовый файл.найдите самые короткие строки. помогите пжл!

4 задания: строки, функции, модули, текстовые файлы
1. Зашифровать введенную с клавиатуры строку, заменой символов на символы с кодом меньшим на две...

Текстовые файлы. Удалить из текстового файла одинаковые строки
удалите из текстового файла одинаковые строки. Если в файле нет одинаковых строк,вывести на экран...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 21:26

Текстовые файлы - выровнять строки по самой длинной строке
выровнять строки по самой длинной строке, добавив к их началу пробелы. заменить символы &quot;.&quot;, &quot;,&quot;,...

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

Текстовые файлы. Сформируйте новый файл, строки отсортировать в порядке убывания сумм
чтение исходных данныx осуществляется из файла in.txt, а запись в out.txt Студент занимается с...


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

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

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