Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
vsvladan
0 / 0 / 0
Регистрация: 07.03.2013
Сообщений: 53
#1

Ввести информацию по 10 участникам соревнований - Pascal ABC

07.03.2013, 09:23. Просмотров 1183. Ответов 1
Метки нет (Все метки)

Ввести информацию по 10 участникам соревнований (ФИО, год рождения, результат). Определить победителя соревнований. решите пожалуйста срочно
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 09:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ввести информацию по 10 участникам соревнований (Pascal ABC):

Ввести информацию по 25 студентам из группы. Переписать из исходного массива в другой массив, информацию о девочках - Pascal ABC
Определить комбинированный тип для представления анкеты студента, состоящей из его фамилии, дня рождения и пола. «День рождения» состоит...

Ввести информацию по 10 окружностям - Pascal ABC
Определить комбинированный тип, описывающий окружность и состоящий из двух полей: «радиус» и «центр». Поле «центр» в свою очередь состоит...

Записи. Ввести информацию по 10 спортсменам - Pascal ABC
Ввести информацию по 10 спортсменам (ФИО, рост, вес), определить количество людей, чей вес превышает 70 кг.

Ввести с клавиатуры информацию о классе учеников - Pascal
Задача: Ввести с клавиатуры информацию щ классе учеников. Исходными данными являются: порядковый номер ученика, экзаменационные оценки по...

Ввести информацию о товаре. Вывести итоговую стоимость каждого товара. - Pascal ABC
Ввести информацию о товаре (наименование, цена, количество, поле стоимость рассчитать как цена* количество). Вывести итоговую стоимость...

Ввести информацию по 10 избирателям, определить количество людей, проживающих на улице Красная - Pascal ABC
Ввести информацию по 10 избирателям, определить количество людей, проживающих на улице Красная.

1
ermolay
3430 / 2369 / 686
Регистрация: 04.12.2011
Сообщений: 3,965
07.03.2013, 11:22 #2
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
const
  n=3;
type
  sport=record
      name: string[30];
      god : integer;
      res : integer;
  end;
var
  a: array[1..n] of sport;
  i,imax: integer;
begin
  writeln('Введите результаты соревнований:');
  for i:=1 to n do
  begin
    writeln(i,'-й участник:');
    with a[i] do
    begin
      write('  Ф.И.О.: ');
      readln(name);
      write('  год рождения :');
      readln(god);
      write('  результат: ');
      readln(res);
    end;
  end;
  imax:=1;
  for i:=2 to n do
    if a[i].res>a[imax].res then imax:=i;
  writeln('Победитель соревнований - ',a[imax].name);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 11:22
Привет! Вот еще темы с ответами:

Записи: ввести информацию о студентах и напечатать фамилии и инициалы всех студенток второго курса - Pascal
Имеется следующая информация о каждом из n студентов: <фамилия>, <имя>, <отчество>, <пол>, <возраст>, <курс>. Написать программу, которая...

Ввести информацию о ценах на автомобили, либо об их количестве на складе в массив записей и вывести ее в виде таблицы - Pascal
Вот такая задача:Ввести информацию о ценах на автомобили, либо об их количестве на складе в массив записей и вывести ее в виде таблицы. ...

Класс,который хранит информацию об участниках спортивных соревнований - Visual C++
#include "Sport.h" #include<iostream> #include<string.h> #include<stdlib.h> #include<iomanip> using namespace std; int...

Ввести информацию о семи покупателях, ввести название товара и вывести тех людей, кто купил этот товар - C++
По заданию нужно ввести инфу о семи покупателяхх,потом нужно ввести название товара и должно вывести тех людей кто купили этот товар,если...


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

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

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