Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Евгений_Варавко
0 / 0 / 0
Регистрация: 06.02.2016
Сообщений: 9
#1

Используя записи, написать программу, которая заполняет анкеты студентов

16.02.2016, 22:41. Просмотров 1042. Ответов 1
Метки нет (Все метки)

Уважаемые форумчане ,осталось последняя задача ,её нужно сдать завтра ,прошу помогите ,вот задание:
Используя записи, написать программу, которая заполняет анкеты студен-тов. Анкета включает в себя ФИО, возраст, пол, номер группы и оценки по четырем предметам. Программа выводит средний балл студентов мужского пола.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2016, 22:41
Ответы с готовыми решениями:

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

Написать программу, которая заполняет элементы матрицы случайными числами a[n][n] и осуществляет вывод данных
Написать программу, которая заполняет элементы матрицы случайными числами a и...

Написать программу, которая из 30 студентов в группе определяет средний рост девушек
Помогите пожалуйста с программой. Нужно написать программу, которая из 30...

Создать программу которая заполняет массив 12x12
Задание №1 А. Создайте программу, которая заполняет массив 12x12 числами по...

Написать программу которая записывает в файл n положительных чисел, не используя рандом
Написать программу которая записывает в файл n положительных чисел, не...

1
Peoples
1329 / 824 / 745
Регистрация: 06.02.2016
Сообщений: 2,204
Записей в блоге: 17
Завершенные тесты: 4
16.02.2016, 23:13 #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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
program pr;
type
 student=record 
 numbergroup:integer;
 nameson:string[50];
 age:integer;
 sex:string[20];
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].numbergroup);
writeln('Введите имя,фамилию,отчество студента');
readln(stud[i].nameson);
writeln('Введите возраст');
readln(stud[i].age);
writeln('Введите пол');
readln(stud[i].sex);
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]);
        if (stud[i].sex='мужчина') then
       begin
        writeln(stud[i].nameson);
        writeln(stud[i].numbergroup);
        writeln(stud[i].sex);
        writeln('Средний бал: ',((ocenki[i].phisical+ocenki[i].math+ocenki[i].prog+ocenki[i].history)/4));
        end;
    end;
 
    close (f);
 
end;
begin
writeln('Введите количество студентов:');
readln(n);
fill();
show();
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2016, 23:13

Используя оператор выбора, написать программу, которая работала бы как калькулятор
Используя оператор выбора, написать программу, которая работала бы как...

написать программу которая, используя признаки делимости, определяет, делится ли число на 6
var a,c: integer; begin cls; randomize; a:=random (99999+99999+1)-99999;...

Составьте программу,которая заполняет массив a[1.10] случайными целым
Составьте программу,которая заполняет массив a случайными целыми числами в...


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

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

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