|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.08.2010, 00:44 | #1 |
Новичок
Джуниор
Регистрация: 29.08.2010
Сообщений: 1
|
паскаль !!!
очень нужна ваша помощь !!!!
нужно найти среднее значение положительных элементов массива [ 1..12],массив задать через константу. |
29.08.2010, 01:16 | #2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Код:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
29.08.2010, 03:41 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
хм. попытка засчитывается. но есть пара серьёзных недочётов.
1) массив в задании надо задавать через константу. 2) при делении на KOL надо учесть, что таких чисел может не быть (тогда kol будет нулевое и получим программное исключение при делении на ноль!) Код:
|
31.08.2010, 19:38 | #4 |
Заблокирован
Регистрация: 31.08.2010
Сообщений: 22
|
ЗДРАВСТВУЙТЕ!
Прошу прощения что влез к вам! у меня такая проблема при запуске файла (exe) он быстро закрывается, не показывает решение!
Что можно с ним сделать? Чтоб он не закрывался так быстро, и успевал показывать решение , и возможно ли сделать чтоб в обычном нормальном окне а не в командной строке если можно объясните мне по подробней, я только начал изучать паскаль. Заранее благо дарю вас!!! и надеюсь на вашу помощь. исходник в PAS ТАКОЙ PROGRAM PRIMER (INPUT,OUTPUT); CONST PI=3.14; VAR R: REAL; V: REAL; BEGIN WRITELN('введите значение радиуса R:'); READ(R); V:=4*PI*R*R*R/3; WRITELN; WRITELN('РЕЗУЛЬТАТ:'); WRITELN('ОБЕМ ШАРА=',V:8:3) END. |
31.08.2010, 19:45 | #5 | |
Форумчанин
Регистрация: 14.03.2010
Сообщений: 362
|
Цитата:
Код:
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
|
|
31.08.2010, 19:48 | #6 |
Форумчанин
Регистрация: 14.03.2010
Сообщений: 362
|
возможно конечно,но вам пока рано раз вы новичек
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
|
31.08.2010, 19:50 | #7 |
Заблокирован
Регистрация: 31.08.2010
Сообщений: 22
|
А А А!?! НЕ СОВСЕМ ПОНЯЛ ЧТО И КУДА НУЖНО ВСТАВИТЬ???
|
31.08.2010, 19:51 | #8 |
Форумчанин
Регистрация: 14.03.2010
Сообщений: 362
|
напиши перед END readln;
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
|
31.08.2010, 19:54 | #9 |
Заблокирован
Регистрация: 31.08.2010
Сообщений: 22
|
ПРОСТИТЕ КОНЕЧНО НО ЧТО ЗНАЧИТ ( вам пока рано раз вы новичек ) МНЕ КАКТО-Ж НАДО ДЛЯ СЕБЯ ПРОВЕРЯТЬ. ЧТО У МЕНЯ ПОЛУЧИЛОСЬ.
|
31.08.2010, 19:56 | #10 |
Форумчанин
Регистрация: 14.03.2010
Сообщений: 362
|
нутк проверяйте ,зачем вам в форме выводить простеькую задачку если можно просто запустить компилятором.
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, Борланд Паскаль-в чем разница??? | Vremya-Dengy | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 31.05.2011 18:23 |
паскаль | Александр ето я | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.05.2009 12:18 |
паскаль | Какаина | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 13.05.2009 21:08 |
паскаль | фамил | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 17.05.2008 23:23 |