|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.03.2008, 22:20 | #1 |
Пользователь
Регистрация: 18.11.2007
Сообщений: 67
|
задача в delphi!!! помогите плииииз........
помогите исправить задачу.........
вроде все правильно, но чо та не работает!! составить процедуру, которая из двух заданных массивов В и С одинаковой длины строит новый массив Т по правилу F1(Bi) Bi>=Ci Ti= - это система F2(Ci) Bi<Ci используя в качестве F1 синус, а в качестве F2 косинус, сформировать новую матрицу Е по правилу: первая строка формируется с помощью процедуры из двух первых строк матрицы А, вторая строка- из третьей и четвертой строк матрицы А и т.д program Project43210; {$APPTYPE CONSOLE} uses SysUtils; const n=4; type mas=array[1..n] of real; matr=array[1..n,1..n] of real; fun=function(x:real):real; VAR A,E:matr; C,B,t:mas; i,j,k:integer; procedure p1( b:mas;c:mas; g1:fun; g2:fun; var t:mas); var i,j:integer; begin i:=1; for j:=1 to n do if b[i]>=c[i] then t[i]:=g1(b[i]) else t[i]:=g2(c[i]) ; end; {$F+} function G1(x:real):real; {$F-} begin G1:= sin(x); end; {$F+} function G2(x:real):real; {$F-} begin G2:=cos(x); end; BEGIN { TODO -oUser -cConsole Main : Insert code here } writeln('Vvedite matr a'); for i:=1 to n do for j:=1 to n do read(a[i,j]); writeln ('vvedite b'); for i:=1 to n do read (b[i]); writeln ('vvedite c'); for i:=1 to n do read (c[i]); i:=1; repeat for j:=1 to n do b[j]:=a[i,j]; c[j]:=a[I+1,J]; p1(b,c,g1,g2,t); begin k:=1; E[k,j]:=t[j]; k:=k+1; i:=i+2; end; until i<=6; writeln ('E[',k,',',j,']',E[k,j]); readln END. |
05.03.2008, 23:04 | #2 |
Пользователь
Регистрация: 18.11.2007
Сообщений: 67
|
ну посмотрите, пожалуйста очень надо
|
05.03.2008, 23:44 | #3 |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Нарушение правил форума. Закрыто.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задача в pascal? помогите плииииз | Absent | Помощь студентам | 3 | 06.03.2008 10:15 |
Задача Delphi. Помогите доделать! | Oksana11 | Помощь студентам | 8 | 27.12.2007 23:00 |
Задача на Delphi | Gorinicher | Помощь студентам | 17 | 22.10.2007 21:49 |
помогите плииииз | R_N_1 | Софт | 2 | 19.02.2007 11:35 |