Кто шарит в Delphi. - Форум

Стивин

Скаут

Репутация: 642

program test;
{$APPTYPE CONSOLE}
Var b,c,d:real;
begin
writeln ('vedite dva chesla');
Readln (c,d);
d:=Sqrt(Sqrt(sqr©-sqr(b)));
readln;
end.
Напишу числа программа сразу закрывается.
Где ошибся ?

Добавлено (24.11.2011, 17:27)
---------------------------------------------
up!

Сообщение # 1 написано 24.11.2011 в 17:27

onlineres

<<Фанат Регаско>>

Репутация: 1235

Quote (Стивин)

sqr©

это что?

И это паскаль вроде.

праграмист

Сообщение # 2 отредактировано onlineres - Четверг, 24.11.2011, 17:29

NiceDevil

Скаут

Репутация: 374

Quote (onlineres)

И это паскаль вроде.

одно и то же

Добавлено (24.11.2011, 17:31)
---------------------------------------------
Стивин, скажи по формуле что должно находить?

Сообщение # 3 написано 24.11.2011 в 17:31

onlineres

<<Фанат Регаско>>

Репутация: 1235

Проверил, все работает.
Находит он "корень 3 степени (c^2-b^2)"

Поверял на PascalABC

праграмист

Сообщение # 4 отредактировано onlineres - Четверг, 24.11.2011, 17:37

Стивин

Скаут

Репутация: 642

onlineres, это (с)

Добавлено (24.11.2011, 17:36)
---------------------------------------------
onlineres, хм( скок чисел вводишь?

Сообщение # 5 написано 24.11.2011 в 17:36

NiceDevil

Скаут

Репутация: 374

жаль у мну не паскаля, не дельфи не установлена...Но сам работаю на паскаль, но принципе суть не меняется...сказал бы что найти, смысл задачи..я мб бы и попробовал, а решенную задачу с формулой,я просто не могу понять...

Сообщение # 6 написано 24.11.2011 в 17:37

onlineres

<<Фанат Регаско>>

Репутация: 1235

2 числа, просто я добавил еще

Code

writeln (d);

праграмист

Сообщение # 7 написано 24.11.2011 в 17:37

NiceDevil

Скаут

Репутация: 374

у тебя вроде написано readln в конце...поидее задержка экрана, если ты имеешь ввиду почему она сразу закрывается

Добавлено (24.11.2011, 17:40)
---------------------------------------------
постой, ты вводишь два числа и программа потом закрывается?или как...

Сообщение # 8 написано 24.11.2011 в 17:40

Стивин

Скаут

Репутация: 642

NiceDevil, да как ввиду закрывается

Сообщение # 9 написано 24.11.2011 в 17:41

dekamarulol

Скаут

Репутация: 17

Code

program test;
{$APPTYPE CONSOLE}
Var b,c,d:real;
begin
writeln ('vedite dva chesla');
Readln (b,c);
d:=Sqrt(Sqrt(sqrt(b)-sqr(c)));
writeln d;
end.

Вот правильно

Сообщение # 10 написано 24.11.2011 в 17:42

NiceDevil

Скаут

Репутация: 374

dekamarulol, в конце readln поставь чтоб программу сразу после написания двух чисел не закрывалось, кстате я тоже понял что writeln d написания на экран не выдает)

Добавлено (24.11.2011, 17:44)
---------------------------------------------
program test;
{$APPTYPE CONSOLE}
Var b,c,d:real;
begin
writeln ('vedite dva chesla');
Readln (b,c);
d:=Sqrt(Sqrt(sqrt(b)-sqr©));
writeln d;
readln;
end.

Сообщение # 11 написано 24.11.2011 в 17:44

vladis777

Игрок

Репутация: 2107

Quote (dekamarulol)

program test; {$APPTYPE CONSOLE} Var b,c,d:real; begin writeln ('vedite dva chesla'); Readln (b,c); d:=Sqrt(Sqrt(sqrt(b)-sqr©)); writeln d; end.

b и c наоборот же

Code

program test;
{$APPTYPE CONSOLE}
Var b,c,d:real;
begin
writeln ('vedite dva chesla');
Readln (b,c);
d:=Sqrt(Sqrt(sqrt(c)-sqr(b)));
writeln d;
end.

Сообщение # 12 написано 24.11.2011 в 17:45

onlineres

<<Фанат Регаско>>

Репутация: 1235

Quote (dekamarulol)

Вот правильно

праграмист

Сообщение # 13 написано 24.11.2011 в 17:45

Стивин

Скаут

Репутация: 642

dekamarulol, неа( [Error] Project1.dpr(8): Missing operator or semicolon

Сообщение # 14 написано 24.11.2011 в 17:45

NiceDevil

Скаут

Репутация: 374

Никогда не любил дельфи...На паскале на мой взгляд на много удобнее)

Сообщение # 15 написано 24.11.2011 в 17:50

Стивин

Скаут

Репутация: 642

up!

Сообщение # 16 написано 24.11.2011 в 17:52

onlineres

<<Фанат Регаско>>

Репутация: 1235

Короче вот:

Code

program test;
{$APPTYPE CONSOLE}
uses crt;
var b,c,d:real;
begin clrscr;
writeln('vedite dva chesla');
readln(c,b);
if b>c then begin
writeln('Error - minus pod kornem');
readkey;
exit;
end;
d:=sqrt(sqrt(sqr(c)-sqr(b)));
writeln(d:3:2);
readkey;
end.

[cut]

[/cut]
Я думал, ты поймешь в чем ошибка после моего 3 ответа..
И лучше все таки chisla, а не chesla

праграмист

Сообщение # 17 отредактировано onlineres - Четверг, 24.11.2011, 18:06

Стивин

Скаут

Репутация: 642

Сообщение # 18 написано 24.11.2011 в 17:55

vladis777

Игрок

Репутация: 2107

Стивин,

Code

writeln (d);

так сделай и все

Сообщение # 19 написано 24.11.2011 в 17:56

dekamarulol

Скаут

Репутация: 17

у меня была ошибка, ага

Code

program test;
{$APPTYPE CONSOLE}
Var b,c,d:real;
begin
writeln ('vedite dva chesla');
Readln (b,c);
d:=Sqrt(Sqrt(sqrt(c)-sqr(b)));
writeln (d);
end.

Добавлено (24.11.2011, 17:57)
---------------------------------------------
а ещё после writeln (d);
pause добавь.
Вроде закрыватся не должна
или Sleep(100000);

Сообщение # 20 написано 24.11.2011 в 17:57

Стивин

Скаут

Репутация: 642

dekamarulol, readln

Сообщение # 21 написано 24.11.2011 в 18:01

Kugen

Потому Что Гладиолус

Репутация: 1564

Ээээ, посан пишет в делфи на паскале

Собираем "Клыки Отца" вместе!Оцените работу
Смотри,блинчик, только не нажимай!

Сообщение # 22 написано 24.11.2011 в 18:03

dekamarulol

Скаут

Репутация: 17

Kugen, да я тоже обратил на это внимание. Я пишу на delphi уже 5 лет и удивился такому синтаксису biggrin

Сообщение # 23 написано 24.11.2011 в 18:06

Kugen

Потому Что Гладиолус

Репутация: 1564

Quote (NiceDevil)

одно и то же

Собираем "Клыки Отца" вместе!Оцените работу
Смотри,блинчик, только не нажимай!

Сообщение # 24 написано 24.11.2011 в 18:07

Стивин

Скаут

Репутация: 642

Kugen, нас так учат)

Сообщение # 25 написано 24.11.2011 в 18:10

Kugen

Потому Что Гладиолус

Репутация: 1564

Стивин, условие задачи дай

Собираем "Клыки Отца" вместе!Оцените работу
Смотри,блинчик, только не нажимай!

Сообщение # 26 написано 24.11.2011 в 18:11

NiceDevil

Скаут

Репутация: 374

Kugen, одно и тоже...В дельфи решаем и в паскале, одни и те же задачи, у нас в группе кто на какой любит работать, не вижу разницы, я могу и на паскале, так и же и на дельфи решать задачи

Сообщение # 27 написано 24.11.2011 в 18:19

Kugen

Потому Что Гладиолус

Репутация: 1564

NiceDevil, языки похожи, но все же есть колоссальная разница

Собираем "Клыки Отца" вместе!Оцените работу
Смотри,блинчик, только не нажимай!

Сообщение # 28 написано 24.11.2011 в 18:22

NiceDevil

Скаут

Репутация: 374

Kugen, объясни мне разницу, я лично привык работать на паскале, но и на дельфи иногда приходиться...

Сообщение # 29 написано 24.11.2011 в 18:22

Kugen

Потому Что Гладиолус

Репутация: 1564

делфя это ООП, думаю в этом разница

Собираем "Клыки Отца" вместе!Оцените работу
Смотри,блинчик, только не нажимай!

Сообщение # 30 написано 24.11.2011 в 18:26

Страница 1 из 1 1
Модератор форума: No_MaTTeR, Dimitro, LightInDarkness

Вход на портал