Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 14.12.2013, 17:24   #1
Nata111
 
Регистрация: 04.11.2013
Сообщений: 7
Репутация: 4
По умолчанию найти сумму элементов с чётными номерами из последовательности n чисел. (в Pascal)

Найдите, пожалуйста, ошибку.
Условие: найти сумму элементов с чётными номерами из последовательности n чисел.

Код:
Program SUMMA;
Uses crt;
Const N=10;
Var k,i:Integer;
a: array [1..N] of integer;
Begin
clrscr;
k:=0;
For i:=1 to N do 
  readln (a[i]);
For i:=1 to N do
  If not odd(i) then k:=k+A[i];
writeln ('k=',k);
readln;
end.
У меня ошибка выдаётся) : Не могу получить доступ к файлу 'C:\PABCWork.NET\Program1.exe'

спрашивала у преподавателя в университете, она сказала, что нижепредставленные строчки нужно писать так и что A[i] вообще вводить не нужно, а так действительно можно???
как у меня
readln (a[i]);
If not odd(i) then k:=k+A[i];

исправлено преподавателем
readln [i];
If not odd(i) then i:=i+1;

Последний раз редактировалось Serge_Bliznykov; 14.12.2013 в 19:44.
Nata111 вне форума   Ответить с цитированием
Старый 14.12.2013, 19:49   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,670
Репутация: 5617
По умолчанию

Цитата:
Сообщение от Nata111 Посмотреть сообщение
Найдите, пожалуйста, ошибку.
Условие: найти сумму элементов с чётными номерами из последовательности n чисел.

Код:
Program SUMMA;
Uses crt;
Const N=10;
Var k,i:Integer;
a: array [1..N] of integer;
Begin
clrscr;
k:=0;
For i:=1 to N do 
  readln (a[i]);
For i:=1 to N do
  If not odd(i) then k:=k+A[i];
writeln ('k=',k);
readln;
end.
У меня ошибка выдаётся) : Не могу получить доступ к файлу 'C:\PABCWork.NET\Program1.exe'
код у Вас правильный и работает корректно.


Цитата:
Сообщение от Nata111 Посмотреть сообщение
исправлено преподавателем
readln [i];
If not odd(i) then i:=i+1;
Что!!!! Это Вам преподаватель написал?!!
Вы точно не ошибаетесь? Если это реально так, то мне вас очень жаль - преподаватель у Вас, мягко говоря, НЕКОМПЕТЕНТЕН!!

p.s. массив можно не вводить.
Можно его задать в виде константы (заполнить заранее подготовленными значениями). Можно заполнить случайными(псевдо) числами (получать с помощью генератора псевдослучайных чисел).
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 14.12.2013, 20:22   #3
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,856
Репутация: 6688
По умолчанию

Цитата:
преподаватель у Вас, мягко говоря, НЕКОМПЕТЕНТЕН!!
Ну ошибки у всех бывают, даже у преподов. И если очередь стоит со своим кодом, да еще с каким кодом, то и не так можно ошибиться. Без массива можно так
Код:
var a: Integer;
...
for i:=1 to N do begin
  readln (a);
  If not odd(i) then k:=k+a;
end;
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 14.12.2013 в 20:25.
Аватар вне форума   Ответить с цитированием
Старый 16.12.2013, 20:13   #4
Nata111
 
Регистрация: 04.11.2013
Сообщений: 7
Репутация: 4
По умолчанию

Большое спасибо за ответы)
Nata111 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана последовательность из n целых чисел. Найти сумму нечетных элементов этой последовательности.С++ punkvalera Помощь студентам 1 13.05.2012 20:35
В последовательности определить сумму чисел,их количество,максимальное и минимальное число с их порядковыми номерами (QBasic) Лена1308 Помощь студентам 3 14.12.2011 22:20
В последовательности определить сумму чисел,их количество,максимальное и минимальное число с их порядковыми номерами (QBasic) Лена1308 Помощь студентам 0 01.12.2011 21:19
Найти разность суммы элементов массива В(20) с чётными номерами... никита989 Помощь студентам 6 16.01.2008 14:51


17:49.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru