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

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

25.06.2015, 15:27. Просмотров 1636. Ответов 5
Метки нет (Все метки)

Распечатать фамилии и даты рождения студентов, не получивших ни одной оценки 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
29
30
31
32
33
type sotr = record
      fio: String[30];
      ochen:2..5;
      god:integer;
End;
Var a: array[1..100] of sotr;
    b: array[1..20] of sotr;
    n, i, j, m: Integer;
    x:boolean;
Begin
     writeln('Введите кол-во учеников');
     ReadLn(n);
     for i := 1 to n do begin
     writeln ('Введите имя');
     ReadLn(a[i].fio);
     writeln ('Введите год рождения');
     ReadLn(a[i].god);
     writeln ('Введите количество оценок у учеников');
     readln (m);
     writeln ('Введите оценки');
     for j:=1 to m do
     readln(b[j].ochen);
     end;
     for i := 1 to n do
     begin
     x:=true;
     begin
     for j:=1 to m do 
     if b[j].ochen=3 then x:=false;
     if x=true then WriteLn('Без троек: ',a[i].fio,' ', a[i].god);
     end;
     end;
End.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.06.2015, 15:27
Ответы с готовыми решениями:

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

Распечатать список студентов, получивших все оценки 2.
Нужно отредактировать программу так чтобы в конце программы выполнялось следующее: 1) Распечатать...

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

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

Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки
: Составить список, содержащий сведения об n студентах. Для каждого студента должно быть указано:...

5
Puporev
Модератор
58877 / 44575 / 30766
Регистрация: 18.05.2008
Сообщений: 106,792
25.06.2015, 15:35 2
Цитата Сообщение от coolkoka Посмотреть сообщение
ни одной оценки 3
Например все 2?

Добавлено через 2 минуты
Цитата Сообщение от coolkoka Посмотреть сообщение
writeln ('Введите год рождения');
А нафига это? Или условие не полностью написали?
0
coolkoka
0 / 0 / 0
Регистрация: 25.06.2015
Сообщений: 5
25.06.2015, 17:10  [ТС] 3
Распечатать фамилии и даты рождения студентов
Есть это в условии
0
coolkoka
0 / 0 / 0
Регистрация: 25.06.2015
Сообщений: 5
01.07.2015, 18:37  [ТС] 4
(Перенесено из дублирующей темы)
Ребят, помогите с задачкой в Паскале, нужно решить задачу с использованием записей:
Распечатать фамилии и даты рождения студентов, не получивших ни одной оценки 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
29
30
31
32
type uch=record
     fio:string[25];
     god:integer;
     mark:2..5;
     end;
Var a:array[1..100] of uch;
    b:array[1..20]of uch;
    i, n, j, m: integer;
    x:boolean;
Begin
    writeln('Введи количество учеников');
    read(n);
    for i:=1 to n do
    begin
    writeln('Введи имя');
    readln (a[i].fio);
    writeln('Введи год рождения');
    readln (a[i].god);
    writeln('Введи кол-во оценок');
    readln (m);
    writeln('Введи оценки');
    for j:=1 to m do 
    readln (b[j].mark)
    end;
    for i:=1 to n do
    begin
    x:=true;
    for j:=1 to m do
    if b[j].mark = 3 then x:=false;
    if x=true then writeln(a[i].fio, a[i].god);
    end;
End.
Программа запускается, данные вводятся, но в конце ничего не происходит.
0
Cyborg Drone
02.07.2015, 06:57
  #5

Не по теме:

coolkoka, дублирование и кросспостинг тем запрещены. Рекомендую Вам ознакомиться с правилами форума.

0
Puporev
Модератор
58877 / 44575 / 30766
Регистрация: 18.05.2008
Сообщений: 106,792
02.07.2015, 07:18 6
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
type stud=record
     fam:string[25];
     dat:string[10];
     kol:integer;
     mark:array[1..50]of 2..5;
     end;
Var a:array[1..100] of stud;
    i, n, j, m: integer;
    x:boolean;
Begin
write('Введите количество учеников n=');
readln(n);
writeln('Введите данные');
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with a[i] do
   begin
    write('Фамилия: '); readln(fam);
    write('Дата рождения в формате ДД.ММ.ГГГГ: ');readln(dat);
    write('Количество оценок: ');readln(kol);
    writeln('Введите ',kol,' оценок от 2 до 5');
    for j:=1 to kol do
    readln (mark[j]);
   end;
 end;
writeln('Фамилии и даты рождения студентов, не получивших ни одной оценки 3');
m:=0;
for i:=1 to n do
with a[i] do
 begin
  x:=true;
  j:=1;
  while(j<=kol)and x do
  if mark[j] = 3 then x:=false
  else inc(j);
  if x then
   begin
    m:=1;
    writeln(fam,' ',dat);
   end;
 end;
if m=0 then write('Таких студентов нет')
End.
1
02.07.2015, 07:18
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2015, 07:18

Распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения
Распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения. I:...

Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 4, а все остальные оценки — 5.
Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 4, а все...

Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения
Подскажите пожалуйста, где здесь ошибка??? program laba_12_zad_3; type student=record...


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

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

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