Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
seg
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 33
1

Структурированные типы: записи.

28.11.2009, 20:19. Просмотров 962. Ответов 2
Метки нет (Все метки)

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

Структурированные типы данных- записи
Написать программу: 1.После поступления в ВУЗ о студентах собрана информация:...

структурированные типы
Опишите структурированные типы для представления таких понятий: a. Цена в...

Структурированные типы турбопаскаль
Используя стандартные процедуры и функции получить из слова наличие, слово...

Структурированные типы данных. Файлы
две зада4ки с файлами))))) 1. Дан файл, элементы которого – целые числа....

Структурированные типы данных. Запись
Пример решения: Сведения о студентах представлены в виде:...

2
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
28.11.2009, 22:19 2
Лучший ответ Сообщение было отмечено seg как решение

Решение

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
uses crt;
type beg=record
         fm:string[20];
         im:string[20];
         ob:string[20];
         rs:real;
         end;
var z:array[1..100] of beg;
    n,i,imn:byte;
    mn:real;
begin
clrscr;
write('Количество спортсменов n=');
readln(n);
writeln('Введите данные о ',n,' спортсменах');
for i:=1 to n do
 begin
  writeln('Спортсмен ',i);
  write(' Фамилия: ');readln(z[i].fm);
  write(' Имя: ');readln(z[i].im);
  write(' Общество: ');readln(z[i].ob);
  write(' Результат: ');readln(z[i].rs);
 end;
mn:=z[1].rs;imn:=1;
for i:=1 to n do
if z[i].rs<mn then
 begin
  mn:=z[i].rs;
  imn:=i;
 end;
write('Лучший результат ',z[imn].rs:0:2,' имеет ',z[imn].fm,'  ',z[imn].im,'  ',z[i].ob);
readln
end.
1
seg
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 33
28.11.2009, 22:40  [ТС] 3
примного благодарен!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 22:40

Паскаль.Структурированные типы данных. Файлы.
Помогите решить задачу, никак не осилю: Дан файл, элементы которого - целые...

Структурированные типы данных. Символы и строки символов
ЗАДА4ка на строки HELP плз Дана символьная строка. Вывести на экран только те...

Сложные типы данных. Записи


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

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

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