Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 61
1

записи и множества

17.05.2010, 07:16. Просмотров 406. Ответов 3
Метки нет (Все метки)

При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену не допускаются. Считая фамилии абитуриентов и их оценки после первого экзамена исходными данными, составить список абитуриентов, допущенных ко второму экзамену.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2010, 07:16
Ответы с готовыми решениями:

Записи и множества
При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко...

Записи и множества!!!
Описать множество Pr(1..20) и поместите в него все простые числа в диапазоне 1..20. в цикле...

записи и множества
1.Поля структуры: шифр книги, ФИО автора, название книги, год издания и признак наличия. 1) Выдать...

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

3
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 61
19.05.2010, 07:53  [ТС] 2
кто-то ответит или нет?
0
Модератор
60276 / 45382 / 31317
Регистрация: 18.05.2008
Сообщений: 109,018
19.05.2010, 08:04 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
34
35
36
uses crt;
type stud=record
          fam:string[20];
          ocn:2..5;
          end;
var a:array[1..100] of stud;
    n,i,k:byte;
begin
clrscr;
write('Количество абитуриентов n=');
readln(n);
writeln('Введите сведения о сдаче первого экзамена:');
for i:=1 to n do
 begin
  writeln('Абитуриент ',i);
  with a[i] do
   begin
    write(' Фамилия: ');readln(fam);
    repeat
    write(' Оценка (2..5): ');
    readln(ocn);
    until ocn in [2..5];
   end;
  end;
writeln;
writeln('Список абитуриентов, допущенных ко второму экзамену:');
k:=0;
for i:=1 to n do
if a[i].ocn>2 then
 begin
  k:=1;
  writeln(a[i].fam,'  ',a[i].ocn);
 end;
if k=0 then write('Допущенных ко второму экзамену нет!');
readln
end.
1
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 61
19.05.2010, 18:22  [ТС] 4
зачем ругаешься?
СПОСИБО
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2010, 18:22

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

Множества и записи на си
Нужно написать лекцию по програмированию, и один из пунктов "множества и записи". Уже обыскался в...

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

Pascal записи и множества
Определить и вывести на экран множество символов входящих только в имя, отчество или фамилию,...

Строки, записи, множества
В городе N имеется 100 кондитерских магазинов. Известно, что в каждом из этих магазинов не более 20...


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

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

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