Составить программу решения линейного уравнения

[Dimas27]

Составить программу решения линейного уравнения

Умные люди помогите пожалуйсто составить программу решения линейного уравнения ax=b .Заранее спасибо.

 

[Dimas27]

в турбо паскале забыл написать.

 

[Vladimir_S]

Умные люди помогите пожалуйсто составить программу решения линейного уравнения ax=b .Заранее спасибо.

Это, конечно, было невероятно сложно. Но всё же я справился, сам не знаю, как. Ну до чего умён!

Var
 a,b:Real;
Begin
 Repeat
  Write('a= ');
  Readln(a);
  if a=0 then writeln('Error: a=0. Enter another value');
 Until a<>0;
 Write('b= ');
 Readln(b);
 Writeln('x = ',b/a:0:5);
 Readln;
End.

 

[Dimas27]

Написал всё как вы показали. Мне выдаёт паскаль: Error 85: ";" experected.
Как это исправить или куда мне обратить внимание где может быть моя опечатка?

 

[Vladimir_S]

Написал всё как вы показали. Мне выдаёт паскаль: Error 85: ";" experected.
Как это исправить или куда мне обратить внимание где может быть моя опечатка?

А Вы не перенабирайте, а воспользуйтесь методом copy-paste. Прямо с выложенным листингом. А вообще - где-то разделитель "точка с запятой" пропустили.

 

[Dimas27]

наверно нуб полный но у меня не вставляется текст в паскаль =)

 

[Vladimir_S]

наверно нуб полный но у меня не вставляется текст в паскаль =)

Это делается так:
1. Выделяем текст.
2. Копируем в буфер.
3. Закрываем браузер.
4. Открываем любой Windows-редактор, напр. Notepad.
5. Копируем в него содержимое буфера.
6. Сохраняем в виде файла blabla.pas.
7. Открываем созданный файл в Турбо-среде.

 

[Dimas27]

Всё работает! спасибо большое! =))

 

[Dimas27]

Vladimir_S вы итак много сделали для меня , но немогли бы вы ешё в кратции расписать что каждая строчка делает? Не сочтите за наглость.

 

[Vladimir_S]

Vladimir_S вы итак много сделали для меня , но немогли бы вы ешё в кратции расписать что каждая строчка делает? Не сочтите за наглость.

Пожалуйста:

Var
 a,b:Real; [I]{задаем вещественные переменные a, b}[/I]
Begin [I]{начало программы}[/I]
 Repeat [I]{организуем циклический ввод переменной a; выход из цикла - когда будет введено a, отличное от 0}[/I]
  Write('a= '); [I]{выводим подсказку на экран перед вводом а}[/I]
  Readln(a); [I]{читаем введенное с клавиатуры значение а}[/I]
  if a=0 then writeln('Error: a=0. Enter another value'); [I]{проверякм условие равенства а нулю. Если оно истинно - выдаем сообщение об ошибке и повторяем ввод а}[/I]
 Until a<>0; [I]{конец цикла ввода а}[/I]
 Write('b= '); [I]{выводим подсказку на экран перед вводом b}[/I]
 Readln(b); [I]{читаем введенное с клавиатуры значение b}[/I]
 Writeln('x = ',b/a:0:5); [I]{выводим результат расчета: x=b/a с пятью знаками после десятичной точки}[/I]
 Readln; [I]{остановка выполнения программы; нужна для того, чтобы увидеть на экране результат}[/I]
End. [I]{конец программы}[/I]

 

[Dimas27]

Примного благодарен