![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
xekzzz |
![]()
Сообщение
#1
|
![]() __ ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: ______ Репутация: ![]() ![]() ![]() |
Здравствуйте, помогите мне пожалуйста дописать поиск !!! Заранее спасибо!!!
//Составьте список группы спортсменов участвовавших в соревнованиях по прыжкам в длину.
//Для каждого спортсмена укажите номер участника фамилию, имя, команду, результат.
//Осуществите поиск информаций о спортсменах, занявших первое, второе и третье место...
//в конце должно быть меню
//1)место
//2)место
//3)место
//как его можно сделать ???
program sl;
uses crt;
type
sp=record
fam,name,komand:string;
nom,rez:integer;
end;
var
m:array[1..100] of sp;
k,i,max:integer;
procedure gtx;
begin
write('vvedite koli4estvo u4astnikov ->');
readln(k);
for i:=1 to k do
with m[i] do
begin
write('vvedite imya->');
readln(name);
write('vvedite familiu->');
readln(fam);
write('vvedite komandu->');
readln(komand);
write('vvedite nomer->');
readln(nom);
write('vvedite rezyltat->');
readln(rez);
writeln;
writeln;
end;
end;
procedure poiskk;
begin
max:=0;
for i:=1 to k do
if m[i].rez > max then
max:=m[i].rez;
writeln(' ~~~pervoe mesto zanyal~~~');
writeln('_____________________________________________');
writeln('imya |','familiya|','komanda |','nomer |','rezyltat |');
writeln('_____________________________________________');
writeln(m[i].name:7,'|',m[i].fam:7,' |',m[i].komand:11,'|',m[i].nom:5,' |',max:9,'|');
end;
begin
gtx;
poiskk;
end.
|
мисс_граффити |
![]()
Сообщение
#2
|
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
не совсем поняла про меню.
мы должны выбрать, КАКОЕ место нас интересует (одно), и выведется фамилия? Как меню должно выглядеть - графическое, или достаточно простого "введите номер"? -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
xekzzz |
![]()
Сообщение
#3
|
![]() __ ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: ______ Репутация: ![]() ![]() ![]() |
1)Вводишь информацию о спортсменах
2)В конце появляется меню: нажмите 1 для просмотра данных спортсмена который занял первое место; нажмите 2 для просмотра данных спортсмена который занял второе место; нажмите 3 для просмотра данных спортсмена который занял третье место; не могу понять как второго и третьего в поиск записать ![]() |
xekzzz |
![]()
Сообщение
#4
|
![]() __ ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: ______ Репутация: ![]() ![]() ![]() |
Уже разобрался !!!
|
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 17:31 |