История изменений
Исправление MOPKOBKA, (текущая версия) :
Уже была, когда приводили в пример один и тот же алгоритм, записанный на С++ и Паскале.
Уже было с инклюдами
Получается что BASIC подходит лучше? Там нету даже program, begin, end.
Dim as Double a, b, c, d
Input "a=", a
Input "b=", b
Input "c=", c
d = b^2 - 4*a*c
if d = 0 then
print "x=", -b/2/a
elseif d > 0 then
print "x1=", (-b+sqr(d))/2/a
print "x2=", (-b-sqr(d))/2/a
else
print "Решения нет"
endif
program Quadratic;
var A,B,C,D: Real;
begin
write('A = ');
readln(A);
write('B = ');
readln(B);
write('C = ');
readln(C);
D := B*B-4*A*C;
if (D=0) then
begin
writeln('x = ',-B/2.0/A);
end;
if (D>0) then
begin
writeln('x1 = ',(-B+Sqrt(D))/2.0/A);
writeln('x2 = ',(-B-Sqrt(D))/2.0/A);
end;
if (D<0) then
begin
writeln('Решения нету');
end;
end.
Обратись к Столярову.
Он собирает статистику?
Исправление MOPKOBKA, :
Уже была, когда приводили в пример один и тот же алгоритм, записанный на С++ и Паскале.
Уже было с инклюдами
Получается что BASIC подходит лучше? Там нету даже program, begin, end.
Dim as Double a, b, c, d
Input "a=", a
Input "b=", b
Input "c=", c
d = b^2 - 4*a*c
if d = 0 then
print "x=", -b/2/a
elseif d > 0 then
print "x1=", (-b+sqr(d))/2/a
print "x2=", (-b-sqr(d))/2/a
else
print "Решения нет"
endif
program Quadratic;
var A,B,C,D: Real;
begin
write('A = ');
readln(A);
write('B = ');
readln(B);
write('C = ');
readln(C);
D := B*B-4*A*C;
if (D=0) then
begin
writeln('x = ',-B/2.0/A);
end;
if (D>0) then
begin
writeln('x1 = ',(-B+Sqrt(D))/2.0/A);
writeln('x2 = ',(-B-Sqrt(D))/2.0/A);
end
end.
Обратись к Столярову.
Он собирает статистику?
Исправление MOPKOBKA, :
Уже была, когда приводили в пример один и тот же алгоритм, записанный на С++ и Паскале.
Уже было с инклюдами
Получается что BASIC подходит лучше? Там нету даже program, begin, end.
Dim as Double a, b, c, d
Input "a=", a
Input "b=", b
Input "c=", c
d = b^2 - 4*a*c
if d = 0 then
print "x=", -b/2/a
elseif d > 0 then
print "x1=", (-b+sqr(d))/2/a
print "x2=", (-b-sqr(d))/2/a
else
print "Решения нет"
endif
program Quadratic;
var
A,B,C,D: integer;
begin
write('A = ');
readln(A);
write('B = ');
readln(B);
write('C = ');
readln(C);
D := B*B-4*A*C;
if (D=0) then
begin
writeln('x = ',-B/2.0/A);
end;
if (D>0) then
begin
writeln('x1 = ',(-B+Sqrt(D))/2.0/A);
writeln('x2 = ',(-B-Sqrt(D))/2.0/A);
end
end.
Обратись к Столярову.
Он собирает статистику?
Исправление MOPKOBKA, :
Уже была, когда приводили в пример один и тот же алгоритм, записанный на С++ и Паскале.
Уже было с инклюдами
Получается что BASIC подходит лучше? Там нету даже program, begin, end.
Dim as Double a, b, c, d
Input "a=", a
Input "b=", b
Input "c=", c
d = b^2 - 4*a*c
if d = 0 then
print "x=", -b/2/a
elseif d > 0 then
print "x1=", (-b+sqr(d))/2/a
print "x2=", (-b-sqr(d))/2/a
else
print "Решения нет"
endif
Обратись к Столярову.
Он собирает статистику?
Исходная версия MOPKOBKA, :
Уже была, когда приводили в пример один и тот же алгоритм, записанный на С++ и Паскале.
Уже было с инклюдами
Получается что BASIC подходит лучше? Там нету даже program, begin, end.
Dim as Double a, b, c, d
Input "a=", a
Input "b=", b
Input "c=", c
d = b^2 - 4*a*c
if d = 0 then
print "x=", -b/2/a
elseif d > 0 then
print "x1=", (-b+sqr(d))/2/a
print "x2=", (-b-sqr(d))/2/a
else
print "Решения нет"
endif