Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Дамир1991
1 / 1 / 0
Регистрация: 19.10.2010
Сообщений: 51
#1

не могу наити ошибку - Pascal ABC

13.04.2011, 19:34. Просмотров 262. Ответов 0
Метки нет (Все метки)

надо записать в файл информацию в табличном виде о заказах на книгу. ошибка в следушем если ввести данные о нескольких заказах то вывод происходит ток об одном заказе, последнем.
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
 const n=3;
                    type
                     date=record
                      day:1..31;
                     mes:1..12;
                     end;
                     chit=record
                     nomer:integer;
                     fam:string[20];
                     end;
 
                    kniga=record
                    shifr:integer;
                    aftor:string[20];
                    nazvanie:string[20];
                    dt:date;
                    ch:chit;
                    end;
 
                procedure vvod(var kn:kniga);
                begin
                 write('шифр ');
                 readln(kn.shifr);
                 write('автор ');
                 readln(kn.aftor);
                 write('название ');
                 readln(kn.nazvanie);
                 write('№ чит билета ');
                 with kn.ch do
                 readln(nomer);
 
                 write('фамилия ');
                 readln(kn.ch.fam);
                 write('дата заказа ');
                 with kn.dt do
                 readln(day,mes);
 
                end;
 
 
 
              procedure vivod(kn:kniga);
              begin
               with kn,dt,ch do
                begin
                 write(shifr,'         ');
                 write(aftor,' ':15-length(aftor));
                 write(nazvanie,' ':14-length(nazvanie));
                   write(nomer,' ':14);
                 write(fam,' ':18-length(fam));
                 if day<10 then write('0');
                 write(day,'.');
                 if mes<10 then write('0');
                 write(mes);
                 writeln;
                 end;
                end;
                
           var
           k:kniga;
            t:file of kniga; i:integer;
          Begin
           assign(t,'fl.dat');
           writeln('введите инфу об ',n,' заказах');
           rewrite(t);
           for i:=1 to n do
            begin
             writeln(i,' заказ');
             vvod(k);
            end;
           writeln('шифр':7,'автор':13,'название':18,'№ чит билета':18,'фамилия':13,'дата заказа':19);
            for i:=1 to n do
            begin
             write(i:2,'.');
             vivod(k);
            end;
           close(t);
           end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2011, 19:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос не могу наити ошибку (Pascal ABC):

не могу наити ошибку - Pascal ABC
дан двумерный массив. наити максимальный и минимальный эл в какой-либо столбце и поменять их местами uses crt; const n=4; ...

наити ошибку в коде - Pascal
Дано действительное число x. Вычислить: (x-2)(x-4)(x-8)...(x-64)/(x-1)(x-3)(x-5)...(x-63) Считает через раз а если читает то...

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде - Pascal
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 считываются два числа m и n и далее в выходной...

Не могу найти ошибку!! не могу не как разобраться! надо до завтра. - Pascal
условие: Для 7 человек, среди которых есть мужчины и женщины, хранятся следующие данные: имя, пол (true - мужской, false - женский),...

наити бесконечную сумму - Pascal
Для заданного натурального k и действительного x подсчитать следующие выражения: S=∑kn=1 (((-1)^n+1)*x^(2n-1))/(2n-1)! ...

Треугольник наити стороны - Pascal ABC
треугольник задан велечинами своих углов и радиусом описанной окрухности. найти стороны тре-ка А=2R*sin(альфа) альфа-угол ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2011, 19:34
Привет! Вот еще темы с ответами:

наити сумму всех чисел - Pascal ABC
дана строка состоящая из букв и цифр. наити сумму всех цифр.

Наити предпоследную цифру числа - Pascal
В предположении,4то n&gt;=10 наити предпоследную цифру числа n!! pomogite sro4no nado!!!

Наити последьную цифру числа n. - Pascal
дано натуральное число n(n&lt;=100). в предположени что n&gt;=100 наити последьную цифру числа n. pomogite pojalusta sro4no nado!!

Наити наименьшую цифру в числе - Pascal
1)Дано натуральное число n, надо наити наименьшую цифру в числе. 2)В диалоговом режиме вводится некоторое число N (В диапазоне от 1 до...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru