Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Romashka1973
0 / 0 / 0
Регистрация: 17.10.2014
Сообщений: 26
#1

Напечатать фамилии студентов и название предметов, по которым они получили неудовлетворительные оценки

27.11.2014, 21:52. Просмотров 300. Ответов 3
Метки нет (Все метки)

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

сейчас написал и не могу понять что делаю не так.... еще запутался как объявить предмет и оценку... кароч помогите!!!

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
Program test9;
type
date= record
subject:array[1..5] of string[15];
mark: array[1..5] of integer;
    end;
studrec= record
name : string[10]; 
sub:date;
    end;
var predmet:array[1..5] of string;
 k,n,j,i,s,m,namepredmet,name:integer;
 f,f1:text;
begin
 assign(f,'vvod9.pas');reset(f);
 assign(f1,'rez9.pas');rewrite(f1);
 readln(f,n);
 for k:=1 to n do
 with predmet[j] do begin
 readln(f,namepredmet);
 writeln(f,'namepredmet=',namepredmet);
 readln(f,name);
 if m<5 then begin s:=0;
 for i:=1 to m do begin
 readln(f,sub[i]); readln(f,mark[i]);
 if mar[i]>=2 then s:=s+1; end;
 writeln(f1,'name=',name,namepredmet);
 end; end; end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2014, 21:52
Ответы с готовыми решениями:

В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их оценки за экзамены летней сессии. Напечатать фамилии двоечников
В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их...

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

Найти и вывести фамилии тех студентов, которые на экзаменах получили не ниже 7 баллов
Даны оценки группы студентов на экзаменах по 4 предметам: алгебре, геометрии,...

Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки
Имеется массив из N итоговых оценок студента.Если студент является...

Распечатать оценки в последнюю сессию студентов, фамилии которых начинаются с букв В и Г
Составить список учебной группы, включающей 25 человек. Для каждого учащегося...

3
Romashka1973
0 / 0 / 0
Регистрация: 17.10.2014
Сообщений: 26
28.11.2014, 22:41  [ТС] #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
Program test9;
type
 date= record
 subject:array[1..5] of string[15];
 mark: array[1..5] of integer;
    end;
 studrec= record
 name : string[10];
 sub:date;
    end;
var student:array[1..8] of studrec;
 am1:array[1..8] of string;
 k,s,i,n,f,r:integer;
 min:string;
 dan,rez:text;
 begin 
 assign(dan,'vvod9.pas');reset(dan);
 assign(rez,'rez9.pas');rewrite(rez);
 writeln(rez,'students');
 n:=0;
 for i:=1 to 8 do begin s:=0;
 with student[i] do begin
 readln(dan,name);
 for k:=1 to 5 do begin
 with sub do begin
 readln(dan,subject[k]);
 readln(dan,mark[k]);
 end;
 if student[i].sub.mark[k]=2 then s:=s+1;
 end;
 if s=2 then begin n:=n+1;
 am1[n]:=student[i].name;
 writeln(rez,am1[n]); end; end; end;
 for r:=1 to n do
 begin min:=am1[n]; f:=r;
 for i:=r to n do
 if am1[i]<min then begin min:=am1[i];
 f:=i; end;
 writeln(rez,min,'-dwoushnik');
 am1[f]:=am1[r]; am1[r]:=min;
 end; close(rez); end.
0
ыфырф1992
25 / 25 / 17
Регистрация: 08.04.2012
Сообщений: 200
29.11.2014, 00:27 #3
C++
1
2
assign(dan,'vvod9.pas');reset(dan);
assign(rez,'rez9.pas');rewrite(rez);
расширение правильное?
0
Romashka1973
0 / 0 / 0
Регистрация: 17.10.2014
Сообщений: 26
29.11.2014, 01:59  [ТС] #4
да расширение правильное сто процентов...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 01:59

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

Напечатать фамилии студентов, имеющих наименьший возраст
1)Даны три числа. Написать программу, подсчитывающую количество чисел, равных...

Выбрать студентов, имеющих хотя бы 1 задолженность. Напечатать их фамилии и количество не сданных экзаменов
Создать файл, содержащий фамилии студентов и их экзаменационные оценки по 3...


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

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

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