|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.06.2013, 17:23 | #11 |
Форумчанин
Регистрация: 22.04.2013
Сообщений: 162
|
программа запускается, но не выдаёт результат работы
program zd;
uses crt; const n=10; var a: array [1..n] of integer; i: integer; function F(c: integer): boolean; begin F:=not odd(c); end; Begin for i:=1 to n do readln(a[i]); for i:=1 to n do F(a[i]); readln; End. программа запускается, но можно ввести только 10 цифр и конец программы. |
03.06.2013, 17:30 | #12 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Так, уже лучше.
Код:
Не забывайте о кнопочке Решетка # для оформления кода.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
03.06.2013, 17:49 | #13 |
Форумчанин
Регистрация: 22.04.2013
Сообщений: 162
|
правильная программа
program zd;
uses crt; const n=10; var a: array [1..n] of integer; i: integer; function F(c: integer): boolean; begin F:=not odd(c); end; Begin repeat readln(i); writeln(F(i)); until i= 0; readln; End. огромное спасибо, за помощь! Эта программа работает правильно. |
03.06.2013, 17:58 | #14 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Код:
Пожалуйста. Общими усилиями...
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 03.06.2013 в 22:11. |
03.06.2013, 22:07 | #15 |
Форумчанин
Регистрация: 22.04.2013
Сообщений: 162
|
спасибо
огромное спасибо, за то, что помогли написать программу!!!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подпрограмма Procedure(Pascal ABC) | Tanya-Manya | Помощь студентам | 2 | 13.03.2013 21:54 |
Pascal ABC вывод чисел и нахождение интервала | DevilSkyS | Помощь студентам | 0 | 20.11.2012 20:54 |
(Pascal ABC) Функция с условиями | Sanginow | Помощь студентам | 3 | 20.02.2012 19:44 |
до каких чисел округляет функция round в Паскале ABC& | Настяyu | Помощь студентам | 5 | 28.12.2011 18:18 |
Pascal ABC,генератор случайных чисел | Aidar9119 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 21.12.2010 16:32 |