|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.09.2016, 10:23 | #1 |
Регистрация: 22.09.2016
Сообщений: 3
|
ввести 3 числа а,b,c. Если не одно число не равно нулю, то написать в переменную k сред. арифметическое
Уважаемые. Помогите в чем ошибка. Задание: ввести 3 числа а,b,c. Если не одно число не равно нулю, то написать в переменную k сред. арифм..
Пишу в турбо паскале 7.1 Код:
Ввожу в абспаскале Код:
______________________ Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум. Последний раз редактировалось Alex11223; 22.09.2016 в 10:27. |
22.09.2016, 10:29 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
в турбо вы сначала вычисляете k, а потом его выводите.
а в Pascal ABC сначала выводите k (там ноль) и только потом вычисляете. Это неправильно. Нужно наоборот. кроме того, условие Вы проверяете не то, что Вам задано. Вам нужно проверять "число не равно нулю", а Вы проверяете, что число положительное (больше нуля). |
22.09.2016, 10:30 | #3 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Так вы выводите k до присваивания значения, надо наоборот.
и в begin end оба действия заключить, иначе только первое относится к if, а второе всегда выполняется.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
22.09.2016, 11:59 | #4 | |
Регистрация: 22.09.2016
Сообщений: 3
|
Цитата:
|
|
22.09.2016, 12:01 | #5 |
Регистрация: 22.09.2016
Сообщений: 3
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ввести в консоль семизначное число и вывести среднее арифметическое (Java, Eclipse) | Crazy_Max | Помощь студентам | 0 | 31.03.2016 19:30 |
Как скрыть поле, если оно равно нулю в Отчете | Евгений 1234 | Microsoft Office Access | 0 | 24.08.2015 19:03 |
Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в квадратВвести число. Если оно п | FYNZIK | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.02.2014 16:29 |
Данное натуральное число N и действительные, не равны нулю числа a1, ., aN | SystemsS | Visual C++ | 0 | 06.02.2013 12:42 |
некоторое число оканчивается на 2, если эту цифру переместить на первое место, то число удвоится. написать программу поиска числа | Noob325 | Помощь студентам | 6 | 06.12.2012 10:39 |