Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197130
18.11.2019, 16:52
0.00 руб.
0 2 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Одна запись журнала учета содержит поля: код игрушки, название игрушки, тип игрушки, возрастные ограничения (например, от 6 лет), цена за единицу, количество в наличии, да та поступления в магазин, поставщик. Поиск - по дате поступления.

Pascal

Приложение:
Pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.11.2019, 16:40
общий
Адресаты:
Посмотрите этот вариант, подойдет?
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
22.11.2019, 13:10
общий
это ответ
Здравствуйте, rail!

Смотрите код:
[code lang=pascal]const
n=3;
type
tStr=string[30];
tToys=record
article:tStr;
name:tStr;
clas:tStr;
mutare:integer;
cost:real;
count:integer;
data:tStr;
diler:tStr;
end;
var
a:array[1..n]of tToys;
b:integer;
c:tStr;
begin
for b:=1 to n do
begin
writeln('parametrs toys[',b,']');
write('Enter article:=');readln(a[b].article);
write('Enter name:=');readln(a[b].name);
write('Enter class:=');readln(a[b].clas);
write('Enter mutare:=');readln(a[b].mutare);
write('Enter cost:=');readln(a[b].cost);
write('Enter count:=');readln(a[b].count);
write('Enter date:=');readln(a[b].data);
write('Enter diler:=');readln(a[b].diler);
writeln;
end;
writeln;
write('Enter parametr: arrivals date:=');readln(c);
b:=1;
while(b<=n)and(a[b].data<>c)do inc(b);
if b<=n then writeln('name:',a[b].name,' count:=',a[b].count)
else writeln('record no fount');
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа