Пролог

[Dog]

1. Создайте программу, решающую квадратное уравнение.
2. Создайте предикат, вычисляющий сумму цифр натурального числа.
3. Создайте предикат, вычисляющий произведение цифр натурального числа.
4. Создайте предикат, переводящий число из десятичной системы счисления в двоичную.
5. Создайте предикат, переводящий число из одной системы счисления в другую.

ПРолог не понимаю, помогите с однои любои задачеи, лучше с первои)

[MyLastHit]

Решение кв. уравн.
program KorniUravn;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a, b, c, x1, x2, d : real;
begin
writeln ( 'vvedite koefficienty a, b, c ');
readln (a,b,c);
d:=b*b-4*a*c;
if d<0 then
writeln ('net korney');
readln;

if d>0 then
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a) ;
writeln (x1:8:3,x2:8:3);


readln;
readln

end.


хз почму но у меня окно закрывается с ошибкой если там readln не поставить...программа работает

[Dog]

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

program KorniUravn;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a, b, c, x1, x2, d : real;
begin
writeln ( 'vvedite koefficienty a, b, c ');
readln (a,b,c);
d:=b*b-4*a*c;
if d<0 then
writeln ('net korney');
readln;

if d>0 then
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a) ;
writeln (x1:8:3,x2:8:3);


readln;
readln

end.


хз почму но у меня окно закрывается с ошибкой если там readln не поставить...программа работает

Спасиб канешно! но это в паскале)))))) в паскале это просто, а мне над в прологе(((((((((