11.01.2012, 13:13 | #1 (permalink) |
Новичок
Регистрация: 11.01.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Составить программу решения линейного уравнения
|
11.01.2012, 13:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, что решение вашего вопроса имеется где то тут Составить программу решения квадратного уравнения, Паскаль Прошу составить программу на Паскале Помогите составить программу на Паскале Составить блок-схему и программу Разработать алгоритм и составить программу для решения задачи |
11.01.2012, 14:29 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
11.01.2012, 14:45 | #4 (permalink) |
Новичок
Регистрация: 11.01.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Написал всё как вы показали. Мне выдаёт паскаль: Error 85: ";" experected.
Как это исправить или куда мне обратить внимание где может быть моя опечатка? |
11.01.2012, 15:19 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А Вы не перенабирайте, а воспользуйтесь методом copy-paste. Прямо с выложенным листингом. А вообще - где-то разделитель "точка с запятой" пропустили.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.01.2012, 16:05 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Это делается так:
1. Выделяем текст. 2. Копируем в буфер. 3. Закрываем браузер. 4. Открываем любой Windows-редактор, напр. Notepad. 5. Копируем в него содержимое буфера. 6. Сохраняем в виде файла blabla.pas. 7. Открываем созданный файл в Турбо-среде. |
11.01.2012, 17:30 | #10 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. {конец программы} |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|