Сформировать список студентов группы со следующими сведениями: Фамилия, имя, отчество, знает ли языки программирования Turbo Pascal, Cи (если да, где обучался и сколько лет). Подсчитать, сколько студентов знают язык Си, сколько – Turbo Pascal, сколько — оба языка
Код к задаче: «Сформировать список студентов группы»
Листинг программы
program p12_1; uses crt; type student=record fam:string[15]; name:string[15]; otch:string[15]; den:byte; mes:byte; god:word; end; var a:array[1..15]of student; m,g,i,n:integer; begin n:=15; write(‘Введите количество студентов(не более 15):’); readln(n); for i:=1 to n do begin write(‘Введите фамилию ‘,i,’ студента: ‘); readln(a[i].fam); write(‘Введите имя ‘,i,’ студента: ‘); readln(a[i].name); write(‘Введите отчество ‘,i,’ студента: ‘); readln(a[i].otch); write(‘Введите день рождения: ‘); readln(a[i].den); write(‘Введите месяц рождения: ‘); readln(a[i].mes); write(‘Введите год рождения: ‘); readln(a[i].god); end; write(‘Введите месяц для поиска: ‘); readln(m); write(‘Введите год для поиска: ‘); readln(g); writeln(‘ Найденные записи:’); for i:=1 to n do if (m=a[i].mes)and(g=a[i].god) then begin write(‘Имя студента: ‘); writeln(a[i].fam,’ ‘,a[i].name,’ ‘,a[i].otch); write(‘Дата рождения: ‘); writeln(a[i].den,’.’,a[i].mes,’.’,a[i].god); writeln; end; readln; end.
Источник: studassistent.ru
Список сотрудников. Часть 1
Составить программу список студентов группы
: 60
Составить список учебной группы.
Составить список учебной группы. Для каждого студента указать фамилию, дату рождения, год поступления в институт, оценки, полученные во время последней сессии. Составить программу, которая обеспечивает ввод полученной информации в виде таблицы, а также распечатку данных
Указание: для решения данной задачи необходимо записи объединить в массив.
Распечатать анкетные данные студентов, имеющих оценки 10. Определить количество таких студентов.
вот что-то есть, не знаю подойдет или нет.
Uses Crt; Type ocenki = record algebra:integer; fizika:integer; istoriya:integer; end; student = record fam,grup:string[20]; God_pos, kurs:integer; ocen:array[1..5] of ocenki; data:real; End; Const n=5; Var i,j: byte; st: array [1..n] of student; Proverka: boolean; Begin ClrScr; For i:=1 to n do Begin Write(‘Введите фамилию студента :’); Readln(st[i].fam); Write(‘Введите дату рождения студента :’); Readln(st[i].data); Write(‘Введите год поступления :’); Readln(st[i].God_pos); Write(‘Введите курс студента :’); Readln(st[i].kurs); Write(‘Введите группу студента :’); Readln(st[i].grup); Write(‘Введите оценки каждого года обучения :’); For j:=1 to st[i].kurs do begin Write(‘Оценка за алгебру ‘,i,’ kursа’); Readln(st[i].ocen[j].algebra); Write(‘Оценка за физику ‘,i,’ kursа’); Readln(st[i].ocen[j].fizika); Write(‘Оценка за историю ‘,i,’ kursа’); Readln(st[i].ocen[j].istoriya); end; End; For i:=1 to n do begin proverka:=true; For j:=1 to st[i].kurs do if (st[i].ocen[j].algebra<4) or (st[i].ocen[j].fizika<4) or (st[i].ocen[j].fizika<4) then Proverka:=false; IF Proverka then Writeln(St[i].Fam,’ молодец. ‘); Proverka:=true; end; Readkey; End.
Источник: www.programmersforum.ru
Реализация односвязного списка c++ Часть 1 | Урок #133
Создание базы данных «Студенты» в программе MS Access
— Значение поля Пол должно вводится с помощью фиксированного набора значений (м, ж).
— В поле Группа необходимо создать список подстановок, в котором выводятся значения из существующей таблицы Группы.
— Определите ключевое поле для таблицы.
3) Личные данные
Имя поля
Тип данных
Описание
Улица, дом, квартира
Требования к полям таблицы:
— Поля ТелДом, ТелСот должны быть введены с помощью «маски ввода».
— Определите ключевое поле для таблицы.
Имя поля
Тип данных
Описание
Часы, отводимые на данный предмет
Требования к полям таблицы:
— Часы не могут иметь нулевого значения.
— Определите ключевое поле для таблицы.
5) Сдача экзаменов
Имя поля
Тип данных
Описание
Оценка за экзамен
Требования к полям таблицы:
— В поле КодСт необходимо создать список подстановок, в котором выводятся значения (КодСт, Фамилия, Имя, Отчество) из существующей таблицы Студенты.
— В поле Предмет необходимо создать список подстановок, в котором выводятся значения из существующей таблицы Предметы.
— Определите ключевые поля для таблицы.
Задание №2. Создайте связи между таблицами.
Задание №3. Заполните таблицы значениями.
Задание №4. Создайте два запроса на выборку (по своему усмотрению), используя подстановочные символы, а также операторы Like, or или and.
Задание №6. Сгенерируйте отчет, представленный на следующем рисунке.
Задание №7. Создайте главную кнопочную форму и сделайте ее заставкой.
Похожие материалы
- Создание базы данных товарного склада в программе MS Access
- Создание базы данных, с помощью которой отслеживается работа Ремонтного отдела предприятия
- Создание запросов в режиме SQL
Источник: vunivere.ru