Технический форум - Строки. Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Строки. Pascal (http://www.tehnari.ru/f41/t42341/)

Строки. Pascal

Ну вот снова нужна помощь :(
Задание: Задан одномерный массив, каждым элементом которого является строка символов, состоящая из одних цифр. Рассматривая каждую строку как число, определить сумму четных и нечетных значений элементов массива.
Вот что попробовал сделать, но не могу понять почему не работает :(

Код:

uses crt; 

Var

a:array[1..100] of integer;

i,n:integer;

s1,s2:integer;

begin

clrscr;

s1:=0; s2:=0;

write ('Введите количество элементов массива n=');

Readln(n); 

Writeln('Вводим элементы массивов') ;

for i:=1 to n do

Read (a[i]);

for i:=1 to n do

if i mod 2=0 then

s1:=s1+a[i]

else s2:=s2+a[i];

writeln('Сумма четных элементов массива s1=',s1);

writeln('Сумма нечетных элементов массива s2=',s2);

End.

Спасайте пожалст ))

Цитата:

Сообщение от Tepp (Сообщение 420547)

Спасайте пожалст ))

Пожалст.

1. В условии задачи говорится, что вводятся не числа, а строки символов. Значит, так и надо делать: вводить строки а уж затем преобразовывать в числа.
2. Нужно проверять четность не НОМЕРА элемента, а САМОГО элемента.
3. В конце программы хорошо бы вставить останов.
С учетом вышесказанного:

Код:

uses crt;

Var

 a:array[1..100] of String;

 i,n,s1,s2,d,Code:integer;

begin

 clrscr;

 s1:=0; s2:=0;

 write('n= ');

 Readln(n);

 Writeln('Вводим элементы массива:') ;

 for i:=1 to n do

  ReadLn(a[i]);

 for i:=1 to n do

  begin

   VAL(a[i],d,Code);

   if (d mod 2)=0 then

    s1:=s1+d

   else s2:=s2+d;

  end;

 writeln('Сумма четных элементов массива s1=',s1);

 writeln('Сумма нечетных элементов массива s2=',s2);

 ReadKey;

End.

Обратите внимание - строки вводить оператором Read нельзя, только ReadLn.

Цитата:

Сообщение от Vladimir_S (Сообщение 420625)

Код:

uses crt;

Var

 a:array[1..100] of String;

 i,n,s1,s2,d,Code:integer;

begin

 clrscr;

 s1:=0; s2:=0;

 write('n= ');

 Readln(n);

 Writeln('Вводим элементы массива:') ;

 for i:=1 to n do

  ReadLn(a[i]);

 for i:=1 to n do

  begin

   VAL(a[i],d,Code);

   if (d mod 2)=0 then

    s1:=s1+d

   else s2:=s2+d;

  end;

 writeln('Сумма четных элементов массива s1=',s1);

 writeln('Сумма нечетных элементов массива s2=',s2);

 ReadKey;

End.

Обратите внимание - строки вводить оператором Read нельзя, только ReadLn.

Спасибо огромное:) Но есть парочка вопросов :(
А val переводит строку в число?
И в чем замешаны переменные d и code?:)
Запутался что-то.
В конце ReadKey - эт что?

Цитата:

3. В конце программы хорошо бы вставить останов.

Кого?:)) Не въехал

Цитата:

Сообщение от Tepp (Сообщение 421015)

Спасибо огромное:) Но есть парочка вопросов :(
А val переводит строку в число?
И в чем замешаны переменные d и code?:)
Запутался что-то.

Цитата:

В конце ReadKey - эт что?

Цитата:

3. В конце программы хорошо бы вставить останов.

Кого?:)) Не въехал

Попробую ввезти. "Останов" (в том числе АВОСТ, т.е. Аварийный Останов) - так называется команда остановки выполнения программы со времен появления первых цифровых ЭВМ в середине прошлого века.
В данном случае желательно, чтобы программа, выведя на экран результаты работы, остановилась и дала возможность на них посмотреть, а не вылетала в окно транслятора. Это и называется "вставить останов"
ReadKey - это он (останов) и есть. Используется только при присоединении модуля CRT. По этой команде выполнение программы останавливается до нажатия любой клавиши.
Если модуль CRT не присоединен, то можно в качестве останова использовать команду Readln без параметров. Запуск программы на продолжение осуществляется нажатием клавиши Enter.

Цитата:

Сообщение от Vladimir_S (Сообщение 421077)

Распутываю.
Да, процедура VAL переводит строку в целое число. Подробно о ней можно прочитать в любом руководстве по Паскалю и в Help'е самого установленного к Вас пакета. У процедуры три параметра: первый - преобразуемая строка, второй - получающееся после преобразования число (в программе это и есть d), третий (Code) - служебный параметр, возвращающий "0", если преобразование прошло успешно, и код ошибки в противном случае. Использование Code - на усмотрение программиста, но задавать его нужно всегда.

Попробую ввезти. "Останов" (в том числе АВОСТ, т.е. Аварийный Останов) - так называется команда остановки выполнения программы со времен появления первых цифровых ЭВМ в середине прошлого века.
В данном случае желательно, чтобы программа, выведя на экран результаты работы, остановилась и дала возможность на них посмотреть, а не вылетала в окно транслятора. Это и называется "вставить останов"
ReadKey - это он (останов) и есть. Используется только при присоединении модуля CRT. По этой команде выполнение программы останавливается до нажатия любой клавиши.
Если модуль CRT не присоединен, то можно в качестве останова использовать команду Readln без параметров. Запуск программы на продолжение осуществляется нажатием клавиши Enter.

:) Спасибо тебе огромное:tehnari_ru_288: