3 / 3 / 1
Регистрация: 03.05.2010
Сообщений: 69
1

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

11.03.2012, 16:23. Показов 1051. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать файл, содержащий информацию о студентах, которые прибыли в лагерь.
Структура записи:
- Фамилия,
- Номер отряда,
- Наименование факультета.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2012, 16:23
Ответы с готовыми решениями:

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

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

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

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

3
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.03.2012, 21:26 2
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
49
50
51
52
53
54
55
56
uses crt;
 
const zag= '   Cтуденты, которые прибыли в лагерь';
      line='----------------------------------------------------';
      shap='|   Фамилия   | № отряда | Наименование факультета |';
 
type students = record;
     fam:  string[10];
     no:   integer;
     fak:  string[20];
     end;
 
var s: students;
    i,r,n:integer;
    f: file of students;
 
begin
assign(f,'C:\st.dat');
rewrite(f);
write('Сколько студентов? ');
readln(n);
writeln('Внесите данные о студентах: ');
for i:=1 to n do
    with s do
         begin
         write('Фамилия ',i,' студента: '); readln(fam);
         write('Номер отряда: '); readln(no);
         write('Наименование факультета: '); readln(fak);
         write(f,s);
         end;
writeln('Данные о студентах занесены в файл');
writeln('0-закончить работу');
writeln('1-считать данные из файла');
readln(r);
if r=1 then
   begin
   reset(f);
   while not(eof(f)) do
         begin
         clrscr;
         writeln(zag);
         writeln(line);
         writeln(shap);
         writeln(line);
         while not (eof(f)) do
               begin
               read(f,s);
               with s do
                    writeln('|',fam:10,'|':3,no:7,'|':5,fak:23,'|':3);
               writeln(line);
               end;
         end;
   end;
readln;
close (f);
end.
1
3 / 3 / 1
Регистрация: 03.05.2010
Сообщений: 69
11.03.2012, 23:39  [ТС] 3
Распечатать список по номерам отрядов, начиная с наименьшего номера и заканчивая самым большим. Вывести информацию о конкретного студента X. Количество отрядов> 5, X вводится с клавиатуры.

Это продолжение к заданию. Подскажите ещо пожалуста.
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.03.2012, 23:52 4
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
uses crt;
 
const zag= '   Cтуденты, которые прибыли в лагерь';
      line='----------------------------------------------------';
      shap='|   Фамилия   | № отряда | Наименование факультета |';
 
type students = record;
     fam:  string[10];
     no:   integer;
     fak:  string[20];
     end;
 
var s: students;
    i,imax,r,n:integer;
    f: file of students;
    x: string;
 
begin
assign(f,'C:\st.dat');
rewrite(f);
write('Сколько студентов? ');
readln(n);
writeln('Внесите данные о студентах: ');
imax:=0;
for i:=1 to n do
    with s do
         begin
         write('Фамилия ',i,' студента: '); readln(fam);
         write('Номер отряда: '); readln(no);
         if no>imax then imax:=no;
         write('Наименование факультета: '); readln(fak);
         write(f,s);
         end;
writeln('Данные о студентах занесены в файл');
repeat
writeln('0-закончить работу');
writeln('1-считать данные из файла');
writeln('2-вывести информацию о студенте');
readln(r);
if r=1 then
   begin
   clrscr;
   writeln(zag);
   writeln(line);
   writeln(shap);
   writeln(line);
   for i:=1 to imax do
       begin
       reset(f);
       while not (eof(f)) do
             begin
             read(f,s);
             with s do
                  if no=i then
                     begin
                     writeln('|',fam:10,'|':3,no:7,'|':5,fak:23,'|':3);
                     writeln(line);
                     end;
             end;
         end;
   end;
if r=2 then
   begin
   clrscr;
   write('Фамилия студента: ');
   readln(x);
   reset(f);
   while not (eof(f)) do
         begin
         read(f,s);
         with s do
              if fam=x then
                 begin
                 writeln('Фамилия: ',fam);
                 writeln('Номер отряда: ',no);
                 writeln('Наименование факультета: ',fak);
                 end;
         end;
   end;
until r=0;
readln;
close (f);
end.
0
11.03.2012, 23:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2012, 23:52
Помогаю со студенческими работами здесь

Создать файл, содержащий сведения о студентах (фамилия, адрес, дата рождения)
помогите!!! Создать файл, содержащий сведения о студентах (фамилия, адрес, дата рождения)....

Создать файл, содержащий метеорологическую информацию
Создать файл, содержащий метеорологическую информацию. Структура записи: дата ( число, месяц ),...

Составить массив записей, содержащий информацию о студентах
Создать массив записей, содержащий информацию о фамилии оценках по 5 предметам в 100-балльной ш...

Создать файл .txt содержащий информацию по товарам
Что не так? Задание: Создать файл .txt содержащий информацию по товарам Наименование товара:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru