KLoDD

Всем привет. Прошу Вас, дорогие программисты, помочь в написании нескольких программок в Паскале... итак:
1. Разработать программу на языке программирования Turbo Pascal:
а) Вычислить функцию y=x^3+sin(x) на отрезке [-2П;2П] с шагом h= П/6 . На каждом шаге выводить на печать значения переменных x и y. Для данной задачи написать программы, используя операторы цикла for,while,repeat .
б) Определить произведение положительных значений функции y=(1-e^-x^2)sin(x/2) на интервале изменения аргумента от x(энного) до х(катого) с шагом h .
2. Даны два массива t(20) и s(20). Найти среднее геометрическое положительных элементов массива t и заменить им все отрицательные элементы массива s.
3. Разработать программу на языке программирования Turbo Pascal:
В матрице найти среднее арифметическое отрицатель-ных элементов, расположенных выше побочной диагонали
4. Решить тригонометрическое уравнение sin(a1/b1)x-n1/n2=0 на интервале [0;10], где a1, n1 – сумма и количество отрицательных элементов, стоящих в массиве d(30) на местах, номера которых кратны 4; b1,n2 – сумма и количество отрицательных элементов, стоящих в массиве t(40) на местах, номера которых кратны 4. Знакопеременные массивы сформировать случайным образом

заранее благодарен за помощь...

KLoDD

неужели никто не может помочь?) хотя бы что то

Johnny Servantos

Сейчас покушаю и напишу)

---------- Добавлено в 22:07 ---------- Предыдущее сообщение было написано в 20:56 ----------

Вычислить функцию y=x^3+sin(x) на отрезке [-2П;2П] с шагом h= П/6

program pr1;
var x,y,Pi:double;

begin
Pi:=22/7;
x:=-2*Pi;

While x<=2*Pi do
begin
y:=x*x*x+sin(x);
Writeln('x = ',x,' y = ',y);
x:=x+Pi/6;
end;

Readln;
end.

---------- Добавлено в 22:47 ---------- Предыдущее сообщение было написано в 22:07 ----------

// Определить произведение положительных значений функции y=(1-e^-x^2)sin(x/2) на интервале изменения аргумента от x(энного) до х(катого) с шагом h .

program pr1;
var x,xn,xk,h,y,P:double;

begin
Writeln('Введите xn : ');
Readln(xn);
Writeln('Введите xk : ');
Readln(xk);
Writeln('Введите h : ');
Readln(h);
x:=xn;

P:=1;
While x<=xk do
begin
y:=(1-exp(-x*x))*sin(x/2);
Writeln('x = ',x,' y = ',y);
If y>0 then P:=P*y
else writeln('error');
x:=x+h;
end;
Writeln('Proizvedenie = ',P);
Readln;
end.

---------- Добавлено в 23:04 ---------- Предыдущее сообщение было написано в 22:47 ----------

//Даны два массива t(20) и s(20). Найти среднее геометрическое положительных элементов массива t и заменить им все отрицательные элементы массива s.
program pr1;
uses crt;
var
t: array[1..20] of integer;
s: array[1..20] of integer;

sr,i,j:integer;
begin
clrscr;
sr:=0;
writeln('----t----');
For i:=1 to 20 do begin
t[i]:=random(100)-50;
write(t[i],' ');
If t[i] > 0 then sr:=sr+t[i];
end;
writeln;
writeln('----s----');
For j:=1 to 20 do begin
s[j]:=random(100)-50;
write(s[j],' ');
end;

writeln;
writeln;
writeln('Sred = ',sr);
writeln;
writeln('----New_s----') ;
For j:=1 to 20 do begin
if s[j]<0 then s[j]:=sr;
write(s[j],' ');
end;


Readln;
end.

---------- Добавлено в 23:06 ---------- Предыдущее сообщение было написано в 23:04 ----------

Дальше лень....=(

KLoDD

Johnny Servantos, спасибище Вам огромное) если вдруг будет не влом то допишите остальное) ещё раз спасибо)

Johnny Servantos

Да не за что....если еще надо будет,могу вечером остальное доделать.

KLoDD

конечно надо))))

Johnny Servantos

//В матрице найти среднее арифметическое отрицатель-ных элементов, расположенных выше побочной диагонали

program pr1;
uses crt;
const
n=7;
m=7;
var
t: array[1..n,1..m] of integer;
sr:double;
i,j,d:integer;
begin
clrscr;
sr:=0;
d:=0;
writeln('----t----');
For i:=1 to n do begin
For j:=1 to m do begin
t[i,j]:= random(100)-50;
write(t[i,j],' ');
end;
writeln;
writeln;
end;
For i:=1 to n do
For j:=1 to m do
If (j<=(m-i)) and (t[i,j]<0) then begin
sr:=sr+t[i,j];
d:=d+1;
end;
sr:=sr/d;
writeln('srednee arifmeti4eskoe = ',sr:6:2);


Readln;
end.

---------- Добавлено в 15:47 ---------- Предыдущее сообщение было написано в 15:15 ----------

//Решить тригонометрическое уравнение sin(a1/b1)x-n1/n2=0 на интервале [0;10], где a1, n1 – сумма и количество отрицательных элементов, стоящих в массиве d(30) на местах, номера которых кратны 4; b1,n2 – сумма и количество отрицательных элементов, стоящих в массиве t(40) на местах, номера которых кратны 4. Знакопеременные массивы сформировать случайным образом


program pr1;
uses crt;
var
d: array[1..30] of integer;
t: array[1..40] of integer;
sr:double;
i,a1,n1,b1,n2,x:integer;
begin
clrscr;
a1:=0;
n1:=0;
b1:=0;
n2:=0;
writeln('----t----');
For i:=1 to 30 do begin
d[i]:= random(100)-50;
write(d[i],' ');
If (d[i]<0) and (i mod 4 = 0) then begin
a1:=a1+d[i];
n1:=n1+1;
end;
end;
writeln;
writeln;
writeln('a1 = ',a1,' n1= ',n1);
writeln('----d----');
For i:=1 to 40 do begin
t[i]:= random(100)-50;
write(t[i],' ');
If (t[i]<0) and (i mod 4 = 0) then begin
b1:=b1+t[i];
n2:=n2+1;
end;
end;
writeln;
writeln;
writeln('b1 = ',b1,' n2= ',n2);
writeln;
writeln;
If (b1=0) or (n2 = 0) then
writeln('ERROR');
//Все...Все коэфиценты я посчитал,но я не понимаю что значит "решить тригонометрическое уравнение на интервале",причем уравнение уже равно 0...следовательно нам надо найти корни....а мне что то сейчас неохота думать,как искать корни тригонометрического уравнения на интервале...так что это сам
Readln;
end.



P.S. я во второй задаче нашел не средне геометрическое..а средне арифметическое,так что замени
sr:=sr+t[i];
на
sr:=sr*t[i];

KLoDD

Johnny Servantos, спсибо Вам огромное ещё раз) жаль больше + не могу(

Arsen

помогите решить

http://zalil.ru/30015609

Кристина19

Помогите пожалуйста составить программу вычисления суммы нечетных чисел от 1 до 9.(Pascal ABC)
Заранее спасибо!))

grishka

всем привет!!!народ ну помогите программу составить,вообще не соображаю а впереди зачет,буду очень благодарен!!
Данны массивы Y(N) и F(N).Образовать новый массив C(N),элементы которго вычисляются по формуле Ci=LN (Yi+Fi).В новом массиве С(N) найти суммы его минимального и максимального элементов.
или вот эту
В заданном массиве G(N),умножить все элементы,значения которых не меньше 5 и не больше 30.на его минимальный элемент.Распечатать измененный массив G(N).
если что icq 450586372,если что отблагодарю!!!!

tigr25

Всем привет. Дорогие программисты, помогите в написании нескольких программ в Паскале:
1. Разработать программу на языке программирования Turbo Pascal:
Найти среднее арифметическое таких значений функции, которые
имеют нечетную целую часть


3.Условия: Имеется последовательность произвольных целых ненулевых
чисел, каждое в интервале от -32000 до +32000,
завершающаяся числом 0, котоpое является индикатоpом
окончания. Последовательность может содержать повторяющиеся
числа. Максимальное количество элементов неизвестно,
поэтому поместить всю последовательность в некоторый массив невозможно.

Задание: Обpабатывая вводимую последовательность чисел,
напечатать из них такие характеристики: число, сумма цифр которого больше М; число, имеющее чередование четных и нечетных цифр.
Учтите, что элементы последовательности могут быть введены только один pаз.
Характеристики каждого числа следует проверять независимо
друг от друга. Если выполняется одна из них, то следует вывести на экран:
- сообщение об этой характеристике
- значение элемента последовательности
- номер элемента последовательности
Если выполняются обе характеристики, то следует выводить указанные выше данные для каждой из них.
Если не выполняется ни одна из характеристик, то ничего выводимть на экран не следует.

Cavendish

поиск максимального элемента в масиве
помагите плиз

Adrenali

ну вот, хотела показать свои мега способности. а за меня все решили(

Лен1

Привет, помоги пожалуйста программу составить ))
Найти среднее геометрическое данных файла
Спасибо заранее))очень поможете)