Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 549
от 18.01.2008, 01:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 239, Экспертов: 50
В номере:Вопросов: 1, Ответов: 3

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 118108: Пожалуйста подскажите! написала текст программы, но она не работает,может есть какаято ошибка: Вот условие: Дан одноименный массив, состоящий из 10 целых чисел:(10,12,4,15,-5,4,-15,1,8,11). Найти сумму элементов с нечетными индексами. Во...

Вопрос № 118.108
Пожалуйста подскажите! написала текст программы, но она не работает,может есть какаято ошибка:
Вот условие: Дан одноименный массив, состоящий из 10 целых чисел:(10,12,4,15,-5,4,-15,1,8,11). Найти сумму элементов с нечетными индексами.

Вот программа:

Приложение:

Отправлен: 12.01.2008, 13:09
Вопрос задала: королева лена валерьева (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Krasme
Здравствуйте, королева лена валерьева!

Подправленный текст в приложении.

Приложение:

Ответ отправила: Krasme (статус: 3-ий класс)
Ответ отправлен: 12.01.2008, 13:25
Оценка за ответ: 4
Комментарий оценки:
спасибо большое!, но результат помоему не верный мне кажется есть ошибка в строчке: if i mod 2<>0 then; ? но всеровно спасибо огромное!

Отвечает: Romnet
Здравствуйте, королева лена валерьева!
Исправленный код во вложении, сам проверил, все работает правильно!

Удачи!

Приложение:

---------
Всегда фпиред! =)

Ответ отправил: Romnet (статус: 7-ой класс)
Ответ отправлен: 12.01.2008, 17:32

Отвечает: Артём1983
Здравствуйте, королева лена валерьева!
program var5;
uses crt;
var m:array [1..10] of real;
i:integer;
s:real;
begin
for i:=1 to 10 do;<-точка с запятой не ставится(1)
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ"i"-л© н«Ґ¬Ґ­в:');
readln(m[i]);
end;
s:=0;
for i:=1 to 10 do;<-точка с запятой не ставится(2)
if i mod 2<>0 then;<-точка с запятой не ставится(3)
s:=s+m[i];
writeln('‘㬬 ­Ґзсв­ле н«Ґ¬Ґ­в®ў: ќ=');
readln;
end.
При решении можно было обойтись одним циклом. Смотрите код программы в приложении.

Приложение:

---------
Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 8-ой класс)
Ответ отправлен: 12.01.2008, 20:55


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.70 от 17.01.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное