11.11.2010, 15:44 | #1 (permalink) |
Member
Регистрация: 11.11.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Пожалуйста,помогите написать одну программку с массивом!
|
11.11.2010, 15:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы ждут, пока вы их прочитаете Пожалуйста, помогите написать программку. Pascal Free Помогите, пожалуйста, написать программу на C# Помогите написать программу с двухмерным массивом в QBASICe? Помогите пожалуйста составить программку в паскале Помогите написать программку в Borland C++ 3.1 |
11.11.2010, 16:04 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Да и к нам вы относитесь несколько... пренебрежительно: даже язык программирования не указали! Нехорошо. |
|
11.11.2010, 16:49 | #3 (permalink) | |
Member
Регистрация: 11.11.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
program Massiv; const n=4; var h,p:integer; i,v,t: byte; {для индексов элементов } M:array[1..n] of integer; { массив,который вводится пользователем} C:array[1..h] of integer; { массив,в который входят четные элементы} N:array[1..p] of integer; { массив,в который входят нечетные элементы} begin for i:=1 to n do begin readln(M[i]); end; for i:=1 to n do begin if i mod 2 =0 then C[v]:=M[i]; else N[t]:=M[i]; end; write(C[v]); write(N[t]); readln; end. |
|
11.11.2010, 17:29 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так, ну, прежде всего, это уже совсем иной разговор, куда более содержательный, чем "напишите мне прогу...". В такой ситуации - поможем с удовольствием.
А запутались Вы очень много где. 1. С точки зрения Паскаля, n и N - это один и тот же идентификатор, а у Вас он дублируется (константа и имя третьего массива). Недопустимо. 2. Индексы массивов при их (массивов) описании должны задаваться либо явно в виде чисел, либо через константы, третьего не дано. А Вы пытаетесь их описать с использованием переменных (h и p), да еще и до присвоения этим переменным каких бы то ни было значений! Никуда не годится. 3. Опять таки, Вы пытаетесь присвоить значения элементам новых массивов C(v) и N(t) какие-то значения, не присвоив никаких значений индексам v и t. Как же так? С учетом этого и еще там по мелочи выкладываю свой вариант программы, естественно, оттестированный и рабочий. Попробуйте разобраться: Код:
program Massiv; const nn=4; var i:integer; h,p: byte; M,C,N:array[1..nn] of integer; begin for i:=1 to nn do begin Write('M[',i,']= '); readln(M[i]); end; h:=0; p:=0; for i:=1 to nn do begin if i mod 2 =0 then begin h:=h+1; C[h]:=M[i]; end else begin p:=p+1; N[p]:=M[i]; end; end; Writeln; For i:=1 to nn do write(M[i],' '); Writeln; For i:=1 to h do write(C[i],' '); Writeln; For i:=1 to p do write(N[i],' '); Writeln; readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.11.2010, 17:43 | #6 (permalink) |
Member
Регистрация: 11.11.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо огромное! Буду разбираться в программе обязательно, тем более нужно будет пояснить преподавателю,как она работает и написать блок-схему. У меня не хватает элементарных знаний синтаксиса и функций Паскаля,но я постараюсь этот пробел убрать (на выходных буду изучать).
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|