|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.06.2008, 11:23 | #1 |
Регистрация: 14.06.2008
Сообщений: 6
|
Плиз, помогите с курсовым в Паскале!!!!СРОЧНО!!!!
Надо дописать код процедуры, которая рисует диаграмму зависимости к-ва авто от марки.И сделать какое-нибудь не оч сложное меню.Буду оч признательна))))
Вот код, выделенное доделать: Program Kurs; uses crt,graph; Type avtosalon = record model: string[100]; cena: real; kol: integer; cvet: string[100]; end; gen = object private f,tmpf:file of avtosalon; tmp:avtosalon; procedure readbuf; procedure readbufkl; procedure writebuf; procedure _show; public procedure init; procedure create; procedure add; procedure show; procedure search(m: string); procedure delete; procedure show_graphik; end; graphik = object(gen) procedure init; procedure show_line; procedure show; end; procedure graphik.init; Var b,d,e: integer; begin d:=detect; InitGraph(d,b,'') end; procedure graphik.show_line; var n:byte; xn,xk,yn,yk: integer; name: char; e: integer; begin e:=GraphResult; if e<>grOk then writeln(GraphErrorMsg(e)) else begin SetColor (black); OutTextXY (20,10,'Diagramma'); line (0,100,450,100); line (440,90,450,100); line (440,110,450,100); OutTextXY (440,115,'Marka'); line (55,35,55,150); line (45,45,55,35); line (65,45,55,35); OutTextXY (45,30,'K-vo'); end; end; Procedure graphik.show; Var n: integer; begin ......... end; procedure gen.init; begin assign (f,'Whole.dat'); assign (tmpf,'temp.txt'); end; procedure gen.delete; begin reset(f); rewrite(tmpf); while not(eof(f)) do begin readbuf; _show; writeln('delete this structure??? (y/n)'); if (readkey<>'y') then write(tmpf,tmp); end; end; procedure gen.search(m: string); var fl:boolean; begin fl:=false; reset(f); while not(eof(f)) do begin readbuf; if(tmp.model=m) then begin _show; fl:=true; end; end; if not(fl) then writeln('not found!!!'); close(f); end; procedure gen.add; begin reset(f); rewrite(tmpf); while not(eof(f)) do begin readbuf; write(tmpf,tmp); end; repeat readbufkl; write(tmpf,tmp); writeln('Press ESC to break'); until readkey=#027; close(f); close(tmpf); erase(f); rename(tmpf,'Whole.dat'); end; procedure gen.show; begin reset (f); clrscr; writeln ('|=============================AUT OSALON=====================|'); writeln ('| MODEL | Kolichestvo | Zena [$] | Cvet Korpusa |'); writeln ('|____________|_____________|_____ ___________|_______________|'); while (not eof(f)) do Begin read(f,tmp); with tmp do writeln ('| ',model,' ',kol,' ',cena:6:2,' ',cvet,' |' ); End; readkey; close(f); end; procedure gen._show; begin clrscr; writeln ('|=============================AUT OSALON=====================|'); writeln ('| MODEL | Kolichestvo | Zena [$] | Cvet Korpusa |'); writeln ('|____________|_____________|_____ ___________|_______________|'); with tmp do writeln ('| ',model,' ',kol,' ',cena:6:2,' ',cvet,' |' ); readkey; end; procedure gen.create; begin rewrite(f); repeat readbufkl; writebuf; writeln('Press ESC to break'); until readkey=#027; close(f); end; procedure gen.readbuf; begin read(f,tmp); end; procedure gen.writebuf; begin write(f,tmp); end; procedure gen.readbufkl; begin with tmp do begin writeln ('Vvedite marku avto'); readln (model); writeln ('Vvedite kolichestvo'); readln (kol); writeln ('Vvedite cenu [ $ ] '); readln (cena); writeln ('Vvedite cvet korpusa'); readln (cvet); end; end; Var key:string; tmp:gen; begin tmp.init; { tmp.create; tmp.show;} { tmp.add;} tmp.show; writeln('Please, enter find argument:'); read(key); tmp.search(key); end. |
15.06.2008, 14:59 | #2 |
Регистрация: 14.06.2008
Сообщений: 6
|
Люди,пожалуйста,только не молчите......Если все очень плохо, так и говорите
|
21.02.2009, 21:15 | #3 |
Пользователь
Регистрация: 18.02.2009
Сообщений: 20
|
ты лучше прочитай ещё про модуль Graph
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите плиз....срочно нада | masta_ag | Помощь студентам | 3 | 24.06.2008 08:31 |
Помогите СРочно,рчень..плиз !!! | X3m41k | Помощь студентам | 2 | 10.06.2008 23:58 |
!Помогите с Курсовым! | MyVLink | Паскаль, Turbo Pascal, PascalABC.NET | 14 | 04.06.2008 22:05 |
Edit помогите срочно плиз? -( | One.Love | Общие вопросы Delphi | 4 | 06.04.2008 09:58 |
Помогите плиз срочно с задачей | Raptor5 | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 27.01.2008 17:18 |