|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.06.2009, 19:27 | #11 |
Готов помочь
Пользователь
Регистрация: 06.06.2009
Сообщений: 27
|
uses crt,graph;
var A,B,C,buf,xmin,xmax:real; X1, X2: real; x,y:integer; D:real; GraphDriver, GraphMode : Integer; errcode:integer; begin clrscr; textcolor(6); writeln ('‚ў®¤ A,B,C'); readln (A,B,C); D:=B*B-4*A*C; if D<0 then begin textcolor(4); writeln ('Љ®а*Ґ© *Ґв, в.Є ¤ЁбЄаЁ¬Ё***в ¬Ґ*миҐ *®«п ',d:6:3,' < ',0); readln; exit; end; if D=0 then begin textcolor(4); writeln ('Љ®а*Ё а*ў*л, в.Є ¤ЁбЄаЁ¬Ё***в а*ўҐ* *®«о: ',d:6:3,' = 0', 'x1,x2 = ',-B/2*A:6:3); end; textcolor(6); writeln('„ЁбЄаЁ¬Ё***в а*ўҐ* = ', D:6:3); D:=Sqrt(D); x1:=(-B+D)/2*A; x2:=(-B-D)/2*A; textcolor(5); writeln ('X1=', x1:6:3); writeln ('X2=', x2:6:3); if x1>x2 then xmax:=x1; if x1<x2 then xmin:=x2; if x1=x2 then xmax:=x1; xmin:=x2; textcolor(4); writeln('xmin ',xmin:6:3); writeln('xmax ',xmax:6:3); textcolor(3); max:=round(xmax); min:=round(xmin); textcolor(2); writeln('Ќ*¦¬Ё*Ґ Enter '); readln; GraphDriver := Detect; errcode:=GraphResult; InitGraph(GraphDriver, GraphMode, 'D:\tp\bgi'); if errcode = grOk then line(200,240,500,240);{x} line(340,100,340,400);{y} x:=340; y:=240; putpixel(x+min,340,5); putpixel(x+max,340,5); end; readln; end. Извените если тут ошибочка где то! Я не компилировал писал прямо тут ! Если у кого будут вопросы пишите я дороботаю и объясню что и как здесь =)
В ВУЗе
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поясните задачу | HECTOR.A. | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 05.06.2009 23:33 |
Дайте советы начинающему! | RomT24 | Общие вопросы C/C++ | 7 | 24.05.2009 13:43 |
Поясните задачку(Delphi) | Ddr | Помощь студентам | 1 | 16.04.2009 21:45 |
Поясните ООП | sodd | Общие вопросы Delphi | 1 | 23.02.2009 14:14 |