|
Программирование С++, С#, учимся программировать, и делимся опытом |
![Ответ](images/royalflush/buttons/reply.gif) |
|
25.02.2008, 18:31
|
#21
|
Осваиваюсь
Регистрация: 03.01.2008
Сообщений: 119
Вы сказали Спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Pascal
Цитата:
1. не smile а slime!
2. почему это в паскале не прокатит подобная вещь? "x=5;y=6;print x+y;" или я не совсем понял что ты имел ввиду, но на паскале это можно написать следующим образом:
Код:
x = 5;
y = 6;
z = x + y;
WRITE(z);
да и писать в одну строку не абсурд, просто это кривой стиль, но компилятору по барабану в принципе ты хоть всю прогу в одну строку напиши он у тебя ее съест и не подавится))) (в случае если конечно код без ошибок) а вообще то правильно конечно все писать по BNF
|
= везде на := замени для начала)
Добавлено через 1 минуту
Цитата:
А в Си или Бейсике это можно написать в одну строку. Что иногда усложняет отлов багов.
|
Зачем все в 1 строку писать? Код плохо читаем без форматирования ... Ты сам в нем запутаешся ...
Последний раз редактировалось Хитрый_жук; 25.02.2008 в 18:32.
Причина: Добавлено сообщение
|
|
|
26.02.2008, 20:16
|
#22
|
Буду тут жить
Регистрация: 22.10.2007
Адрес: ПС-11
Сообщений: 63
Вы сказали Спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Pascal
Цитата:
= везде на := замени для начала)
|
блин касяг)) ща все поправлю
Цитата:
Зачем все в 1 строку писать? Код плохо читаем без форматирования ... Ты сам в нем запутаешся ...
|
+1 с форматированием код гораздо легче читаем да и выглядит красивее))
Последний раз редактировалось slime; 26.02.2008 в 20:20.
|
|
|
17.04.2008, 22:12
|
#23
|
Свой человек
Регистрация: 20.10.2007
Адрес: Iu
Сообщений: 576
Вы сказали Спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Pascal
Объясните как делать сортировку по возростанию ???
|
|
|
08.06.2008, 00:30
|
#24
|
Где я ?
Регистрация: 02.06.2007
Сообщений: 20
Вы сказали Спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
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;
вот короче нечто того.....я просто непойму что имено надо тебе
__________________
Я везде,я бесконечен
|
|
|
19.02.2009, 15:17
|
#25
|
Гейм мастер WoW
Регистрация: 11.12.2008
Сообщений: 149
Вы сказали Спасибо: 10
Поблагодарили 4,294,967,275 раз(а) в 4,294,967,295 сообщениях
|
Re: Pascal
Лучше без goto бы.
|
|
|
21.02.2009, 18:05
|
#26
|
Освоился
Регистрация: 12.10.2007
Адрес: Zadripansk
Сообщений: 220
Вы сказали Спасибо: 0
Поблагодарили 1 раз в 1 сообщении
|
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 в программе он ставил неуд без возможности пересдать.
|
|
|
22.02.2009, 01:22
|
#27
|
Освоился
Регистрация: 18.06.2007
Адрес: far, far away...
Сообщений: 280
Вы сказали Спасибо: 3
Поблагодарили 4 раз(а) в 4 сообщениях
|
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.
|
|
|
|
![Ответ](images/royalflush/buttons/reply.gif) |
|
Здесь присутствуют: 4 (пользователей: 0 , гостей: 4)
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
|
|