|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2008, 21:54 | #1 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 20
|
Помогите дописать и исправить ошибку в задаче
Используя тип данных <<массив записей>> создать информационную
систему, с помощью которой можно ввести в память данные о наличии в магазине автомобилей различных фирм -производителей, марки, года выпуска и цены. Должна быть обеспечена возможность получить информацию об автомбилях по запросу по одному или одновременно по нескольким критериям: фирма-производитель, марка автомобиля, год выпуска цена. program zad_18; uses Crt; const n=10; type avto=record marka:string[30]; year,price,kolir:integer; end; var a1:array[1..7] of avto; i:integer; begin clrscr; for i:=1 to 7 do with a1[i] do begin writeln('lada:'); readln(marka); writeln('2001:'); readln(year); writeln('5000:'); readln(price); writeln('chervona:'); readln(kolir); end; writeln; writeln('Firma proponye taki mashini:'); for i:=1 to 7 do with a1[i] do writeln(marka:15,year:50,'$',price) ; writeln; write('Rozdrykykyemo informatsiju pro mawini,'); writeln('tsina jakix mensha,nizh $5000:'); for i:=1 to 7 do with a1[i] do if kolir=1 then writeln(marka:15,kolir); readln end. |
29.05.2008, 22:10 | #2 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 44
|
Вот код ввода данных о машинах:
Код:
Последний раз редактировалось ShnapS; 29.05.2008 в 23:28. |
29.05.2008, 22:44 | #3 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 20
|
ShnapS - БОЛЬШОЕ СПАСИБО НО НЕ ПОЛУЧАЕТЬСЯ с компиялтором не запускал почему??
|
29.05.2008, 23:11 | #4 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 20
|
кого может помочь мне немного!
Ни вопросов,ни ответов.Просто рапечатка информации в массиве записей,и то не об автомобилях,а о компьютерах! |
29.05.2008, 23:20 | #5 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 44
|
|
30.05.2008, 00:14 | #6 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 20
|
Код:
чего у меня не работает Последний раз редактировалось Vladislav_87; 30.05.2008 в 00:21. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 04.07.2008 12:27 |
Помогите исправить косяк в задаче на динамические переменные списки | Taisja | Помощь студентам | 2 | 31.05.2008 21:49 |
Пожалуйста срочно помочь мне исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 20.05.2008 20:46 |
Помогите исправить ошибку в задаче | VANOLORD | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 19.05.2008 22:16 |
помогите исправить ошибку. | alen666 | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 08.03.2008 16:43 |