Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
 Аватар для Folayt
2 / 3 / 7
Регистрация: 25.10.2012
Сообщений: 113

Организовать файл записей STUDENT

20.12.2012, 22:02. Показов 1368. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Организовать файл записей STUDENT, содержащий следующие поля: ФИО, оценка по контрольной. Поместить данные о нескольких студентах, вывести на экран фамилии студентов получившие оценку 2.

Добавлено через 1 час 8 минут
вверх

Добавлено через 3 часа 13 минут
Ребята помогитеее

Добавлено через 51 минуту
вверх
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.12.2012, 22:02
Ответы с готовыми решениями:

Организовать файл записей HOSPITAL
организовать файл записей HOSPITAL, содержащих следующие поля: фамилия,имя,отчество, номер участка, год рождения, адрес. написать...

Файлы, организовать файл записей
Организовать файл записей BAZA, содержащих следующие поля: фамилия, имя, отчество работника, должность, размер зарплаты. Написать...

Организовать файл записей WORKER
Организовать файл записей WORKER, содержащих следующие поля: фамилия, имя, отчество работника, название занимаемой должности, год...

1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
20.12.2012, 22:56
Лучший ответ Сообщение было отмечено как решение

Решение

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
Type
  stud=Record
  fio: String;
  otm: Byte;
end;
Var
  f: File of stud;
  i,n: Integer;
  x: Array[1..50] of stud;
BEGIN
Write('Введите кол-во студентов: '); Readln(n);
Assign(f,'student.dat');
Rewrite(f);
For i:=1 to n do
begin
  Write('ФИО: '); Readln(x[i].fio);
  Write('Оценка: '); Readln(x[i].otm);
  Write(f,x[i]);
end;
Reset(f);
Writeln('Список получивших 2:');
While not Eof(f) do
begin
  Read(f,x[i]);
  If x[i].otm=2 Then
  Writeln(x[i].fio);
end;
Close(f);
Readln
END.
3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.12.2012, 22:56
Помогаю со студенческими работами здесь

Организовать файл записей HOSPITAL
Организовать файл записей HOSPITAL, содержащих следующие поля: фамилия, имя, отчество, номер участка, год рождения, адрес. Написать...

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

Организовать файл записей и поместить в него сведения о книгах
Организовать файл записей и поместить в него сведения о нескольких книгах (Автор, название, издательство, год издания, цена книги). Вывести...

Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя, отчество, дата рождения, домашний адрес).
Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя, отчество, дата рождения, домашний адрес)....

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru