2 / 2 / 0
Регистрация: 19.11.2009
Сообщений: 37
1

Записи. Cоздать список учеников, указав фамилию,имя и оценки по трём предметам, определить средний балл каждого и количество отличников

30.09.2010, 00:24. Показов 4056. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Cоздать список учеников,указав их фамилию,имя и оценки по трём предметам (русский,математика,физика),определить средний балл каждого и количество отличников.Предусмотреть в программе запись списка в файл и чтение из файла,редактирование и вывод в виде таблицы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2010, 00:24
Ответы с готовыми решениями:

Создать список учеников, указав их фамилию, имя и оценки по трем предметам
Создать список учеников, указав их фамилию, имя и оценки по трем предметам (русский, математика,...

Известны оценки каждого из 18 учеников по трем предметам,найти количество троек у каждого ученика
известны оценки каждого из 18 учеников по трем предметам,найти:количество троек у каждого ученика.

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

Определить количество отличников и средний балл каждого студента
Помогите пожалуйста , вот задание: С сведения 3-х студентов с их оценками ( порядковый номер ,...

7
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
30.09.2010, 01:57 2
На тему "Записи в Паскале" у нас уже было написано очень много постов. Не поленись уж, поищи запросом "Записи" в данном разделе, найди подобное и переделай.
0
2 / 2 / 0
Регистрация: 19.11.2009
Сообщений: 37
30.09.2010, 18:32  [ТС] 3
ну напишите прогу,пожалуйста!)
0
32 / 32 / 19
Регистрация: 06.10.2009
Сообщений: 108
30.09.2010, 19:17 4
Что не устраивает - переделаешь сам.
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
Type jurnal = record
 n : integer ;
fio : string[20] ;
bal : array [1..3] of integer
end;
Var spisok : jurnal ;
i, j, cantitatea, s : integer; sr : real;
Begin
 
cantitatea:=0;
With spisok do
For i:=1 to 3 do
begin
n:=i;
Write (' Vvedite FIO # ', i ,' ');
Readln (fio);
s:=0;
For j:= 1 to 3 do
begin
writeln ( 'Vvesti ocenky: ' );
readln ( bal [j] );
s := s+ bal [j];
end;
 if s=15
  then cantitatea:=cantitatea+1; {здесь ведётся подсчёт количества отличников}
  sr := s/3; writeln ( fio, ', Sr bal = ', sr:4:1); end;
  writeln ( ' Kol otlichnikov = ', cantitatea );
readln;
end.
0
0 / 0 / 0
Регистрация: 13.04.2012
Сообщений: 78
27.04.2012, 16:15 5
А в этой программе нет множеств?
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
27.04.2012, 16:27 6
Милаше, Нет, множества объявляют как
Pascal
1
var m:set of тип
1
0 / 0 / 0
Регистрация: 13.04.2012
Сообщений: 78
27.04.2012, 16:28 7
Спасибо
0
0 / 0 / 0
Регистрация: 13.04.2012
Сообщений: 78
21.05.2012, 20:29 8
Скажите, пожалуйста, а как бы сделать запись в файл?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2012, 20:29
Помогаю со студенческими работами здесь

Дан текстовый файл, содержащий список учащихся и их оценки. Определить количество учеников отличников
С++ Дан текстовый файл, содержащий список учащихся и их оценки по трем предметам: математике,...

Известны оценки каждого из 15 студентов, полученных в сессию на экзаменах по трем предметам. Определить количество двоек по каждому предмету.
Известны оценки каждого из 15 студентов, полученных в сессию на экзаменах по трем предметам....

Вычистить средний балл учеников класса, если известны оценки каждого ученика по
Здравствуйте форумчане, нуждаюсь в вашей помощи. Нужно написать программу с выводом в блокнот. ...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru