|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.04.2009, 20:23 | #1 |
Пользователь
Регистрация: 21.04.2009
Сообщений: 10
|
Плииз!!! помогите! Не могу понять почему не работает! (Паскаль)
Пожалуйста, пожалуйста! Очень срочненько!
надо вычислить сумму положительных элементов массива x(5) и сумму отрицательных элементов массива y(10) Program name; Uses Crt; Var x: array [1..5] of real; y: array [1..10] of real; s1,s2:real; i: integer; Function Summ(M: array of real):real; var i: integer; s: real; begin s:=0 if high(M)=5 then begin for i:=1 to high(M) do if M[i]>0 then s:=s+M[i]; end; if high(M)=10 then begin for i:=1 to high(M) do if M[i]<0 then s:=s+M[i]; end; Summ:=s; end; begin s1:=0; s2:=0; ClrScr; Randomize; for i:=1 to High(x) do begin x[i]:=Random*100-50; Writeln('x[',i,']=',x[i]:5:2); end; for i:=1 to High(y) do begin y[i]:=Random*100-50; Writeln('y[',i,']=',y[i]:5:2); end; s1:=Summ(x); s2:=Summ(y); Writeln('Summa s1=',s1:5:2,'Summa s2=',s2:5:2); readkey end. Последний раз редактировалось Викуська_; 21.04.2009 в 20:30. |
21.04.2009, 20:24 | #2 |
Пользователь
Регистрация: 21.04.2009
Сообщений: 10
|
Сумма у меня почему то всегда равна нулю((
|
21.04.2009, 20:28 | #3 | |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Код:
Цитата:
Кто бы ты ни был - не думай о себе слишком (с)
Последний раз редактировалось DM_bite; 21.04.2009 в 20:32. |
|
21.04.2009, 20:33 | #4 |
Пользователь
Регистрация: 21.04.2009
Сообщений: 10
|
Просто надо Составить программу, использующую подпрограмму-функцию ...
|
21.04.2009, 20:35 | #5 | |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Цитата:
Кто бы ты ни был - не думай о себе слишком (с)
|
|
21.04.2009, 20:37 | #6 |
Пользователь
Регистрация: 21.04.2009
Сообщений: 10
|
Ну вот что бы эта вещь была:
Function Summ(M: array of real):real; var i: integer; s: real; begin s:=0 if high(M)=5 then begin for i:=1 to high(M) do if M[i]>0 then s:=s+M[i]; end; if high(M)=10 then begin for i:=1 to high(M) do if M[i]<0 then s:=s+M[i]; end; Summ:=s; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу понять почему не идет сортировка файла, помогите пожалуйста | Taisja | Помощь студентам | 2 | 15.06.2008 20:37 |
Не могу понять почему вылетает 3 процедурка, помогите | Taisja | Помощь студентам | 2 | 04.06.2008 21:28 |
Помогите пожалуйста не могу понять! | Kosoy135 | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 28.12.2007 19:08 |