Вопрос по информатике:
Найдите ошибку пожалуйста
Program percentage;
uses crt;
var a,b,c,d:real;
begin
writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ.Искомую переменную обозначтье (0).');
write('Введите переменную a-');
read(a);
write('Введите переменную b-');
read(b);
write('Введите переменную c-');
read(c);
write('Введите переменную d-');
read(d);
writeln;
if a=0 then
begin
a:=c*b/d;
writeln(' Ответ:',a);
end;
if b=0 then
begin
b:=a*d/c;
writeln(' Ответ:',b);
end;
if c=0 then;
begin
c:=a*d/b;
writeln(' Ответ:',c);
end;
if d=0 then
begin
d:=c*b/a;
writeln(' Ответ:',d);
end;
writeln('Спасибо за использование программы!!!');
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.08.2015 00:34
- Информатика
- remove_red_eye 8090
- thumb_up 5
Ответы и объяснения 1
Program percentage;
uses Crt;
var
a,b,c,d:real;
begin
ClrScr;
Writeln('Здравствуйте!');
Writeln('Вас приветствует программа для нахождения процентов в заданиях ОГЭ');
Writeln('Искомую переменную обозначьте нулем');
Write('Введите через пробел значения a,b,c,d: ');
Read(a,b,c,d);
if a=0 then begin a:=c*b/d; Writeln('Ответ: ',a) end;
if b=0 then begin b:=a*d/c; Writeln('Ответ: ',b) end;
if c=0 then begin c:=a*d/b; Writeln('Ответ: ',c) end;
if d=0 then begin d:=c*b/a; Writeln('Ответ: ',d) end;
Writeln('Спасибо за использование программы!!!');
ReadKey
end.
Программа будет выводить несколько значений, если задать при вводе несколько нулей. Если так не должно быть, уточните алгоритм.
- 03.08.2015 00:09
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.