Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 05.03.2008, 23:20   #1
Absent
Пользователь
 
Регистрация: 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.
Absent вне форума
Старый 06.03.2008, 00:04   #2
Absent
Пользователь
 
Регистрация: 18.11.2007
Сообщений: 67
По умолчанию

ну посмотрите, пожалуйста очень надо
Absent вне форума
Старый 06.03.2008, 00:44   #3
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

Нарушение правил форума. Закрыто.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача в pascal? помогите плииииз Absent Помощь студентам 3 06.03.2008 11:15
Задача Delphi. Помогите доделать! Oksana11 Помощь студентам 8 28.12.2007 00:00
Задача на Delphi Gorinicher Помощь студентам 17 22.10.2007 21:49
помогите плииииз R_N_1 Софт 2 19.02.2007 12:35