Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
3 / 3 / 0
Регистрация: 16.12.2009
Сообщений: 101
1

Массивы?

27.05.2010, 00:33. Показов 396. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program lab8;
uses crt;
type mas=array[1..28] of integer;
procedure Massiv(var v:mas;x:byte;a,b,d:integer;c:char);
var i:byte;
begin
writeln('Massiv',c);
for i:=1 to x do
begin
v[i]:=random(b-a+1)+a;
write(v[i]:3);
end;
writeln;
writeln;
end;
function neshet (v:mas;x:byte):byte;
var i:byte;
d:integer;
begin
d:=0;
begin
for i:=1 to x do
if(i mod 2<>0) then d:=d+v[i];
neshet:=d;
end;
var c,d:mas;
begin
clrscr;
Massiv(c,17,-3,5,'C');
writeln('summa elementov neshetnih indeksov =',neshet(c,17));
writeln;
Massiv(d,28,-5,4,'D');
writeln('summa elementov neshetnih indeksov =',neshet(d,28));
readln
end.
когда задаю var c,d:mas; выбивает ошибку 113 error in statement . Что это может быть и в чем проблема ? Подскажите срочно
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2010, 00:33
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Массивы
Дан двумерный массив целых чисел.Если сумма элементов главной диагонали первого компонента равна...

Массивы
1. Найти элементы в одномерном массиве равные 10 и вывести их индексы 2. В двумерном массиве...

массивы
Разработать процедуру нахождения максимального элемента массива и его номера и реализовать ее для...

__________________
4
41 / 40 / 11
Регистрация: 12.11.2009
Сообщений: 115
27.05.2010, 00:39 2
Код не читабельный ) Какую задачу решает программа?
0
3 / 3 / 0
Регистрация: 16.12.2009
Сообщений: 101
27.05.2010, 00:47  [ТС] 3
Цитата Сообщение от Wizzy Посмотреть сообщение
Код не читабельный ) Какую задачу решает программа?
Имя , размер и диапазон значений элементов массивов:
Первый массив:C(17);[-3;5]
Второй D(28);[-5;4].
Определить с помощью FUNCTION для каждого массива сумму элементов с нечетными индексами.
0
41 / 40 / 11
Регистрация: 12.11.2009
Сообщений: 115
27.05.2010, 01:01 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program lab8;
uses crt;
type mas=array[1..28] of integer;
var c,d:mas;
 
procedure Massiv(var v:mas;x:byte;a,b:integer;c:char);
var i:byte;
begin
writeln('Massiv:');
for i:=1 to x do
begin
v[i]:=random(b-a+1)+a;
write(v[i]:3);
end;
writeln;
readln;
end;
 
function neshet (v:mas;x:byte):byte;
var i:byte;
s:integer;
begin
s:=0;
 
for i:=1 to x do
if(i mod 2<>0) then s:=s+v[i];
neshet:=s;
end;
 
 
 
begin
 
clrscr;
Massiv(c,17,-3,5,'C');
writeln('summa elementov neshetnih indeksov =',neshet(c,17));
writeln;
Massiv(d,28,-5,4,'D');
writeln('summa elementov neshetnih indeksov =',neshet(d,28));
readln
end.
1
3 / 3 / 0
Регистрация: 16.12.2009
Сообщений: 101
27.05.2010, 01:10  [ТС] 5
Спасибо большое получилось )
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2010, 01:10

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Массивы
В некоторой стране имеется n городов, соединеных авиационными сообщениями. На пересечении i -...

массивы
Перестановка одномерного массива в обратном порядке. Значение длины массива вводится с клавиатуры....

Массивы
В произвольной матрице 7? 9, выбрать числа положительные и отрицательные, подсчитать количество и...

Массивы
Приветствую всех)) Народ,помогите пожалуйста))не могу ни как понять как делать задачу эту(( вот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.