VPF::Задачки - Форум программистов

Гость_Bas

Дата 27.10.2005, 15:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Цитата

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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: нет
Всего: 2

Цитата

количество разве не есть [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);

Это сообщение отредактировал(а) bas - 28.10.2005, 09:06

St. Andrew

Дата 28.10.2005, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

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

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

bas

Дата 28.10.2005, 11:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: нет
Всего: 2

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

St. Andrew

Дата 29.10.2005, 15:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

Решения:
Задача 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().

Это сообщение отредактировал(а) St. Andrew - 30.10.2005, 00:01

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

bas

Дата 31.10.2005, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: нет
Всего: 2

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

St. Andrew

Дата 1.11.2005, 00:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

bas заметано! smile

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »