PRAVEDNIC
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Народ, молю о помощи. Нужно составить программу, где нужно использовать процедуру ввода и вывода. Задача: составить программу в которй нужно Сформировать массив записи, написать процедуру для ввода данных, написать процедуру для вывода данных. Написал. При запуске вводит данные. Всё хорошо. Но процедура вывода не работает. При пошаговой проверке ни одну переменную в процедуре просмотреть нельзя. Похоже, что данные не записываются во внешние переменные. Подскажите и укажите пожалуйста мою ошибку. Вот текст. Спасибо. program Proba; uses crt; type Tab=Record FIO:string; Tel:integer; Ye:integer; Kolob:integer; maney:integer; end; var ab:array[1..100] of Tab; i,k,n:integer; procedure VVOD; var i,n:integer; begin writeln('Введите число записей'); readln(n); for i:=1 to n do begin with ab[i] do begin clrscr; writeln('ФИО'); readln(FIO); writeln('Телефон'); readln(Tel); writeln('год подключения'); readln(ye); Writeln('Кол-во обонентов'); readln(Kolob); writeln('Оплата'); readln(Maney); end; end; end; procedure vivod; var ab:array[1..100] of Tab; i,k:integer; begin k:=0; for i:=1 to n do begin inc(k); with ab[i] do begin gotoXY(1,11);writeln('ФИО') ; gotoXY(30,11);write('Телефон'); gotoXY(40,11);write('Год подключения'); gotoXY(56,11);write('Кол-во обонентов'); gotoXY(69,11); write('Оплата'); gotoXY(1,k+11);writeln(fio); gotoXY(30,k+11); write(tel); gotoXY(40,k+11); write(ye); gotoXY(56,k+11); write(kolob); gotoXY(69,k+11); write(maney); end; end; end; begin VVOD; readln; vivod; readln; end. |