Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2008, 23:51   #1
maliyusha
Пользователь
 
Аватар для maliyusha
 
Регистрация: 23.12.2008
Сообщений: 49
Подмигивание Одномерный массив. Вознаграждение.

Помогите кто чем может!!!
Нужно решить трудную,как мне кажется,задачу на тему одномерный массив.
Вычислить компоненты вектора x(x1, x2, …, xn) по формуле
Xi=a*sin(0.5*i)+b*cos(i-1),где а=2.2, b=-0.4 и вывести на печать. Далее преобразовать полученный вектор следующим образом: все отрицательные компоненты увеличить на 0,5, а положительные заменить единицей. Преобразованный вектор вывести на экран. Хочу заранее поблагодарить всех откликнувшихся!
maliyusha вне форума Ответить с цитированием
Старый 24.12.2008, 08:42   #2
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

держи, твоя программа в архиве
Вложения
Тип файла: rar MASS.rar (545 байт, 12 просмотров)
madmot вне форума Ответить с цитированием
Старый 24.12.2008, 08:45   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
uses crt;
const n=10;
      a=2.2;
      b=-0.4;
      
var x:array[1..n] of real;
    i:integer;
    
begin
clrscr;
   for i:=1 to n do
   begin
    x[i]:=a*sin(0.5*i)+b*cos(i-1);
   write(x[i]:8:4);
   end;
writeln;
for i:=1 to n do
begin
 if x[i]<0 then x[i]:=x[i]+0.5
    else if x[i]>0 then x[i]:=1;
write(x[i]:8:4);
end;
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 24.12.2008, 22:06   #4
maliyusha
Пользователь
 
Аватар для maliyusha
 
Регистрация: 23.12.2008
Сообщений: 49
По умолчанию

Ребята,спасибо огромное,приятно осознавать,что мир не без добрых людей!!! Я вас всех люблю!!!
maliyusha вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный массив Кирилл17 Помощь студентам 5 22.12.2008 00:13
Одномерный массив Sirega Паскаль, Turbo Pascal, PascalABC.NET 6 27.11.2008 21:21
одномерный массив ldx Паскаль, Turbo Pascal, PascalABC.NET 4 06.06.2008 17:45
Массив Одномерный flait111 Помощь студентам 3 15.12.2007 14:08
Одномерный массив SkyDreamer Помощь студентам 1 01.12.2007 21:22