0 / 0 / 1
Регистрация: 27.10.2012
Сообщений: 55
1

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

04.11.2012, 19:12. Показов 1497. Ответов 1
Метки нет (Все метки)

«Работа с файлами» В качестве результата работы высылать программу и файл данных

Дан файл F, содержащий сведения об игрушках: название, стоимость в копейках, возрастные границы детей, для которых предназначена игрушка. Получить сведения:
а) названия игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет
б) названия наиболее дорогих игрушек (цена которых отличается от цены амой дорогой игрушки не более чем на 1 руб.)
в) названия игрушек, которые подходят детям как 4, так и 10 лет.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2012, 19:12
Ответы с готовыми решениями:

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

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

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

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

1
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
05.11.2012, 17:42 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
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
type
    igr=record
              name:string[100];
              cena:real;
              nv,kv:byte;
              end;
    fill=file of igr;
var f:fill;
    i,k,w:integer;
    a:igr;
 
procedure soz(var f:fill);
begin
assign(f,'igr.dat');
rewrite(f);
write('Kol-vo igryshek= '); readln(k);
for i:=1 to k do
    begin
    write('Name= ');readln(a.name);
    write('Cena(0.00)= ');readln(a.cena);
    write('Nat vozrast i kon vozrast igr= ');readln(a.nv,a.kv);
    write(f,a);
    end;
close(f);
end;
 
procedure pro(var f:fill);
begin
assign(f,'igr.dat');
reset(f);
while not eof(f) do
      begin
      read(f,a);
      with a do
           writeln(name,' ',cena,' p. ',nv,' - ',kv);
      end;
close(f);
end;
procedure n4d5(var f:fill);
begin
assign(f,'igr.dat');
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if (a.cena<4) and (a.nv<=5) and (a.kv>=5) then writeln(' ',a.name);
      end;
readln;
close(f);
end;
procedure dor(var f:fill);
var max:real;
begin
assign(f,'igr.dat');
reset(f);
max:=0;
while not eof(f) do
      begin
      read(f,a);
      if a.cena>max then max:=a.cena;
      end;
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if a.cena>=max-1 then writeln(' ',a.name);
      end;
readln;
close(f);
end;
procedure let(var f:fill);
begin
assign(f,'igr.dat');
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if (a.nv<=4) and (a.kv>=10) then write(' ',a.name);
      end;
close(f);
readln
end;
begin
w:=10;
while w<>0 do
      begin
      writeln('1- soz');
      writeln('2- prosmotr');
      writeln('3- cena<4 detim 5 ');
      writeln('4- dor igr ');
      writeln('5- 4 -10 let ');
      writeln('0- Vixod');
      readln(w);
      case w of
           1:soz(f);
           2:pro(f);
           3:n4d5(f);
           4:dor(f);
           5:let(f);
           end;
      end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.11.2012, 17:42
Помогаю со студенческими работами здесь

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

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

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

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

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

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


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

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

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