Получить информацию о названиях игрушек, цена которых не превышает 50 руб. и которые подходят детям до 5 лет.

@olegsever · Регистрация: 27.02.2012

Пусть дан массив, содержащий сведения об игрушках.Указываются название игрушки, ее стоимость в рублях и возрастное ограничение детей, для которых игрушка предназначена. Получить информацию о названиях игрушек, цена которых не превышает 50 руб. и которые подходят детям до 5 лет.
Оформить в виде процедуры.

@Ev[G]eN · 04.03.2012, 22:51

Pascal

const
  n = 3;
var
  Price, Limit: array[1..n] of integer;
  Name: array[1..n] of string[20];
  i: byte;
  
procedure Igrushki;
var
  i: byte;
begin
  for i:=1 to n do
    if (Price[i] <= 50) and (Limit[i] < 5) then write(Name[i], '; ');
end;
  
begin
  writeln('Введите сведение о ', n, ' игрушках: ');
  for i:=1 to n do
  begin
    write('Название ', i, ' игрушки: ');
    readln(Name[i]);
    write('Её стоимость: ');
    readln(Price[i]);
    write('Возрастное ограничение: ');
    readln(Limit[i]);
    writeln;
  end;
  writeln('Игрушки, для детей до 5 лет, стоимостью до 50 руб: ');
  Igrushki;
end.

@olegsever · 04.03.2012, 23:12 **[ТС]**

А может кто-нибудь оформить это в виде процедуры.

@Ev[G]eN · 04.03.2012, 23:16

olegsever, я исправил выше

@olegsever · 04.03.2012, 23:26 **[ТС]**

Спасибо большое, я просто не сразу заметил.
А вот это Напечатать множество всех натуральных чисел в диапазоне от 1 до 255, которые могут быть записаны в виде x^2+y^2 не посмотришь.

@olegsever 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 32
		1
	Получить информацию о названиях игрушек, цена которых не превышает 50 руб. и которые подходят детям до 5 лет. 04.03.2012, 22:37. Показов 1267. Ответов 4 Метки нет (Все метки) Пусть дан массив, содержащий сведения об игрушках.Указываются название игрушки, ее стоимость в рублях и возрастное ограничение детей, для которых игрушка предназначена. Получить информацию о названиях игрушек, цена которых не превышает 50 руб. и которые подходят детям до 5 лет. Оформить в виде процедуры. 0

@olegsever 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 32
	04.03.2012, 23:12 [ТС]	3
	А может кто-нибудь оформить это в виде процедуры. 0

@Ev[G]eN Mobile Software Engineer 5365 / 1584 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	04.03.2012, 23:16	4
	olegsever, я исправил выше 1

@olegsever 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 32
	04.03.2012, 23:26 [ТС]	5
	Спасибо большое, я просто не сразу заметил. А вот это Напечатать множество всех натуральных чисел в диапазоне от 1 до 255, которые могут быть записаны в виде x^2+y^2 не посмотришь. 0

Опции темы