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

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

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

При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену не допускаются. Считая фамилии абитуриентов и их оценки после первого экзамена исходными данными, составить список абитуриентов, допущенных ко второму экзамену.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2010, 07:16
Ответы с готовыми решениями:

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

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

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

Строки, записи, множества
Напечатайте все целые числа в диапазоне от 1 до 1600, которые представимы в виде x^2+y^2, но...

Записи и множества.Шахматы
Даны координаты n фигур на шахматной доске и координаты ладьи. Определить, сможет ли ладья за один...

3
Сантёр
0 / 0 / 0
Регистрация: 09.02.2010
Сообщений: 61
19.05.2010, 07:53  [ТС] 2
кто-то ответит или нет?
0
Puporev
Модератор
56630 / 43307 / 29938
Регистрация: 18.05.2008
Сообщений: 103,036
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
19.05.2010, 18:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.05.2010, 18:22

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

алгоритмы в паскале (на записи и множества ) не сложные:)
множества : задано множество типов компьютеров которыми могут быть объеденены кафедры IBM PS\2 MAC...

Отладка программ: массивы, записи, множества
Задание № 12. Двумерные массивы (I). Задача № 16 Получить матрицу: 1 2 3 … 9 10 0 1 2...


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

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

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