Другие языки программирования и технологии

Помогите с программириванием. Пожалуйста, срочно!!!

1) Требовалось написать программу, которая решает уравнение « a|x|=b » относительно x для любых чисел a и b , введенных с клавиатуры. Все числа считаются действительными. Программист торопился и написал программу неправильно: var a,b,x: real; begin readln(a,b,x); if a = 0 then if b = 0 then write ('любое число') else write ('нет решений') else if b = 0 then write('x = 0') else write('x =',b/a,' или x =',-b/a); end. Последовательно выполните три задания: 1.Приведите пример таких чисел a, b, x, при которых программа неверно решает поставленную задачу. 2.Укажите, какая часть программы является лишней. 3.Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
Андрей Муртазин
Андрей Муртазин
439
1) Неверное решение, когда a и b разных знаков. Ведь x под модулем, а значит знак b должен быть как и знак числа a.
2) Лишним является запрос от пользователя переменной x в строке readln(a,b,x). Достаточно запросить a и b.
3)
var a,b,x: real;
begin
readln(a,b);
if a = 0 then
if b = 0 then write ('любое число')
else write ('нет решений')
else begin
if b = 0 then write('x = 0');
if ((a<0) and (b>0)) or ((a>0) and (b<0)) then write('нет решений')
else write('x =',b/a,' или x =',-b/a);
end;
end.
Андрей Анисенко
Андрей Анисенко
4 639
Лучший ответ
элсы с ифами криво стоят надо их бегинами выравнивать ...
Эльдар Закиров
Эльдар Закиров
59 824
товарищи) ) а кто модуль будет ставить? решения верные только что-то не вижу модуля, а в исходном примере есть)))
АМ
Андрей Макеев
20 142
if b = 0 then
write ('любое число')
else write ('нет решений')
else
if b = 0 then <------------------------какой смысл проверять b на равенство 0, если такая проверка уже была выше? этот код не выполнится
Никита Милюков
Никита Милюков
5 701
Вроде все правильно.
Может прокатит, иди сдавай.
Серега Ахметзянов
Серега Ахметзянов
1 222
пишите так:
var a,b:real;
begin
write('Введите A: ');
Readln(a);
write('Введите B: ');
Readln(b);
If (b=0)and(a=0)
then
writeln('X - любое число')
else
if a=0
then
writeln('нет решений')
else
if b=0
then
writeln('x = 0')
else
writeln('x = ',b/a);
readkey;
end.

программисты блин, а то что линейное уравнение имеет только один корень вас не учили?
Den Захряпин
Den Захряпин
593
обрати внимание на последную строку там должен быть
writeln('x = ',b/a);
writeln('x = ',-b/a);

пишите так:
var a,b:real;
begin
write('Введите A: ');
Readln(a);
write('Введите B: ');
Readln(b);
If (b=0)and(a=0)
then
writeln('X - любое число')
else
if a=0
then
writeln('нет решений')
else
if b=0
then
writeln('x = 0')
else
begin
writeln('x = ',b/a);
writeln('x = ',-b/a);
end;
readkey;
end.
Алекс Умнов
Алекс Умнов
129

Похожие вопросы