Паскаль
-
Автор
Помогите ребят нужен код для создания программы в паскале!
Заплачу монетками кто поможет! -
Не в
курсе -
гугл ?
-
Автор
не могу найти
-
нету самому надо
-
крякай
-
хаахх 7-8 класс?
-
ахаха сам там же
-
Автор
9 класс
-
Задание кинь.Помогу.Только паскаль в технаре допрошли и на дельфи перешли :D:
-
В книжке по информатике их куча
-
Автор
вот что типо такого я пробовал ошибку пишет сказали правильно вроде но у меня не получается!
Program roots;
Var a,b,c,d,x1,x2: real;
Begin
repeat
writeln('enter a,b,c;a<>0');
readln(a,b,c)
until a<>0;
d:=bb-4ac;
if d>=0 then
begin
x1:=(-b+sqrt(d))/2a;
x2:=(-b-sqrt(d))/2*a;
writeln('x1=',x1,' x2=',x2);
end
else writeln('no roots')
end. -
после каждой строчки ; должна стоять,и условие лучше кинь и го в лс
-
Var A, B, C, D, X, X1, X2 : Real; Begin Writeln ('Введите коэффициенты уравнения (A, B, C) '); readln(a,b,c); If A=0 Then If B=0 Then If C=0 Then Writeln('X - любое число') Else Writeln('Корней нет! ') Else Begin X:=-C/B; Writeln('X=',X:8:3); End Else Begin D:=B*B-4*A*C; If D<0 Then Writeln ('Корней нет! ') Else Begin X1:=(-B+SQRT(D))/2/A; X2:=(-B-SQRT(D))/2/A; Writeln ('X1=', X1:8:3, ' X2=',X2:8:3); End; End; End. -
Автор
это можно переписывать уже в программу или что то изменять нужно?и что дает этот код?
