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

сформировать файл

12.03.2013, 20:16. Просмотров 286. Ответов 0
Метки нет (Все метки)

Сформировать файл Rasp, вводя с клавиатуры следующие сведения – предмет, преподаватель, день недели, время занятия, группа, аудитория.

Написать следующие подпрограммы:

1. Вывести все занятия заданной группы в указанный день:

время предмет аудитория преподаватель.

Добавлено через 8 часов 45 минут
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[10];
      ins: string[20];
      zan: string[10];
end;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     i:integer;
     n:char;
     s1:rasp;
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы преподавателя ');
Readln (s1.fio);
While s1.fio <> ' ' do
      Begin
           Writeln ('Введите номер группы ');
           Readln (s1.group);
           writeln ('Введите предмет ');
           readln (s1.conk);
           writeln ('Введите день недели ');
           readln (s1.ins);
           writeln ('Введите время занятия ');
           readln (s1.zan);
           writeln ('Введите аудиторию ');
           readln (s1.aud);
           write (f,s1);
           Writeln ('Введите фамилию и инициалы следующего преподавателя ');
           Readln (name);
           s1.fio:=name;
             End;
 End;
      Writeln ('Файл создан');
         Close(f);reset(f);
      writeln (' Pokazat spisok ');
       while not Eof(f) do
       begin
             read (f,s1);
не знаю как сделать,чтобы выводило по группе и дню
 Комментарий модератора 
Не забывайте выделять код тегами подсветки!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2013, 20:16
Ответы с готовыми решениями:

Сформировать файл F1, содержащий целые числа, и переписать в другой файл
Ðàçðàáîòàòü ïðîãðàììó, êîòîðàÿ ôîðìèðóåò ôàéë F1, ñîäåðæàùèé öåëûå ÷èñëà, è...

Текстовый файл. Сформировать новый файл, исключив строки, длина которых превышает 50 символов
Дан текстовый файл. Сформировать новый файл, исключив из него строки, длина...

Сформировать целочисленный файл, число компонент которого кратно 10. Переписать компоненты файла в другой файл
Сформировать целочисленный файл, число компонент которого кратно 10. Переписать...

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

Дан файл, строки которого могут содержать и числа, и слова. Сформировать другой файл, содержащий только числа
Дан файл,строки которого могут содержать и числа, и слова. Сформировать другой...

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

Сформировать файл
Сформировать файл, имеющий следующую структуру Type data = record ...

Сформировать типизированный файл
Сформировать типизированный файл целых чисел, вводимых с клавиатуры. Признаком...

Сформировать файл f целых чисел
Сформировать файл f целых чисел. Определить сумму записанных в файл значений....


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

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

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