Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
XAMelion3
0 / 0 / 0
Регистрация: 23.12.2015
Сообщений: 9
1

Описать структуру с именем STUDENT

04.02.2016, 12:32. Просмотров 936. Ответов 2
Метки нет (Все метки)

Описать структуру с именем STUDENT, содержащую следующие поля:
-номер;
-фамилия и имя;
-год рождения;
-год поступления в университет;
-структура OCENKI, содержащая четыре поля: физика, математика, программирование, история;
написать программу, выполняющую следующие действия с помощью процедур или функций:
-ввод с клавиатуры данных в файл, состоящий из структур типа STUDENT; записи должны быть упорядочены по фамилиям;
-чтение данных из этого файла;
-вывод на дисплей анкетных данных студентов, получивших все двойки;
-если таких студентов нет, вывести соответствующее сообщение.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2016, 12:32
Ответы с готовыми решениями:

Описать структуру с именем STUDENT
Описать структуру с именем student содержашие следушие поля 1.Фио 2.номер...

Описать структуру с именем STUDENT
описать структуру с именем STUDENT, содержащую следующие поля: -- NAME -...

Описать структуру с именем ZNAK
Описать структуру с именем ZNAK, содержащую следующие поля: 1)Фамилия имя. ...

Описать структуру с именем NOTE
uses crt; type ZNAK=record fam:string; nam:string; ...

Описать структуру с именем ZNAK
Привет) последняя лаба по Паскалю... please help: Описать структуру с именем...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,515
04.02.2016, 19:30 2
Описать структуру с именем STUDENT
1
Peoples
1352 / 841 / 749
Регистрация: 06.02.2016
Сообщений: 2,243
Записей в блоге: 17
Завершенные тесты: 4
07.02.2016, 13:24 3
Лучший ответ Сообщение было отмечено XAMelion3 как решение

Решение

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
84
85
86
87
88
89
90
91
program pr;
type
 student=record // структура студент
 number:integer;        //номер студента
 nameson:string[50];  // имя и фамилия
 yearofbirth:integer;   // дата рождения
 enter:integer;          // дата поступления
end;
marks=record     // структура оценки    
 phisical:integer;
 math:integer;
 prog:integer;
 history:integer;
end;
var
i,n:integer;
stud:array [1..100] of student; // массив студентов (массив структур student)
ocenki:array [1..100] of marks;
procedure fill(); // процедура ввода анкеты студента и записи её в файл
var i:integer;
f:file of student;
begin
assign(f,'c:\studentsfill.txt');
rewrite(f);
for i:=1 to n do begin
writeln('Введите номер студента');
readln(stud[i].number);
writeln('Введите имя и фамилию студента');
readln(stud[i].nameson);
writeln('Введите год рождения');
readln(stud[i].yearofbirth);
writeln('Введите год поступления');
readln(stud[i].enter);
writeln('Введите оценки по физике');
readln(ocenki[i].phisical);
writeln('Введите оценки по математике');
readln(ocenki[i].math);
writeln('Введите оценки по программированию');
readln(ocenki[i].prog);
writeln('Введите оценки по истории');
readln(ocenki[i].history);
write(f,stud[i]);
end;
close (f);
end;
procedure show();  // процедура читающая созданный файл с анкетами
var i:integer;
f:file of student;
begin
assign(f,'c:\studentsfill.txt');
reset (f);
    while not eof (f) do 
    begin
    inc(i);
        read(f,stud[i]);
        writeln(stud[i].number);
        writeln(stud[i].nameson);
        writeln(stud[i].yearofbirth);
        writeln(stud[i].enter);
        writeln('Физика:',ocenki[i].phisical);
        writeln('Математика:',ocenki[i].math);
        writeln('Программирование:',ocenki[i].prog);
        writeln ('История:',ocenki[i].history);
        writeln;
    end;
 
    close (f);
 
end;
procedure bad(s:student); // процедура вывода студентов, у которых все оценки 2
var i,j:integer;
begin
for i:=1 to n do
if (ocenki[i].phisical<3) and (ocenki[i].math<3)and (ocenki[i].prog<3) and (ocenki[i].history<3)then 
begin
writeln('Все двойки у:');
writeln(stud[i].nameson);
end;
if (ocenki[i].phisical>2) and (ocenki[i].math>2)and (ocenki[i].prog>2) and (ocenki[i].history>2)then
begin
writeln('Студенты у которых все 2:');
writeln('Таких студентов нет');
end;
end;
begin
writeln('Введите количество студентов:'); 
readln(n);
fill();
show();
bad(stud[i+1]);
end.
Вроде работает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2016, 13:24

Описать структуру с именем Group
необходимо описать структуру и написать программу, выручите пожалуйста ...

Описать структуру с именем PRICE
а) описать структуру с именем PRICE,содержащую следующие поля: * Название...

Описать структуру с именем MARSH (маршрут)
Толи я дурак, толи лыжи не едут, но помогите пожалуйста, что не так? Program...


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

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

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