Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Задачки

Автор: Гость_Bas 27.10.2005, 15:21

1.Вычислить значение фун-ции. Осуществить вывод значений вводимых исходных данных и результат вычисления. Значения функции, сопровождая вывод наименованием переменных.

Код


     |at^ln(t)
y={
     |e^at cos(bt)

Условие 1<=t<=2; t<1; t>2
Исх.данные d=-0.5;b=2
Диапазон и шаг изменения аргумента t?[0;3] ; ∆t=0,15

2.Вычислить значения переменных, по заданным исходным данным
a=2cos(x-п/6)/0.5*sin^2(y)
b=1+ z^2/3+(z^2/5)
x=1.426
y=-1.220
z=3.5

3. x[100] вычислить сумму и кол-во элементов массива x
условия и ограничения 0<=x(i)<=1

Автор: mvdr 27.10.2005, 15:29

Цитата

3. x[100] вычислить сумму и кол-во элементов массива x
условия и ограничения 0<=x(i)<=1

количество разве не есть [100]?
for i:=1 to 100 do
sum:=sum+x[i];

Автор: bas 28.10.2005, 08:58

Цитата

количество разве не есть [100]?

Наверное надо ввести n-ое кол-во значений, не обязательно 100. Как препод дал так и написал.
Cижу на Си с паскалем имел дело 20 лет назад, а жене дали такие задачи.
1.Незнаю как осуществить ввод значений.
2.если ф-я натурального логарифма ?
3.Как записать t в степени логарифм от t
4.a=2cos(x-п/6)/0.5*sin^2(y)
это будет выглядеть так

Код


a:=(2*cos(x-3.14/6))/(0.5*( sin(y)*sin(y)))

?
Добавлено @ 09:04
e^at cos(bt)

Код


y:=(exp(a*t))*cos(b*t);

Автор: St. Andrew 28.10.2005, 09:32

bas , так какие задачи тебе сейчас все еще нужны? Укажи номера, я тебе наваяю!

Автор: bas 28.10.2005, 11:17

В принцыпе все три . Просто добил наконец физику, сейчас вспоминаю как преобразовавать матрицы и исследования ф-ций.
Код набросать могу но тестить негде, разве что на delph'ях. Но ошибок наделаю кучу , привык к синтаксису Си.

Автор: St. Andrew 29.10.2005, 15:17

Решения:
Задача 1:

Код


program task1;
uses crt;
const dt=0.15; a=-0.5; b=2;
var
y,t: real;
begin
t:=0.0;
while t<=3 do
begin
if t<1 then
y:=exp(a*t)*cos(b*t)
else
begin
if t>2 then
y:=exp(a*t)*cos(b*t)
else
y:=a*exp(ln(t)*ln(t));
end;
writeln('t=',t:6:2);
writeln('y=',y:6:2);
t:=t+dt;
end;
readln;
end.

Задача 2

Код


program task2;
uses crt;
var a,b,x,y,z : real;
begin
clrscr;
x:=1.426;
y:=-1.220;
z:=3.5;
a:=(2*cos(x-Pi/6)/0.5)*sqr(sin(y));
b:=1+exp(2/3*ln(z))+exp(2/5*ln(z));
writeln('a=', a:6:2);
writeln('b=', b:6:2);
readln;
end.

Задача 3

Код


program task3;
uses crt;
var
mas: array[1..100] of real;
n:integer;
x, sum: real;
begin
clrscr;
sum:=0;
for n:=1 to 100 do
begin
write('Enter mas[',n,']=');
readln(mas[n]);
end;
for n:=1 to 100 do
begin
if mas[n]>=0 then
if mas[n]<=1 then
sum:=sum+mas[n];
end;
writeln('sum=',sum:6:2);
readln;
end.

Ф-ия степени реализована через ln() и exp().

Автор: bas 31.10.2005, 09:40

Cпасибо, наберу постов поставлю +. smile

Автор: St. Andrew 1.11.2005, 00:29

bas заметано! smile