Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 21.01.2013
Сообщений: 24
1

Распечатать анкетные данные студентов, участвующих в олимпиаде по информатике и получивших не менее 30 баллов

21.01.2013, 16:10. Показов 1147. Ответов 1
Метки нет (Все метки)

152. Распечатать анкетные данные студентов, участвующих в олимпиаде по информатике и получивших не менее 30 баллов.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2013, 16:10
Ответы с готовыми решениями:

Распечатать анкетные данные студентов, набравших в олимпиаде по информатике не менее 30 баллов
Записи, распечатать анкетные данные студентов, участвовавших в олимпиаде по информатике и...

Структуры, вывести анкетные данные учеников, участвовавших в олимпиаде по информатике и заработавших не менее 30 баллов
Распечатать анкетные данные учеников, участвовавших в олимпиаде по информатике и заработавших не...

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

Распечатать данные учеников (ФИО,номер группы,школа),участвовавших в олимпиаде по информатике и набравшие не менее 30 баллов.
№3 Распечатать данные учеников (ФИО,номер группы,школа),участвовавших в олимпиаде по информатике и...

__________________
1
314 / 273 / 272
Регистрация: 25.09.2011
Сообщений: 477
22.01.2013, 13:08 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
const maxn = 100;
type
  str20 = string[20];
  tAnketa = record
    Fam,Nam,Ot : str20;
    god : word;
    mes,den : byte;
    Olimp : boolean;
    BallOlimp : word;
  end;
var
  Stud : array[1..maxn] of tAnketa;
  i,n : byte; ch : char;
Begin
  write('Skolxko studenow [n<100] : '); readln(n);
  writeln('wwedite dannye po nim :');
  for i:=1 to n do with Stud[i] do begin
    writeln('Student N ',i,' :');
    write('Familie : '); readln(fam);
    write('Imq : '); readln(nam);
    write('Otchestwo: '); readln(ot);
    write('God rovdeniq : '); readln(god);
    write('mesqc rovdeniq : '); readln(mes);
    write('denx rovdeniq : '); readln(den);
    write('Uchastwowal w Olimpiade ? [Y,N]: '); readln(ch);
    Olimp:= (ch='Y') or (ch='y');
    if Olimp then begin
      write('Skolko ballow nabral? : '); readln(BallOlimp);
    end;
    writeln;
  end;
  writeln('wot studenty na olimpiade i bolse 30 ballow:');
  for i:=1 to n do if Stud[i].Olimp and (Stud[i].BallOlimp>30) then with
  Stud[i] do write(fam:20,' ',nam:20,' ',ot:20,' : ',BallOlimp:4,' ball.');
  readln;
End.
3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2013, 13:08

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Распечатать анкетные данные студентов, получивших в последнюю сессию оценки 2
Распечатать анкетные данные студентов, получивших в последнюю сессию оценки 2. си Исходные...

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

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


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

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

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