[Хитрый_жук]

Сообщение от slime [Ссылка заблокирована: Зарегистрируйтесь!]

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

x = 5;
y = 6;
z = x + y;
WRITE(z);

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

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

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

Сообщение от firstvirus [Ссылка заблокирована: Зарегистрируйтесь!]

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

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

[slime]

Сообщение от Хитрый_жук [Ссылка заблокирована: Зарегистрируйтесь!]

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

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

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

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

[Floris]

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

[Infinity]

эм...как то ваще не коректно поставлен вопрос но вот короче такую лажу попробуй может те имено это надо...
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]

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

[firstvirus]

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]

вапщет ваши 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.