Turbo Pascal 7.0

Indeoo

Дата: Воскресенье, 26 Июня 2011, 18:53:11 | Сообщение # 1

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Здравствуйте,
вот проблемка.
Я купил книгу-учебник паскаля.
Скатал программу-пример со второй главы и паскаль не отображает ответ при окне оутпут или алт+ф5.
Остальные примеры тоже неработают и я не могу понять почему.
Книга не должна быть с ошибками (у нас 7 мат. класс по ней учится).

Могут ли быть связаны пролемы с тем что у меня вин.7
И должен ли высвечиватся путь к файлу при включении интегрированой среды?

паскаль 7.0
Заранее спасибо

Бот Indeoo v2.1 © ClanNR enterteiment

Про всегда прав!

Sheogorath

Дата: Воскресенье, 26 Июня 2011, 18:59:36 | Сообщение # 2

10 уровень

Группа: Ветераны

Сообщений: 1285

Награды: 1

Репутация: 333

Блокировки:

Indeoo, программу кинь сюда.

Я вам, ребята, вот что скажу. Если у тебя в детстве не было велосипеда, а сейчас есть Бентли, то все равно в детстве у тебя не было велосипеда.
Если за все платить, деньги могут закончиться

Indeoo

Дата: Воскресенье, 26 Июня 2011, 19:17:06 | Сообщение # 3

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

http://psycho-test.org/test.php/test/2

Добавлено (26-06-2011, 19:17)
---------------------------------------------
Бл* че я за ссылку дал. Сек

Бот Indeoo v2.1 © ClanNR enterteiment

Про всегда прав!

edik97

Дата: Воскресенье, 26 Июня 2011, 19:18:48 | Сообщение # 4

Quote (Indeoo)

Я купил книгу-учебник.

дурак чтоли?

kegel

Дата: Воскресенье, 26 Июня 2011, 19:20:05 | Сообщение # 5

7 уровень

Группа: Проверенные

Сообщений: 252

Награды: 0

Репутация: 251

Блокировки:

Книга Шауцуковой ?

Indeoo

Дата: Воскресенье, 26 Июня 2011, 19:21:57 | Сообщение # 6

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Quote (edik97)

дурак чтоли?

Нет, а что?

Добавлено (26-06-2011, 19:21)
---------------------------------------------
http://dlh.softportal.com/b0/0/3/17bf0dc649862d46a74f9cf77dd06fad/tp7.zip

Бот Indeoo v2.1 © ClanNR enterteiment

Про всегда прав!

edik97

Дата: Воскресенье, 26 Июня 2011, 19:24:50 | Сообщение # 7

Quote (Indeoo)

Нет, а что?

зачем учебники то покупать

Sheogorath

Дата: Воскресенье, 26 Июня 2011, 19:24:50 | Сообщение # 8

10 уровень

Группа: Ветераны

Сообщений: 1285

Награды: 1

Репутация: 333

Блокировки:

Quote (Indeoo)

http://dlh.softportal.com/b0/0/3/17bf0dc649862d46a74f9cf77dd06fad/tp7.zip

я неправильно выразился. Кинь сюда текст программы.

Malfatto

Дата: Воскресенье, 26 Июня 2011, 19:35:03 | Сообщение # 9

Группа: Модераторы

Сообщений: 3806

Награды: 7

Репутация: 2425

Блокировки:

в конце программы перед "end." пиши всегда "ReadLn;", чтобы не приходилось открывать окно с текстом (не помню как оно называется уже).

Velm@ris

Дата: Понедельник, 27 Июня 2011, 13:53:43 | Сообщение # 10

1 3 3 7 bot

Группа: Ветераны

Сообщений: 587

Награды: 0

Блокировки:

Quote (Хамяг)

в конце программы перед "end." пиши всегда "ReadLn;"

не надо как бы

Quote (Indeoo)

Скатал программу-пример со второй главы и паскаль не отображает ответ при окне оутпут или алт+ф5.

ctrl+f9
ctrl+f5
или наоборот D: паскалем год не пользовался

Рекорд 1377.75р

Indeoo

Дата: Понедельник, 27 Июня 2011, 15:34:31 | Сообщение # 11

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

program roots2;
var a, b, c, x1, x2: real;
begin
WriteLn;
Write ('A':);
REad (a);
Write ('B:');
Read (b);
Write ('C:');
Read ©;
x1:=(-b+sqrt(sqr(b)-4*a*c)).(2*a);
x2=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
WriteLn ('x1=',x1);
WriteLn ('x2-',x2);
end.

Резултат должен вывести значения a,b и с. А также х1 и х2, а вместо этого просто выводит 1 раз A:

П.С х1 и х2 должны быть сумашедшыми по результатам.

Бот Indeoo v2.1 © ClanNR enterteiment

Про всегда прав!

Velm@ris

Дата: Понедельник, 27 Июня 2011, 15:44:24 | Сообщение # 12

1 3 3 7 bot

Группа: Ветераны

Сообщений: 587

Награды: 0

Блокировки:

Quote (Indeoo)

x2=(-b-sqrt(sqr(b)-4*a*c))/(2*a);

исправь на:
x2:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);

: не хватает

Добавлено (27-06-2011, 15:36)
---------------------------------------------

Quote (Indeoo)

x1:=(-b+sqrt(sqr(b)-4*a*c)).(2*a);

исправь на:
x1:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);

вместо . надо / как я понял

Добавлено (27-06-2011, 15:41)
---------------------------------------------

Quote (Indeoo)

Резултат должен вывести значения a,b и с. А также х1 и х2, а вместо этого просто выводит 1 раз A:

Code

program lol;
   var a,b,c,x1,x2: real;
begin
   readln(a);
   writeln('A: ',a);
   readln(b);
   writeln('B: ',a);
   readln(c);
   writeln('C: ',c);
   x1:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
   x2:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
   writeln ('x1=',x1);
   writeln ('x2=',x2);
end.

Добавлено (27-06-2011, 15:44)
---------------------------------------------

Quote (Indeoo)

Write ('A':);

и тут надо править на:
Write ('A:');

не там апостроф поставлен

это реально так написано в учебнике или у тебя пальцы кривые?

Рекорд 1377.75р

Indeoo

Дата: Понедельник, 27 Июня 2011, 15:50:55 | Сообщение # 13

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Velm@ris, со зрением не то скорее всего.=)

Добавлено (27-06-2011, 15:50)
---------------------------------------------
program lol;
var a,b,c,x1,x2: real;
begin
readln(a);
writeln('A: ',a);
readln(b);
writeln('B: ',a);
readln©;
writeln('C: ',c);
x1:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
x2:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
writeln ('x1=',x1);
writeln ('x2=',x2);
end.
Тоесть это на 100% исправлений пример?

Бот Indeoo v2.1 © ClanNR enterteiment

Про всегда прав!

Velm@ris

Дата: Понедельник, 27 Июня 2011, 15:52:04 | Сообщение # 14

1 3 3 7 bot

Группа: Ветераны

Сообщений: 587

Награды: 0

Блокировки:

Indeoo, думаю да, проверь

Рекорд 1377.75р

Indeoo

Дата: Понедельник, 27 Июня 2011, 15:52:59 | Сообщение # 15

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Теперь при нажатии run открывается пустое окно интегрированой среды

Бот Indeoo v2.1 © ClanNR enterteiment

Про всегда прав!

Velm@ris

Дата: Понедельник, 27 Июня 2011, 16:24:04 | Сообщение # 16

1 3 3 7 bot

Группа: Ветераны

Сообщений: 587

Награды: 0

Блокировки:

ctrl+f9
ctrl+f5

или наоборот

Добавлено (27-06-2011, 16:24)
---------------------------------------------
сначало же надо запустить программу, а потом уже открывать окно вывода

Рекорд 1377.75р

Indeoo

Дата: Понедельник, 27 Июня 2011, 16:31:35 | Сообщение # 17

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Velm@ris, ну да я же запустил.
А при кнтралах не пашет

Бот Indeoo v2.1 © ClanNR enterteiment

Про всегда прав!

Velm@ris

Дата: Понедельник, 27 Июня 2011, 16:41:29 | Сообщение # 18

1 3 3 7 bot

Группа: Ветераны

Сообщений: 587

Награды: 0

Блокировки:

попробуй
ctrl+f9
alt+f5
и наоборот =D

Рекорд 1377.75р

Indeoo

Дата: Понедельник, 27 Июня 2011, 17:46:31 | Сообщение # 19

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Дак алт+ф5 я и всегда юзаю

Добавлено (27-06-2011, 17:46)
---------------------------------------------
Ау

Velm@ris

Дата: Понедельник, 27 Июня 2011, 17:51:31 | Сообщение # 20

1 3 3 7 bot

Группа: Ветераны

Сообщений: 587

Награды: 0

Блокировки:

сейчас поставлю тп, если не будет работать, то хз, если будет выпрямляй пальцы, зрение или что там у тебя.

Добавлено (27-06-2011, 17:51)
---------------------------------------------
у меня не работает паскаль из-за оси ><

Рекорд 1377.75р

Indeoo

Дата: Понедельник, 27 Июня 2011, 17:57:29 | Сообщение # 21

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Velm@ris, реально все правильно ссверялся много раз.

Sheogorath

Дата: Понедельник, 27 Июня 2011, 18:17:52 | Сообщение # 22

10 уровень

Группа: Ветераны

Сообщений: 1285

Награды: 1

Репутация: 333

Блокировки:

Quote (Indeoo)

program lol;
var a,b,c,x1,x2: real;
begin
readln(a);
writeln('A: ',a);
readln(b);
writeln('B: ',a);
readln©;
writeln('C: ',c);
x1:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
x2:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
writeln ('x1=',x1);
writeln ('x2=',x2);
end.
Тоесть это на 100% исправлений пример?

Отморозки. Велм, у тебя он сперва СЧИТЫВАЕТ число A, а потом только выводит его. Потому и появляется пустое окно.

Надо так:
program arrgh;
var a,b,c,x1,x2: real
begin
writeln;
write ('vvedite a');
readln (a);
write ('vvedite b');
readln (b);
write ('vvedite c');
readln ©;
if (b*b - 4*a*c)<0 then break
else begin
x1:= ((-b + sqrt(b*b - 4*a*c))/2);
x2:= ((-b - sqrt(b*b - 4*a*c))/2);
writeln ('A:',a);
writeln ('B:',b);
writeln ('C:',c);
writeln ('x1',x1);
writeln ('x2',x2);
readln;
end;
end.

Проверь вот такой вариант. Писал без паскаля, но работать должно

Добавлено (27-06-2011, 18:17)
---------------------------------------------
тьфу, облажался маленько.

else begin
x1:= ((-b + sqrt(b*b - 4*a*c))/(2*a));
x2:= ((-b - sqrt(b*b - 4*a*c))/(2*a));

вот так надо.

Indeoo

Дата: Понедельник, 27 Июня 2011, 18:17:56 | Сообщение # 23

7 уровень

Группа: Проверенные

Сообщений: 258

Награды: 0

Репутация: 50

Блокировки:

Sheogorath, уже вижу что ты тут что-то накрутил

Sheogorath

Дата: Понедельник, 27 Июня 2011, 18:23:49 | Сообщение # 24

10 уровень

Группа: Ветераны

Сообщений: 1285

Награды: 1

Репутация: 333

Блокировки:

program roots2;
var a, b, c, x1, x2: real;
begin
WriteLn;
Write ('A:');
REad (a);
Write ('B:');
Read (b);
Write ('C:');
Read ©;
x1:=(-b+sqrt(sqr(b)-4*a*c)).(2*a);
x2=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
WriteLn ('x1=',x1);
WriteLn ('x2-',x2);
end.

давай разберемся, что у тебя делает эта программа.
читаем а
читаем б
читаем ц
присваиваем значение х1
присваиваем значение х2
выводим х1
выводим х2

Если ты нигде не налажал с коэффициентами так, что получился неположительный дискриминант, то все должно работать так.
Попробуй ввести коэффициенты 1, -3, 2.

Velm@ris

Дата: Понедельник, 27 Июня 2011, 18:24:50 | Сообщение # 25

1 3 3 7 bot

Группа: Ветераны

Сообщений: 587

Награды: 0

Блокировки:

Quote (Sheogorath)

Отморозки. Велм, у тебя он сперва СЧИТЫВАЕТ число A, а потом только выводит его. Потому и появляется пустое окно.

ну само собой сначало надо ввести а,б,с и потом смотреть результат, ты сказал и я понял, что до афтора не доходит =/

Добавлено (27-06-2011, 18:24)
---------------------------------------------
Indeoo, вобщем когда появляется окно, вводи 3 числа через энтер, первое будет а, второе б и третье с.
после с жмёшь энтер и программа срабатывает, затем открываешь результат.

Рекорд 1377.75р