Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 1
Регистрация: 11.04.2018
Сообщений: 108
1

Выдать на экран фамилию ученика, который обучается на указанном инструменте наибольшее количество лет

13.04.2018, 21:09. Показов 735. Ответов 3
Метки нет (Все метки)

Не могу понять как составить программу
Имеются данные об учащихся музыкальной школы: фамилия, инструмент, количество лет обучения. Выдать на экран фамилию ученика, который обучается на указанном инструменте наибольшее количество лет

Программа должна выводить на экран меню с командами:
1 - создание файла
2 - просмотр файла
3 - добавление в файл
4 - обработка файла
5 - выход

Пользователь выбирает нужную команду, выполняет определенные действия и снова возвращается в меню (оператор GOTO не использовать!!!). При выборе последнего пункта программа завершает свою работу.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2018, 21:09
Ответы с готовыми решениями:

Найти и вывести фамилию ученика, который набрал самое большее количество оценок
Известно, что 22 ученика из 4-х предметов получают разные оценки. Найти и вывести фамилию ученика,...

Выдать номер ученика в классе, который получил минимальный балл на ЕГЭ
Выдать номер ученика в классе, который получил минимальный балл на ЕГЭ помогите пожалуйста с...

По рейтингу оценки ученика записать ее и фамилию ученика в конец текстового файла
Помогите создать приложение которое по рейтингу оценки ученика записывает ее и фамилию ученика в...

Многопоточность: вывести на экран символ, который встречается наибольшее количество раз в каждом из массивов
У меня есть такая задачка: Есть 3 массивы 1 содержит 2 миллиона символов 2 содержит 1000000...

3
Эксперт Pascal/Delphi
6636 / 4464 / 4746
Регистрация: 05.06.2014
Сообщений: 21,951
14.04.2018, 18:16 2
Цитата Сообщение от Егор Ю Посмотреть сообщение
обработка файла
В чем заключается обработка?
0
0 / 0 / 1
Регистрация: 11.04.2018
Сообщений: 108
16.04.2018, 19:36  [ТС] 3
можно пропустить этот пункт, не подскажете как остальное делать?
0
0 / 0 / 1
Регистрация: 11.04.2018
Сообщений: 108
18.04.2018, 19:29  [ТС] 4
Программа должна выводить на экран меню с командами:
1 - создание файла
2 - просмотр файла
3 - добавление в файл
4 - обработка файла
5 - выход
Пользователь выбирает нужную команду, выполняет определенные действия и снова возвращается в меню (оператор GOTO не использовать!!!). При выборе последнего пункта программа завершает свою работу.

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

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
uses crt;
type STUD=record
fam, instr:string[15];
kollet:real;
end;   
anketa=file of STUD;
var 
k,i,n,kol,b:integer;
    f1:biblio;
    max:real;
    a:kniga;  
    av:string[15];
begin
assign(f1, 'biblio.dat');
     b:=0;
     while b=0 do
     begin      
    clrscr;
writeln('1 - создание файла');
writeln('2 - просмотр файла');
writeln('3 - добавление в файл');
writeln('4 - обработка файла');
writeln ('5 - выход');
write('Сделайте выбор: '); readln (k);   
case k of 
  1:
         begin
clrscr;
write('Введите количество учеников: ');
readln(n);
rewrite(f1);          
              for i:=1 to n do
              with a do
              begin
                   writeln(i,'-й ученик ');
                   write('-фамилия: '); readln(fam);
                   write('-инструмент: '); readln(instr);
                   write('-количество лет обучения: '); readln(kollet);                  
                   write(f1,a);
              end;          
close(f1);        
writeln('Файл успешно создан');
readln;
 end;
        2:
        begin
clrscr;          
reset(f1);       
 readln;
 end;
 close(f1);
3:
clrscr;
write('Введите количество учеников: ');
readln(n);         
 reset(f1);
seek(f1,filesize(f1));         
for i:=1 to n do
  with a do
begin
writeln(i,'-й ученик ');
write('-фамилия: '); readln(fam);
write('-инструмент: '); readln(instr);
write('-количество лет обучения: '); readln(kollet);                  
write(f1,a);
  end;
close(f1);
writeln ('Ученики успешно добавлены');
readln;
end;
 
4:
begin
reset(f1);
max:=0;
for i:=1 to filesize(f1) do
begin
{считаем очередную книгу из файла}               
read(f1,a);
{проверяем ее на максимум}              
if a.kollet>max then
{запоминаем максимальную цену}                               
max:=a.kollet;
end;
{выводим найденную максимальную цену}
writeln('Ученик с максимальным количеством лет обучения= ',max:5:2);          
close(f1);
{в начале количество равно 0}          
{организуем цикл для чтения из файла}          
for i:=1 to filesize(f1) do
begin
{считываем очередную книгу}               
read(f1,a);
{если автор книги равен введенному значению}              
if a.avtor=av then
{увеличиваем количество книг на 1}                             
kol:=kol+1;
end;
{выводим количество найденных книг}         
writeln('Кол книг= ',kol);
{закрываем файл}         
close(f1);
readln;
end;
{если выбран 5 пункт (выход)
переменная b не равна 0, значит цикл выдачи меню завершается}
5: 
b:=1;
end;
end;
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2018, 19:29

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

Посчитать количество слов в указанном предложении и определить, содержит ли заданный текст Вашу фамилию
Дан текст. Посчитать количество слов в предложении. Содержит данный текст вашу фамилию?

Запросить у пользователя Фамилию Имя Отчество и выдать в сокращенном виде Фамилию И.О.
Visual basic Запросить у пользователя Фамилию Имя Отчество через пробел в одну строку(в Textbox) и...

Запросить у пользователя Фамилию Имя Отчество через пробел в одну строку и выдать в сокращенном виде Фамилию И. О.
Задание 7. Запросить у пользователя Фамилию Имя Отчество через пробел в одну строку и выдать в...

Определить фамилию победителя (участника, набравшего наибольшее количество баллов
К соревнованиям, проходившим в три тура, были допущены трое: Иванов, Петров, Сидоров. Иванов в...

Структура Магазины, найти фамилию владельца, имеющего наибольшее количество магазинов
Имеется файл «Магазины города», записи которого содержат следующие поля: название магазина, его...

Выдать курс и фамилии студенток по алфавиту, на котором обучается больше всего девушек
Нужно выдать курс и фамилии студенток по алфавиту, на котором обучается больше всего девушек....


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

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

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