|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.11.2008, 16:55 | #1 | ||
Регистрация: 30.11.2008
Сообщений: 7
|
Помогите решить задачи(есть ошибки в решинии)
Вот домой по поскалю задали...вообще непойму как делать((
1) Вычислить z=S1+S2/2 где S1 - сумма положительных элементов массива X(50); S2 - сумма отрицательных элементов массива Y(60). Примечание обе суммы вычислять в одной подпрограмме. Задачу надо выполнить с использованием попрограммы-функция !! Цитата:
Имя матрицы и размеры: R(K,N) Условия и ограничения: k меньше либо равно 20,N меньше либо равно 10. Цитата:
Выполнить с импользованием подпрограаммы-процедуры. 3ю вообще не знаю как начать(*( ЗАРАНЕЕ БЛАГОДАРЕН!!!ОЧЕНЬ СИЛЬНО ПОМОЖЕТЕ...А то ппц скок лаб задали...а я ток 3 сделал,и то с помощью...плохо шарю в паскале |
||
30.11.2008, 17:00 | #2 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
Program xys;
var b;boolean; xs,ys,i:integer; x:array[1..50] of integer; y:array[1..60] of integer; z:real; function go:boolean; begin for i:=1 to 60 do begin if(y[i]<0) then ys:=ys+y[i]; if(i>50) then continue; if(x[i]>0) then xs:=xs+x[i]; end; begin xs:=0; ys:=0; repeat b:=go until go=true; z:=xs+ys/2; end. |
30.11.2008, 20:12 | #3 |
Регистрация: 30.11.2008
Сообщений: 7
|
SeRhy неа,не работает(( 3я строчка ошибка
Error 86: '':'' expected Ставил вместо ; : - просила end с точкой поставить,ставил кароче ошибки одна за другой(( А так спс! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите решить 2 задачи | Pashtet | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 06.11.2008 04:18 |
Системы счисления помогите решить и посмотрите ошибки | vdv08 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 13.05.2008 15:58 |
ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ С++ | lawny | Фриланс | 1 | 24.12.2007 20:58 |
Ошибки компиляции. У кого есть | =*=|/|MM0PT@/\=*= | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 02.04.2007 06:10 |