Квадратное уравнение

@Neic · Регистрация: 12.12.2010

Студворк — интернет-сервис помощи студентам

Вот недавно начал изучать Паскаль и написал квадратное уравнение ниже код, только вот паскаль не хочет его запускать. Укажите мою ошибку.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program kvadrat;
 
uses crt;
var a, b, c, d, x1, x2 : integer;
 
BEGIN
clrscr;
writeln('Укажите переменную a');
read(a);
writeln('Укажите переменную b');
read(b);
writeln('Укажите переменную c');
read(c);
 
d := b * b - 4 * a * c;
writeln ('Результат дескриминанта');
writeln (d);
writeln ('Если дескриминант < 0 то корней нет');
x1 := -b - sqrt(d) div 2;
writeln ('Результат x1');
writeln (x1) ;
x2 := -b + sqrt(d) div 2;
writeln ('Результат x2');
writeln (x2);
 
readln;
readln;
readln;
 
 
END.

@katenka · 12.12.2010, 17:13

нужно разбивать на условия, если дискриминант больше или меньше нуляс момощью If ... then...

@Neic · 12.12.2010, 17:16 **[ТС]**

Мне это пока не надо, мне надо чтобы квадратный корень считал.

@katenka · 12.12.2010, 17:19

Так он вам не отбросит значения дискриминанта меньшего нуля и просто не извлечет корень

в вашем случае
if d<0 then
writeln('корней нет');
else x:=(-b+sqrt(d))/2a;

и так далее

@Neic · 12.12.2010, 17:55 **[ТС]**

Переделал вот что вышло :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program kvadrat;
 
uses crt;
var a, b, c, d, x1, x2 : integer;
 
BEGIN
clrscr;
writeln('Укажите переменную a');
read(a);
writeln('Укажите переменную b');
read(b);
writeln('Укажите переменную c');
read(c);
 
d := b * b - 4 * a * c;
writeln ('Результат дескриминанта');
writeln (d);
if d<0 then begin
writeln('Корней нет');
else x1 := (-b - sqrt(d)) div 2 * a;
writeln ('Результат x1');
writeln (x1) ;
end
if d<0 then begin
writeln('Корней нет');
else x2 := (-b - sqrt(d)) div 2 * a;
writeln ('Результат x2');
writeln (x2);
end;
 
readln;
readln;
readln;
 
 
END.

Я недавно только начал изучать else, if , then еще не полностью освоился. Паскаль всеравно не хочет запускать приложение пишет:

Code
1
kvadtat.pas(20,1) Fatal: Syntax error, ";" expected but "ELSE" found

.

Добавлено через 20 минут
Или вот другой вариант построения программы, но тоже выдает ошибку :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program kvadrat;
 
uses crt;
var a, b, c, d, x1, x2, x3, x4, x5, x6 : integer;
 
BEGIN
clrscr;
writeln('Укажите переменную a');
read(a);
writeln('Укажите переменную b');
read(b);
writeln('Укажите переменную c');
read(c);
 
d := b * b - 4 * a * c;
writeln ('Результат дескриминанта');
writeln (d);
if (d<0) then begin
writeln('Корней нет');
end
 
else begin
x1 := sqrt(d);
x2 := -b - x1;
x3 := x2 div 2 * a;
 
writeln ('Результат x1');
writeln (x3);
x4 := sqrt(d);
x5 := -b + x4;
x6 := x5 div 2 * a;
writeln ('Результат x2');
writeln(x6);
end;
 
readln;
readln;
readln;
 
 
END.

@katenka · 12.12.2010, 17:56

после end поставьте;

@Neic · 12.12.2010, 17:58 **[ТС]**

Поставил, предыдущий пост обновил. Вся проблема в sqrt оно просто не хочет его читать.

@Tpou · 15.12.2010, 17:54

Добрый вечер) Попробуй взять вещественный тип данных и в место div используй обычное деление "/". И остаётся немного подкорректировать код, здесь ты на правильном пути. Ну а в остальном разберёшься сам наверное. =)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program kvadrat;
 
uses crt;
var a, b, c, d, x1, x2 : integer;
 
BEGIN
clrscr;
writeln('Укажите переменную a');
read(a);
writeln('Укажите переменную b');
read(b);
writeln('Укажите переменную c');
read(c);
 
d := b * b - 4 * a * c;
writeln ('Результат дескриминанта');
writeln (d);
if d<0 then begin
writeln('Корней нет');
else x1 := (-b - sqrt(d)) div 2 * a;
writeln ('Результат x1');
writeln (x1) ;
end
if d<0 then begin
writeln('Корней нет');
else x2 := (-b - sqrt(d)) div 2 * a;
writeln ('Результат x2');
writeln (x2);
end;
 
readln;
readln;
readln;
 
 
END.

@_антон_ · 15.12.2010, 19:05

Ещё не все переменные integer, могут быть и дробные!

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Dd;
uses CRT;
var
a,b,c:real;{ êîýôôèöèåíòû óðàâíåíèÿ }
xl,x2:real; { êîðíè óðàâíåíèÿ }
d:real;        { äèñêðèìèíàíò }
begin
writeln('Ââåäèòå â îäíîé ñòðîêå çíà÷åíèÿ êîýôôèöèåíòîâ');
readln(a,b,c);       { ââîä êîýôôèöèåíòîâ }
d:=b*b-4*a*c; { âû÷èñëåíèå äèñêðèìèíàíòà }
if d >=0
then
begin
xl:=-b+sqrt(d)/(2*a);
x2:=-b-sqrt (d)/(2*a);
writeln('Êîðíè óðàâíåíèÿ:');
writeln('xl=',xl:9:3);
writeln('x2=',x2:9:3);
end
else
writeln('Êîðíåé íåò');
end.

@Neic · 16.12.2010, 18:38 **[ТС]**

Mда, вы хоть знаете паскаль ? Вот этот знак деление "/" используется только при значении переменных "real". И _антон_ мне надо с integer, понимаешь ? Внимательней смотрите, перед тем как что то писать.

@Tpou · 16.12.2010, 23:25

Сообщение от Neic

Mда, вы хоть знаете паскаль ? Вот этот знак деление "/" используется только при значении переменных "real". И _антон_ мне надо с integer, понимаешь ? Внимательней смотрите, перед тем как что то писать.

Если ты его сам не давно изучаешь - значит ты его сам не особо знаешь. Для начала почитай с каким типом данных работает функция "sqrt" Тебе помочь хотели... а ты тут отписываешь "Мда....".

@Neic · 17.12.2010, 15:06 **[ТС]**

Если я не давно его изучаю это не значит что я не знаю моментов при которых не будут работать некоторые функции. Лучше почитай с каким типом данных работает "div" и "/". Возможно ты тоже недавно начал изучать Паскаль и уже пытаешься кому то помочь, на тебе это не написано. Я написал "Мда..." по вашим постам потому что знаю где можно применять "div" и "/" а где нет.

@Tpou · 17.12.2010, 21:13

Хорошо, без обид

В твоём случаи переменная d (дискриминант) у тебя объявлена как integer, а функция sqrt работает с типом real (вещественный) и объявляется так Function Sqrt (x:real): real; . Т.е. когда целое значение присваивается вещественной переменной, оно автоматически преобразуется в вещественный тип и никакие функции для этого не требуются (real := integer) Такое преобразование типов называется неявным. Обратного неявного преобразования нет: будет ошибкой пытаться присваивать переменной целого типа вещественный результат (integer := real). А чтобы использовать оператор div надо преобразовать переменную из real => integer, т.к. оператор div работает с переменными типа integer. Возможно ты имел ввиду так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program kvadrat;
uses crt;
var 
    a, b, c, d, x1, x2, i1, i2 : integer;
    o1, o2 : real;
    button : char;
begin
 repeat
 clrscr;
 writeln('Vvedite a,b,c: ');
 readln(a,b,c);
 writeln('');
  d:= b * b - 4 * a * c;
  writeln('Resultat deskriminanta: ',d);
if d>0 then
 begin
   o1:= sqrt(d);
   i1:= trunc(o1);        {преобразуем вещественное в целый тип, отбрасывая дробную часть}
   x1:= (-b + i1) div 2 * a;  {здесь переменные уже типа integer}  
    o2:= sqrt(d); 
    i2:= trunc(o2);       {преобразуем вещественное в целый тип, отбрасывая дробную часть}
    x2:= (-b - i2) div 2 * a;  {здесь переменные уже типа integer}
     writeln('Resultat x1: ',x1);
     writeln('Resultat x2: ',x2);
 end
else
 writeln('Korney net');
writeln('');
writeln('Prodolgit => y');
button:=readkey;
until button <> 'y'
end.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@katenka 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 11
	12.12.2010, 17:13
	нужно разбивать на условия, если дискриминант больше или меньше нуляс момощью If ... then... 0

@Neic 1 / 1 / 0 Регистрация: 12.12.2010 Сообщений: 16
	12.12.2010, 17:16 [ТС]
	Мне это пока не надо, мне надо чтобы квадратный корень считал. 0

@katenka 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 11
	12.12.2010, 17:19
	Так он вам не отбросит значения дискриминанта меньшего нуля и просто не извлечет корень в вашем случае if d<0 then writeln('корней нет'); else x:=(-b+sqrt(d))/2a; и так далее 0

@katenka 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 11
	12.12.2010, 17:56
	после end поставьте; 0

@Neic 1 / 1 / 0 Регистрация: 12.12.2010 Сообщений: 16
	12.12.2010, 17:58 [ТС]
	Поставил, предыдущий пост обновил. Вся проблема в sqrt оно просто не хочет его читать. 0

@Neic 1 / 1 / 0 Регистрация: 12.12.2010 Сообщений: 16
	16.12.2010, 18:38 [ТС]
	Mда, вы хоть знаете паскаль ? Вот этот знак деление "/" используется только при значении переменных "real". И _антон_ мне надо с integer, понимаешь ? Внимательней смотрите, перед тем как что то писать. 0

@Neic 1 / 1 / 0 Регистрация: 12.12.2010 Сообщений: 16
	17.12.2010, 15:06 [ТС]
	Если я не давно его изучаю это не значит что я не знаю моментов при которых не будут работать некоторые функции. Лучше почитай с каким типом данных работает "div" и "/". Возможно ты тоже недавно начал изучать Паскаль и уже пытаешься кому то помочь, на тебе это не написано. Я написал "Мда..." по вашим постам потому что знаю где можно применять "div" и "/" а где нет. 0