Вопрос по информатике:
ПОМОГИТЕ ПОЖАЛУЙСТА ИСПРАВИТЬ ЗДЕСЬ ОШИБКИ
program lr28;
var a,x,z,b,c: integer;
d:real;
begin
writeln(' № equation');
readln(a);
writeln('variables');
readln(x,z,a,b,c);
case a of
d:((x-z)/(x+z));
writeln(d):
d:= -b/(2*a);
writeln(d):
d:= ((a*a*a)/abs(x-z));
writeln(d):
d:(sqrt(abs(b*b-4*a*c)));
writeln(d):
else writeln('error');
end;
end.
- 26.02.2018 13:36
- Информатика
- remove_red_eye 15624
- thumb_up 36
Ответы и объяснения 1
var k,a,b,c,x,z: integer;
d:real;
begin
write('№ equation: ');
readln(k);
writeln('variables:');
readln(x,z,a,b,c);
case k of
1: begin d:=(x-z)/(x+z); writeln(d); end;
2: begin d:=-b/(2*a); writeln(d); end;
3: begin d:=(a*a*a)/abs(x-z); writeln(d); end;
4: begin d:=sqrt(abs(b*b-4*a*c)); writeln(d); end;
else writeln('error');
end;
end.
- 27.02.2018 13:33
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.