Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.79/29: Рейтинг темы: голосов - 29, средняя оценка - 4.79
3 / 3 / 1
Регистрация: 04.11.2013
Сообщений: 285

Создать типизированный файл, в который нужно ввести Фамилию студента и 3 оценки

01.07.2014, 20:07. Показов 5749. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создать типизированный файл, в который нужно ввести Фамилию студента и 3 оценки (от 2 до 5 баллов). Чтобы на выходе создавался типизированный файл с форматом .dat

И с помощью каких команд можно ориентироваться по содержимому. Чтобы сделать переход к определенном студенту, и посмотреть его оценки
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.07.2014, 20:07
Ответы с готовыми решениями:

Запросить с клавиатуры фамилию студента и отобразить список студентов, имеющих указанную фамилию, и их оценки
Доброго времени суток! Программа должна запросить с клавиатуры фамилию студента (без инициалов) и отобразить список студентов, имеющих...

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

Создать типизированный файл, который содержит сведения об автомобилях
program n1; type rec = record marka: string; firma: string; cost: integer; end; var

1
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.07.2014, 07:35
Лучший ответ Сообщение было отмечено Frip как решение

Решение

Например так.
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;
type stud=record
          fam:string[20];
          ocn:array[1..3] of integer;
          end;
var f:file of stud;
    z:stud;
    n,i,j,k:integer;
    w:char;
    fm:string[20];
begin
assign(f,'stud.dat');
rewrite(f);//файл будет создан в пепке с программой
write('Данные о скольки студентах записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with z do
   begin
    write('Фамилия: ');readln(fam);
    writeln('Введите 3 оценки от 2 до 5');
    for j:=1 to 3 do
    repeat
    readln(ocn[j]);
    until ocn[j] in [2..5];
    write(f,z);
   end;
 end;
clrscr;
repeat
clrscr;
writeln('Осуществить поиск');
writeln('1-по номеру');
writeln('2-по фамилии');
writeln('другое выход');
readln(w);
case w of
'1':begin
    clrscr;
    seek(f,0);
    write('Введите номер k=');
    readln(k);
    if(k<1)or (k>filesize(f)) then writeln('Такого номера нет')
    else
     begin
      seek(f,k-1);//индексы с 0, на 1 меньше чем номер
      read(f,z);
      write(z.fam);
      for j:=1 to 3 do
      write(' ',z.ocn[j]);
     end;
    readln;
   end;
'2':begin
    clrscr;
    write('Введите фамилию: ');
    readln(fm);
    seek(f,0);
    k:=0;
    while not eof(f) do
     begin
      read(f,z);
      if z.fam=fm then
       begin
        k:=1;//есть какой
        write(z.fam);
        for j:=1 to 3 do
        write(' ',z.ocn[j]);
        writeln
       end;
     end;
    if k=0 then write('Такой фамилии нет');
    readln
   end;
else
 begin
  close(f);
  exit
 end;
end;
until not(w in ['1','2'])
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.07.2014, 07:35
Помогаю со студенческими работами здесь

Создать типизированный файл, который содержит несколько вещественных чисел
Создать типизированный файл, который содержит несколько вещественных чисел, после чего вывести эти вещественные числа с типизированного...

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

Создать типизированный файл, который содержит несколько целых чисел
кто шарит файлы Создать типизированный файл, который содержит несколько целых чисел, после чего вывести эти целые числа из...

Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию, имя, отчество студента, оценки по каждому экзамену
Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию, имя, отчество студента, оценки по каждому...

Создать типизированный файл, который содержит несколько булевский (логических) значений
Создать типизированный файл, который содержит несколько булевский (логических) значений, после чего вывести эти Булевские (логические)...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru