Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
4 / 4 / 0
Регистрация: 29.05.2010
Сообщений: 9
1

Типизированные файлы

29.05.2010, 22:10. Показов 1002. Ответов 4
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Эту задачу уже решали и она правильно решена! Только мне нужно чтобы в этой задаче использовалась Procedura.
Задание:Дан файл f,содержащий сведения об игрушках:указывается название игрушки(например,кукла,кубики,мяч,конструктор и т.д.),ее стоимость в копейках и возрастные границы детей,для которых игрушка предназначена(например,для детей от двух до пяти лет).Получить следующие сведения:цены всех кубиков,оформленных по образцу ...руб, ...коп.
Заранее огромное спасибо!!!
Вот сама программа!
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

uses crt;
type igra=record
          nazv_e:string[20];
          stoim_t:10..10000;
          min_vozrast:1..4;
          max_vozrast:5..12;
          end;
const naz:array[1..5] of string[20]=('кубики','мяч','кукла','конструктор','лего');
      nmax=20;
Var f:file of igra;
    a:igra;
    i,n,w:byte;
Begin
clrscr;
Assign(f,'RGR3.dat');
rewrite(f);
repeat
write('Введите количество игрушек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите сведения о ',n,' игрушках:');
For i:=1 to n do
 begin
  writeln('Игрушка ',i);
  with a do
   begin
    repeat
    writeln(' название ');
    writeln('  1-кубики 2-мяч 3-кукла 4-конструктор 5-лего');
    readln(w);
    until w in [1..5];
    nazv_e:=naz[w];
    repeat
    write(' стоимость в копейках от 10 до 10000: ');
    readln(stoim_t);
    until (stoim_t>=10)and(stoim_t<=10000);
    repeat
    write(' минимальный возраст от 1 до 4: ');
    readln(min_vozrast );
    until min_vozrast in [1..4];
    repeat
    write(' максимальный возраст от 5 до 12: ');
    readln(max_vozrast );
    until max_vozrast in [5..12];
    write(f,a);
   end;
 end;
close(f);
clrscr;
writeln('Список игрушек':33);
writeln('------------------------------------------------------');
writeln('|  Название | Стоимость, коп. | Мин.возр.| Макс.возр.|');
writeln('------------------------------------------------------');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('|',nazv_e);
    gotoXY(13,whereY);write('|',stoim_t:8);
    gotoXY(31,whereY);write('|',min_vozrast:6);
    gotoXY(42,whereY);write('|',max_vozrast:6);
    gotoXY(54,whereY);writeln('|');
   end;
 end;
writeln('------------------------------------------------------');
close(f);
Readln
End.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 29.05.2010, 22:10
Ответы с готовыми решениями:

типизированные файлы
даны два символьных файла одинакового размера.проверить,совпадают ли их компоненты.если нет,то...

Типизированные файлы
Создать файл F1, компонентами которого являются целочисленные массивы a1,.., a10, закрыть его....

Не типизированные файлы.
Доброго времени суток. Прошу проверить логику программы. Задание следующие: Создать не...

типизированные файлы
сделал программу БД библиотеки..но не могу сделать следующее: 1)процедуры : 1)определить кол-во...

4
48 / 47 / 4
Регистрация: 25.05.2010
Сообщений: 100
29.05.2010, 22:24 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

uses crt;
type igra=record
nazv_e:string[20];
stoim_t:10..10000;
min_vozrast:1..4;
max_vozrast:5..12;
end;
const naz:array[1..5] of string[20]=('кубики','мяч','кукла','конструктор','лего');
nmax=20;
 fail=file of igra;
Procedure WriteFile(var f:file);
Var
a:igra;
i,n,w:byte;
Begin
clrscr;
Assign(f,'RGR3.dat');
rewrite(f);
repeat
write('Введите количество игрушек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите сведения о ',n,' игрушках:');
For i:=1 to n do
begin
writeln('Игрушка ',i);
with a do
begin
repeat
writeln(' название ');
writeln(' 1-кубики 2-мяч 3-кукла 4-конструктор 5-лего');
readln(w);
until w in [1..5];
nazv_e:=naz[w];
repeat
write(' стоимость в копейках от 10 до 10000: ');
readln(stoim_t);
until (stoim_t>=10)and(stoim_t<=10000);
repeat
write(' минимальный возраст от 1 до 4: ');
readln(min_vozrast );
until min_vozrast in [1..4];
repeat
write(' максимальный возраст от 5 до 12: ');
readln(max_vozrast );
until max_vozrast in [5..12];
write(f,a);
end;
end;
close(f);
procedure ReadFile(var f:fail);
clrscr;
writeln('Список игрушек':33);
writeln('------------------------------------------------------');
writeln('| Название | Стоимость, коп. | Мин.возр.| Макс.возр.|');
writeln('------------------------------------------------------');
reset(f);
while not eof(f) do
begin
read(f,a);
with a do
begin
gotoXY(1,whereY);write('|',nazv_e);
gotoXY(13,whereY);write('|',stoim_t:8);
gotoXY(31,whereY);write('|',min_vozrast:6);
gotoXY(42,whereY);write('|',max_vozrast:6);
gotoXY(54,whereY);writeln('|');
end;
end;
writeln('------------------------------------------------------');
close(f);
Readln
End;
var f:fail;
begin
clrscr;
WriteFile(f);
ReadFile(f);
readln
end.
Вот попробуй, не проверяла но должнол работать!
2
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.05.2010, 22:30 3
Adesh, А где остаток программы, где выводятся все цены кубиков руб.коп.? Я это писал, куда делось?

Добавлено через 55 секунд

Не по теме:

ZayKa^_^, Молодец, подсуетилась... Вперед меня.

1
48 / 47 / 4
Регистрация: 25.05.2010
Сообщений: 100
29.05.2010, 22:39 4
Puperov, стараемся)

Добавлено через 8 минут
Adesh,
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

uses crt;
type igra=record
nazv_e:string[20];
stoim_t:10..10000;
min_vozrast:1..4;
max_vozrast:5..12;
end;
Fail=file of igra;
const naz:array[1..5] of string[20]=('кубики','мяч','кукла','конструктор','лего');
nmax=20;
Procedure WriteFile(var f:fail);
Var
a:igra;
i,n,w:byte;
Begin
clrscr;
Assign(f,'RGR3.dat');
rewrite(f);
repeat
write('Введите количество игрушек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите сведения о ',n,' игрушках:');
For i:=1 to n do
begin
writeln('Игрушка ',i);
with a do
begin
repeat
writeln(' название ');
writeln(' 1-кубики 2-мяч 3-кукла 4-конструктор 5-лего');
readln(w);
until w in [1..5];
nazv_e:=naz[w];
repeat
write(' стоимость в копейках от 10 до 10000: ');
readln(stoim_t);
until (stoim_t>=10)and(stoim_t<=10000);
repeat
write(' минимальный возраст от 1 до 4: ');
readln(min_vozrast );
until min_vozrast in [1..4];
repeat
write(' максимальный возраст от 5 до 12: ');
readln(max_vozrast );
until max_vozrast in [5..12];
write(f,a);
end;
end;
close(f);
end;
procedure ReadFile(var f:fail);
Var a:igra;
Begin
clrscr;
writeln('Список игрушек':33);
writeln('------------------------------------------------------');
writeln('| Название | Стоимость, коп. | Мин.возр.| Макс.возр.|');
writeln('------------------------------------------------------');
reset(f);
while not eof(f) do
begin
read(f,a);
with a do
begin
gotoXY(1,whereY);write('|',nazv_e);
gotoXY(13,whereY);write('|',stoim_t:8);
gotoXY(31,whereY);write('|',min_vozrast:6);
gotoXY(42,whereY);write('|',max_vozrast:6);
gotoXY(54,whereY);writeln('|');
end;
end;
writeln('------------------------------------------------------');
close(f);
Readln
End;
var f:fail;
begin
clrscr;
WriteFile(f);
ReadFile(f);
readln
end.
Все исправила ошибки,теперь точно работает!
1
4 / 4 / 0
Регистрация: 29.05.2010
Сообщений: 9
29.05.2010, 23:01  [ТС] 5
[QUOTE=Puporev;764370]Adesh, А где остаток программы, где выводятся все цены кубиков руб.коп.? Я это писал, куда делось?

Puporev: Остальное мне пока просто не нужно, пока не мере до понедельника)). Мне щя только с вышепривиденным надо было! Спасибо за содействие!
1
29.05.2010, 23:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 29.05.2010, 23:01
Помогаю со студенческими работами здесь

Типизированные файлы
Помогите с составлением кода по теме типизированные файлы. Тоже условие задачи по теме...

типизированные файлы
Добрый ВЕЧЕР!Запарился с задачкой, помогите мне пожалуйста! Задан файл содержащий...

типизированные файлы
Люди, помогите пожалуйста с программой! Файл Finp содержит матрицу из m х n целых чисел....

Типизированные файлы
Нужна помощь с задачей: В файле f записей хранится следующая информация о товарах, имеющихся на...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru