Технический форум - Составить программу решения линейного уравнения

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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

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

Цитата:

Сообщение от Dimas27 (Сообщение 650740)

Умные люди помогите пожалуйсто составить программу решения линейного уравнения 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.

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

Цитата:

Сообщение от Dimas27 (Сообщение 650765)

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

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

Цитата:

Сообщение от Dimas27 (Сообщение 650785)

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

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

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

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

Цитата:

Сообщение от Dimas27 (Сообщение 650825)

Пожалуйста:

Код:

Var

 a,b:Real; {задаем вещественные переменные a, b}

Begin {начало программы}

 Repeat {организуем циклический ввод переменной a; выход из цикла - когда будет введено a, отличное от 0}

  Write('a= '); {выводим подсказку на экран перед вводом а}

  Readln(a); {читаем введенное с клавиатуры значение а}

  if a=0 then writeln('Error: a=0. Enter another value'); {проверякм условие равенства а нулю. Если оно истинно - выдаем сообщение об ошибке и повторяем ввод а}

 Until a<>0; {конец цикла ввода а}

 Write('b= '); {выводим подсказку на экран перед вводом b}

 Readln(b); {читаем введенное с клавиатуры значение b}

 Writeln('x = ',b/a:0:5); {выводим результат расчета: x=b/a с пятью знаками после десятичной точки}

 Readln; {остановка выполнения программы; нужна для того, чтобы увидеть на экране результат}

End. {конец программы}

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