RelaxДом - Pascal

RelaxДом (https://forum.relaxdom.net/index.php)

- Программирование (https://forum.relaxdom.net/forumdisplay.php?f=48)

- - Pascal (https://forum.relaxdom.net/showthread.php?t=798)

Veliar

05.11.2007 11:49

Pascal

если что непонятно спрашиваем. Попробуем обьяснить ;)
[Ссылка заблокирована: Зарегистрируйтесь!]
(вродебы:))

KrioS

14.11.2007 19:07

Re: Pascal

Выложи плиз интересную литературу по паскаль, а то этот устаревший хелп, меня уже достал:shok0000:

slime

15.11.2007 11:43

Re: Pascal

Народ, как запустить паскаль под вистой 64битной?))))

awel	15.11.2007 13:07

Re: Pascal

Попробуй компилятор FreePascal: [Ссылка заблокирована: Зарегистрируйтесь!]

slime

15.11.2007 22:15

Re: Pascal

Мы таким не пользуемся:) только TP7 (вернее CFPascal но это по сути тоже самое) и ничего другого))

Deny	15.11.2007 22:37

Re: Pascal

турбо паскаль рулед=)))

firstvirus

24.11.2007 08:43

Re: Pascal

То slime: А в чем трабла запуска? у меня все оки...

slime

24.11.2007 16:10

Re: Pascal

На 64битной висте он не запускается, поставил 32-х все оки стало

Skystar

17.12.2007 22:34

Re: Pascal

выложте сюда пофалуста фотку паскаля самого ученного

D3.K.

02.01.2008 16:40

Re: Pascal

А че функциональнее Visual Basic или Pascal ?
:50000001:

slime

02.01.2008 20:38

Re: Pascal

Паскаль, не смотря на то что он не может создавать приложения с графической оболочкой возможностей у него побольше чем у бэйсика

Хитрый_жук

31.01.2008 03:37

Re: Pascal

Цитата:

Сообщение от D3.K. (Сообщение 30263)

А че функциональнее Visual Basic или Pascal ?
:50000001:

А че бейсик ваще где то проходят еще чтоли?)

stak5

04.02.2008 15:49

Re: Pascal

лучше C++ :) а бейсик проходят.

Rock_Joker

08.02.2008 23:13

Re: Pascal

Смотря с какой стороны смотреть...

slime

08.02.2008 23:14

Re: Pascal

канешно С++ ну и вопрос)

-=RoveR=-

08.02.2008 23:39

Re: Pascal

Да действително... если ты ничего не шаришь в программирование, то учись на Паскале...

Хитрый_жук

09.02.2008 01:21

Re: Pascal

Цитата:

Сообщение от slime (Сообщение 40683)

канешно С++ ну и вопрос)

смотря кто пишет :) И если учиться то на паскале, если профессионально то лучше на си перелазить побыстрее

firstvirus

19.02.2008 03:46

Re: Pascal

Во первых сразу скажу что паскаль и си это апсолютно разные вещи. Си в понятии всех нюансов синтаксиса более сложен, ибо он придуман был как шутка на первое апреля. К примеру код на Си:
x=5;y=6;print x+y;
на паскале такое не прокатит. Писать несколько операторов в одну строку это если честно абсурд. Далее тут вопрос насчет Visual Basic и Pascal. Визуал бейсик это объектно-ориентированный язык, а паскаль нет. Вот если бы спросили что лучше Visual Basic и Object Pascal то я сказал бы что обжект паскаль гораздо эффективней и мощнее.
"Паскаль, не смотря на то что он не может создавать приложения с графической оболочкой возможностей у него побольше чем у бэйсика"(с)Smile
Что за чепуха??? В паскале прекрасно создается графическая оболочка для программ, юзайте библу windows.

slime

25.02.2008 00:44

Re: Pascal

1. не smile а slime!
2. почему это в паскале не прокатит подобная вещь? "x=5;y=6;print x+y;" или я не совсем понял что ты имел ввиду, но на паскале это можно написать следующим образом:

Код:

x := 5;

y := 6;

z := x + y;

WRITE(z);

да и писать в одну строку не абсурд, просто это кривой стиль, но компилятору по барабану в принципе ты хоть всю прогу в одну строку напиши он у тебя ее съест и не подавится))) (в случае если конечно код без ошибок) а вообще то правильно конечно все писать по BNF

firstvirus

25.02.2008 13:18

Re: Pascal

Цитата:

Сообщение от slime (Сообщение 45524)

Код:

x = 5;

y = 6;

z = x + y;

WRITE(z);

А в Си или Бейсике это можно написать в одну строку. Что иногда усложняет отлов багов.

Хитрый_жук

25.02.2008 18:31

Re: Pascal

Цитата:

Сообщение от slime (Сообщение 45524)

Код:

x = 5;

y = 6;

z = x + y;

WRITE(z);

= везде на := замени для начала)

Добавлено через 1 минуту

Цитата:

Сообщение от firstvirus (Сообщение 45630)

А в Си или Бейсике это можно написать в одну строку. Что иногда усложняет отлов багов.

Зачем все в 1 строку писать? Код плохо читаем без форматирования ... Ты сам в нем запутаешся ...

slime

26.02.2008 20:16

Re: Pascal

Цитата:

Сообщение от Хитрый_жук (Сообщение 45725)

= везде на := замени для начала)

блин касяг)) ща все поправлю=)

Цитата:

Зачем все в 1 строку писать? Код плохо читаем без форматирования ... Ты сам в нем запутаешся ...

+1 с форматированием код гораздо легче читаем да и выглядит красивее))

Floris

17.04.2008 21:12

Re: Pascal

Объясните как делать сортировку по возростанию ???

Infinity

07.06.2008 23:30

Re: Pascal

эм...как то ваще не коректно поставлен вопрос но вот короче такую лажу попробуй может те имено это надо...
procedure SortBubble(var a: Tdata);
var i, j: Integer;
tmp : integer;

begin

for i := 2to N do begin
for j := N downto i do
if a[j-1] > a[j] then begin //сравнение элэметов
tmp := a[j]; // jбмен элэментов местами
a[j] := a[j-1];
a[a-1] =: tmp
end
end;
end;

вот короче нечто того.....я просто непойму что имено надо тебе

Crash

19.02.2009 15:17

Re: Pascal

Лучше без goto бы.

firstvirus

21.02.2009 18:05

Re: Pascal

Program Kvadratnoe_yravnenie;
var a,b,c,D,x1,x2:real;
label 1,2,3;
begin
writeln('Введите число a');
read(a);
writeln('Введите число b');
read(b);
writeln('Введите число с');
read(c);
D:=b*b-4*a*c;
if D<0 then write('Корней нет');
else
if D=0 then x1:=-b/2*a
begin
write('Уравнение имеет два одинаквых корня x=', x1);
end;
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
write('Уравнение имеет два различных действительных корня ');
writeln('x1=',x1);
writeln('x2=',x2);
end;
end.

begin...end - используются как скобки исполняемого кода. Если ты не хочешь такие куски ставить в основной код то помести код в функцию и вызывай ее, но так будет дольше выполнятся программа, хотя это не заметно при нынешних мощах. Про существование goto забудь как страшный сон. Нет его и пользоваться низзя.
Я когда учился в РМТ у нас препод ставил баллы за выполненную работу. За goto в программе он ставил неуд без возможности пересдать.

yoshkin_kot

22.02.2009 01:22

Re: Pascal

вапщет ваши 2 проги с множеством ошибок :D
правильнее буит так:

Цитата:

var
a,b,c,x,x1,x2,d:real;
begin
writeln('Введи a:');
readln(a);
writeln('Введи b:');
readln(b);
writeln('Введи c:');
readln(c);
If a=0 then
begin
if b=0 then
begin
if c=0 then
begin
writeln('Бесконечное множество решений')
end
else
writeln('Уравнение не имеет смысла')
end
else
begin
x:=-c/b;
writeln('Корень уравнения равен:',x:5:2)
end;
end
else
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
writeln('Уравнение не имеет корней')
end
else
begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('Дискриминант:',d:5:2);
writeln('Первый корень уравнения равен:',x1:5:2);
writeln('Второй корень уравнения равен:',x2:5:2)
end;
end;
readln
end.

Часовой пояс GMT +4, время: 05:21.