1 / 1 / 1
Регистрация: 01.01.2011
Сообщений: 79
1

Вывести названия игрушек, которые подходят детям N лет, и стоимость которых не превышает M.

28.03.2011, 15:30. Показов 1576. Ответов 2
Метки нет (Все метки)

Создать файл F с информацией про игрушки: название, стоимость, возрастные рамки детей, для которых предназначена игрушка. Вывести названия игрушек, которые подходят детям N лет, и стоимость которых не превышает M.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2011, 15:30
Ответы с готовыми решениями:

Получить названия игрушек, цена которых не превышает 4 рублей и которые подходят детям до 5 лет
Помогите , пожалуйста, решить задачку на записи ....помогите девушке:-[ Пусть дан массив,...

Получить названия игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет
«Работа с файлами» В качестве результата работы высылать программу и файл данных Дан файл F,...

Вывести названия игрушек, которые подходят детям от 1 до 3 лет
1)Создать файл содержащий сведения об ассортименте игрушек в магазине. Структура записи: название...

Вывести названия игрушек, которые подходят детям N лет
Вот задача: Создать файл Ф с информацией про игрушки: название, стоимость, возрастные рамки детей,...

2
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
28.03.2011, 17:42 2
Лучший ответ Сообщение было отмечено unbelievable как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
const f='file.text';
type
toy = record
naim: string; //наименование
stoim: integer; //цена
age: record //рамки возраста
ot,ddo: integer; //от .. до .. лет
end;
end;
 
var
a: array[0..14] of toy; //массив записей
i,n,m: integer //цикл, возраст ребенка, желаемая стоимость
 
BEGIN
write('введите возраст ребенка: ');
readln(n);
write('введите желаемую стоимость игрушки: ');
readln(m);
for i:=0 to 14 do
begin
write('наименование: ');
readln(a[i].naim);
write('цена: ');
readln(a[i].stoim;
write('минимальный возраст: ');
readln(a[i].age.ot);
write('максимальный возраст: ');
readln(a[i].age.ddo);
end;
assign(output,f);
rewrite(output);
for i:=0 to 14 do
begin
write('наименование: ');
writeln(a[i].naim);
write('цена: ');
writeln(a[i].stoim);
write('минимальный возраст: ');
writeln(a[i].age.ot);
write('максимальный возраст: ');
writeln(a[i].age.ddo);
writeln;
end;
writeln('подходящие игрушки:');
for i:=0 to 14 do
if (n>=a[i].age.ot) and (n<=a[i].age.ddo) and (m>=a[i].stoim) then
writeln(a[i].naim);
close(output);
END.
1
45 / 45 / 15
Регистрация: 09.03.2011
Сообщений: 119
28.03.2011, 19:26 3
Или так :cofee2:
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program igrushki;
uses crt;
type
   zap=record
         name:string[30];
         zena:integer;
         minvzr:byte;
         maxvzr:byte;
       end;
var
   f:file of zap;
   k:zap;
   sym:char;
   v:byte;
   s,n,i,z:integer;
begin
clrscr;
 assign(f,'BDIGR.HLP');
 rewrite(f);
  repeat
    write('Naimenovanie: ');
    readln(k.name);
    write('Zena:         ');
    readln(k.zena);
    write('Min vozrast:  ');
    readln(k.minvzr);
    write('Max vozrast:  ');
    readln(k.maxvzr);
    write(f,k);
    n:=n+1;
    writeln;
    writeln('(EXIT - "N", Vvesti ezhe - "Enter")');  {Нажать "N" для завершения ввода записей, "Enter" для продолжения ввода записей}
    read(sym);
  until (sym='n');
  seek(f,0);
  repeat
     writeln;
     write('Vvedite vozrast rebenka ');
     readln(v);
     write('Vvedite zenu ');
     readln(z);
     s:=0;
     for i:=1 to n do
         begin
            seek(f,i-1);
            read(f,k);
            if (z >= k.zena) and (v>=k.minvzr) and (v <= k.maxvzr) then
              begin
               writeln('-----------------------------');
               writeln(k.name);
               s:=s+1;
              end
         end;
     if s > 0 then
       begin
          writeln('-----------------------------');
          write('(EXIT - "N", POISK - "Enter") '); {Нажать "N" для завершения поиска, "Enter" для продолжения поиска}
          read(sym);
       end
     else begin
            writeln;
            writeln('(Net takih igrushek)');
            writeln;
          end;
     writeln;
     write('(EXIT - "N", POISK - "Enter")');  {Нажать "N" для завершения поиска, "Enter" для продолжения поиска}
     read(sym);
  until (sym='n');
 close(f);
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2011, 19:26
Помогаю со студенческими работами здесь

Получить сведения о названиях игрушек, стоимость которых не превосходит 4 грв, и которые подходят детям 5 лет
Записи Сведениями об игрушках являются: название (конструктор, кукла и т. д.), стоимость...

Получить следующие сведения: названия игрушек, которые подходят как детям 4 лет, так и детям
Дан файл , содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики,...

Получить названия игрушек, которые подходят детям как четырех лет, таи и десяти лет
2. Дан файл Assort, содержащий сведения об игрушках: указывается название игрушки, ее стоимость в...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru