Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Dinara Sagitova
0 / 0 / 0
Регистрация: 21.12.2012
Сообщений: 16
1

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке

21.12.2012, 16:22. Просмотров 1074. Ответов 2
Метки нет (Все метки)

Дан файл Muz. Распечатать список учеников музыкальной школы, которые учатся играть на скрипке. Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах. решите пожалуйста) спасибо заранее!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2012, 16:22
Ответы с готовыми решениями:

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке.
Еще одна на записи, если не сложно скиньте код, что-то не нашел в поиске! ...

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке
Распечатать список учеников музыкальной школы, которые учатся играть на...

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке
А) Распечатать список учеников музыкальной школы, которые учатся играть на...

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

Определить сколько учеников учатся в самом малочисленном классе школы
Известно количество учеников в каждом из четырех классов каждой параллели школы...

2
Valery__
233 / 223 / 146
Регистрация: 19.03.2012
Сообщений: 369
21.12.2012, 17:08 2
Лучший ответ Сообщение было отмечено Dinara Sagitova как решение

Решение

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
{Дан файл Muz. Распечатать список учеников музыкальной школы, которые учатся играть на скрипке. Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах.}
Program spisok;
Const n=2;
Type uch=Record
          fam:string[20];{фамилия}
          inctr:string[20];{инструмент}
          stag:integer;{стаж}
          konk:integer;{участие в конкурсах 0-НЕТ,1-ДА}
     end;
Var muz:array[1..n] of uch;{массив записей}
    i:integer;
BEGIN
     Writeln('Введите записи');
     For i:=1 to n do
          begin
               Writeln(i);
               With muz[i] do begin
                    Writeln('Фамилия ');
                    readln(fam);
                    Writeln('Инструмент ');
                    readln(inctr);
                    writeln('Cтаж');
                    readln(stag);
                    writeln('Участие в конкурсах (0-НЕТ,1-ДА) ');
                    readln(konk);
               end;
          end;
    Writeln('');
    For i:=1 to n do begin
      if muz[i].inctr='скрипка' then begin
        With muz[i] do begin
                    Writeln('Фамилия ',fam);
                    Writeln('Инструмент ',inctr);
                    writeln('Cтаж',stag);
                    writeln('Участие в конкурсах (0-НЕТ,1-ДА) ',konk);    
        end;
      end;
    end;
END.
1
Dinara Sagitova
0 / 0 / 0
Регистрация: 21.12.2012
Сообщений: 16
23.12.2012, 20:18  [ТС] 3
спасибо, а документ нужно создавать в блокноте?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2012, 20:18

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке
Пожалуйста помогите с программкой... Распечатать список учеников музыкальной...

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

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


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

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

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