IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Массив Процедурами(ввод и вывод), помогите решить программу
S2DenT
сообщение 2.12.2010 17:25
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Люди, помгите !!
Задача такая:
1) Введите 2 массива стостоящие не более чем 13 элементов
2) Вывести их на экран
3) Сформировать новый массив являющийся частным 1 на 2 массив
4)Вывести новый массив на экран!
5)Подсчитать количество отрицательных элементов

Я прогу на писал , но она не проходит(((

вот исходник.
Program Massiv; 
Uses crt;
Const n=13;
type mas=array[1..n] of integer;
Vara,b,c:mas;
m,i:integer;
Sa,Sb,Sc:integer;
Procedure wwod(var x:mas; n:integer; name:char);
Vari:integer;
Begin
for i:=1 to n do
Begin
Write(name,'[',i,']=');
ReadLn(x);
End;
End;
Procedure wiwod(var x:mas; n:integer; name:char);
Vari:integer;
Begin
for i:=1 to n do
Begin
Write(x);
Writeln;
End;
End;
Procedure newmas(x,y:mas; n:integer; var z:mas);
Var i:integer;
Begin
for i:=1 to n do z:=x/y
End;
Function otr(x:mas; n:integer):integer;
Vari:integer;
S:integer;
Begin
For I:=1 to n do
If x[i]<0 then
S:=S+1;
End;
Begin
Clrscr;
Writeln('Введите размер массива:');
Readln(m);
Writeln('Введите первый массив:');
Wwod(a,m,'a');
Writeln('Введите второй массив:');
Wwod(b,m,'b');
Writeln('Вывод первого массива:');
Wiwod(a,m,'a');
Writeln('Вывод второго массива:');
Wiwod(b,m,'b');
newmas(a,b,m,c);
Writeln('Вывод нового массива:');
Wiwod(c,m,'c');
Sa:=otr(a,m);
Sb:=otr(b,m);
Sc:=otr(c,m);
Writeln('Количество отрицательных элементов первого массива=',Sa);
Writeln('Количество отрицательных элементов второго массива=',Sb);
Writeln('Количество отрицательных элементов нового массива=',Sc);
Readln;
End.


подскажите где ошибка и как ее исправить????

Сообщение отредактировано: S2DenT - 2.12.2010 18:46


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 13.07.2025 20:33
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"