Просмотр полной версии : Турбо Паскаль! Помогите!
vitaminko
20-11-2009, 14:23
Очень надо написать программу на Lazaruse!!!!
Вообщем задача такая, внести координаты 3 точек найти точку наименее удаленную от начала координат
НА паскале или на Лазарусе?
Shurik20
20-11-2009, 14:29
не пупсии я так не умею((
и в чем проблема? в школе математику не учили?
vitaminko
20-11-2009, 14:32
на лазарусе
vitaminko
20-11-2009, 14:33
да двоешница блэ тупайааааа :rolleyes: :mad:
vitaminko
20-11-2009, 14:35
Ехх, Ваня(((
А чем паскаль и лазарус отличается?
Если на паскале то
var
x1,x2,x3,y1,y2,y3,x,y : integer;
s1,s2,s3 : real;
begin
x:=320;
y:=240;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
readln(x3);
readln(y3);
s1 := sqrt(sqr(x1-x) + sqr(y1-y));
s2 := sqrt(sqr(x2-x) + sqr(y2-y));
s3 := sqrt(sqr(x3-x) + sqr(y3-y));
if ((s1>s2) and (s1>s3)) then writeln('max point 1');
if ((s2>s1) and (s2>s3)) then writeln('max point 2');
if ((s3>s2) and (s3>s1)) then writeln('max point 3');
end;
Вроде так, не компилил и не проверял)
vitaminko
20-11-2009, 14:41
ага все поняла как )))) спасибо !!!
vitaminko
20-11-2009, 14:48
прост по разному пишутся программы
linar_ka
20-11-2009, 15:23
кто у вас?:rolleyes:
я ваще в нете сижу на информатике, там 2 рабочих стола в линуксе, на одном включаю лазарус, на другом мозила :D когда подходит ко мне, я типа пишу прогу :cool:
vitaminko
20-11-2009, 15:30
флорид файзиевич, ну такой лысый на половину:mad:
vitaminko
20-11-2009, 15:31
все, пара закончилась УРАаааааааааааааааа!!!
Shurik20
20-11-2009, 15:34
хорош флудить:D
пс бле я в аську зайти не могу:mad:
vitaminko
21-11-2009, 13:36
ск:mad: меня тоже бесит эта связь, старую мтс симку наверн скоро достану, Ё - гамно:mad:
Shurik20
22-11-2009, 20:39
номер только мне не забудь дать:)
Нужно сейчас решить задачку на паскале(информатика 1 курс) кто сможет помочь? заплачу
OsminogPauli
13-01-2011, 14:43
давай
когда-то писал программы на паскале 7.0..
пару расчётных программ есть - за них мне экзамены в школе засчитали..
ну и традиционно тетрис.. но я его не долелал..