Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Евгений_Варавко
0 / 0 / 0
Регистрация: 06.02.2016
Сообщений: 9
#1

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

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

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

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

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

Создать программу которая заполняет массив 12x12 - Pascal
Задание №1 А. Создайте программу, которая заполняет массив 12x12 числами по следующему правилу: -элементы, расположенные на главной...

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

написать программу которая, используя признаки делимости, определяет, делится ли число на 6 - Pascal ABC
var a,c: integer; begin cls; randomize; a:=random (99999+99999+1)-99999; writeln ( 'исходное числo: ',a); if (a mod 10) mod 2...

Используя оператор выбора, написать программу, которая работала бы как калькулятор - Pascal ABC
Используя оператор выбора, написать программу, которая работала бы как калькулятор (сложение,вычитание,умножение и деление).

1
Peoples
1245 / 750 / 464
Регистрация: 06.02.2016
Сообщений: 2,029
Записей в блоге: 14
Завершенные тесты: 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
Привет! Вот еще темы с ответами:

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

Используя цикл Repeat, написать программу, которая выводит табличные значения функции - Pascal ABC
Используя цикл Repeat, написать программу, которая выводит табличные значения функции у=|x|+2. Диапазон изменения аргумента от – 4 до 4,...

Напишите программу, которая заполняет массив случайными целыми числами - Pascal ABC
Напишите программу, которая заполняет массив случайными целыми числами, вводит с клавиатуры целое число N и копирует в новый массив все...

Составить программу которая заполняет и корректирует данные о жильцах гостиницы - Pascal ABC
Программа должна содержать меню и ввод-вывод в окна на экране. Логически законченные фрагменты оформить в виде подпрограмм,все необходимые...


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

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

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