Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш»

@Iriska · Регистрация: 16.04.2012

1. Даны названия 26-ти городов и стран, в которых они находятся. Среди них есть города, находящиеся в Италии. Напечатать их названия
2. Известно расписание поездов, проходящих через станцию: номер поезда, назначение (откуда куда, например, Москва – Омск), часы и минуты прибытия, часы и минуты отправления. Значения часов и минут целые, положительные; число часов не превышает 23, число минут – 59. Общее число проходящих поездов равно 25, Поезда приходят каждый день. По данному времени определить, какие поезда (номер и назначение) стоят в этот момент на станции.
3. Количество мячей, забитых и пропущенных футбольной командой в каждой из 22-х игр, записано в массиве, элементами которого являются величины типа «запись».
а) Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш».
б) Определить количество выигрышей данной команды.
в) Определить количество выигрышей и количество проигрышей данной команды

@ermolay · 21.05.2012, 16:01

1.

Pascal

const
  n=26;
type
  map=record
      citi: string;
      coun: string;
    end;
var
  a: array[1..n] of map;
  i: integer;
begin
  writeln('Введите данные о городах и странах:');
  for i:=1 to n do
  begin
    with a[i] do
    begin
      write(i,'-й город: ');
      readln(citi);
      write('    страна: ');
      readln(coun);
    end;
  end;
  writeln('Итальянские города:');
  for i:=1 to n do
    with a[i] do
      if coun='Италия' then
        writeln(citi);
  readln;
end.

Добавлено через 26 секунд
при тестировании программы n можно взять поменьше

@Iriska · 21.05.2012, 16:02 **[ТС]**

СПАСИБОЧКИ))))

@motorola · 18.11.2013, 21:38

напишите пожалуйста эту же программу, только в Delphi 7. Заранее спасибо!

Добавлено через 17 минут
ermolay, Пожалуйста!!! Это очень срочно!

@Iriska 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 30
		1
	Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш» 21.05.2012, 15:44. Показов 2964. Ответов 3 Метки нет (Все метки) 1. Даны названия 26-ти городов и стран, в которых они находятся. Среди них есть города, находящиеся в Италии. Напечатать их названия 2. Известно расписание поездов, проходящих через станцию: номер поезда, назначение (откуда куда, например, Москва – Омск), часы и минуты прибытия, часы и минуты отправления. Значения часов и минут целые, положительные; число часов не превышает 23, число минут – 59. Общее число проходящих поездов равно 25, Поезда приходят каждый день. По данному времени определить, какие поезда (номер и назначение) стоят в этот момент на станции. 3. Количество мячей, забитых и пропущенных футбольной командой в каждой из 22-х игр, записано в массиве, элементами которого являются величины типа «запись». а) Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш». б) Определить количество выигрышей данной команды. в) Определить количество выигрышей и количество проигрышей данной команды 0

@Iriska 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 30
	21.05.2012, 16:02 [ТС]	3
	СПАСИБОЧКИ)))) 0

@motorola 0 / 0 / 0 Регистрация: 18.11.2013 Сообщений: 10
	18.11.2013, 21:38	4
	напишите пожалуйста эту же программу, только в Delphi 7. Заранее спасибо! Добавлено через 17 минут ermolay, Пожалуйста!!! Это очень срочно! 0

Опции темы

Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш»

Решение