Задачи по паскалю за 1 курс!

[Psayker]

Здравствуйте многоуважаемые программисты! Мне снова нужна ваша помощь по паскалю. Мы сейчас изучаем сразу 3 языка программирования, а именно ассемблер, html и паскаль и я не шарю именно в паскале! Помогите решить задачки!

1.Вычислите значение функции на заданом интервале с шагом H=0,5. Z=100ln x-ln y, где y=2.0; 1<=x<=4
Печать оформить в виде таблици значений x и y.
2.Найти произведение ненулевых членов последовательности: ln(1.1+sin5), ln(1.1+sin10),..., ln(1.1+sin100)
3.Дана последовательность: cos7, cos9,..., cos99.
Найти количество неотрицательных элементов и их порядковый номер.
4.Найти минимальный член последовательности и его порядковый номер:
a(k)=0,75sintk+1,3cos(k+1), где k=1,2,...,6; t=0,5
5.Напишите программу, которая определяет, пройдет ли шар радиуса r через ромбовидное отверстие с размерами диагоналей ромба p и q.

Только у меня ещё просьба объясните что, где и как!

[Disel]

я не шарю именно в паскале!

Буд-то Вы эти задачки сможите написать на ассемблере?!!

[artemavd]

Это задание:

Сообщение от Psayker

5. пройдет ли шар радиуса r через ромбовидное отверстие с размерами диагоналей ромба p и q.

у меня попалось, когда я ЕГЭ по математике писал. В части "С".

[DM_bite]

Буд-то Вы эти задачки сможите написать на ассемблере?!!

Улыбнуло...

3

program Xd;
var i,x: integer;
    begin
    x:=0;
    i:=7;
    while i<99 do
    begin
    i:= i+2;
    if cos(i)>=0 then
    begin
     inc(x);
     WriteLn(i);
     end;
     end;
     WriteLn(x);
     ReadLn;
     end.

[KORN]

если ты знаешь асм даю тебе наводку:

asm 
// тут все на асме
end;

вот и получается что решаешь ты на паскале... просто используешь асмовские вставки... хотя я очень сильно сомневаюсь что ты его знашеь... потому что если бы ты знал асм то паскаль для тебя был бы как 2х2

[bobby2008]

5)

program bred;
var p,r,q:real;

begin
write('r=');
readln(r);
write('q=');
readln(q);
write('p=');
readln(p);
if ((p/2)*(q/2)/(sqrt(sqr(p/2)+sqr(q/2))))>=r then
writeln('Yes')
else writeln('No');
readln;
end.

[bondik]

Тебя обманули,html не язык программирования *lol*,во вторых меняй универ pascal и assembler... если на программиста выучишься использовать не будешь ни тот ни другой...(да конечно иногда приходиться делать вставки асма для быстродействия итд)

1)

program lol;
var i,x: integer;
begin
x=1;
for i:=1 to 6 do
begin
writeln('z= ',100*ln(x)-ln(2));
x=x+0.5;
end;
readkey;
end.

[Psayker]

2.Найти произведение ненулевых членов последовательности: ln(1.1+sin5), ln(1.1+sin10),..., ln(1.1+sin100)
4.Найти минимальный член последовательности и его порядковый номер:
a(k)=0,75sintk+1,3cos(k+1), где k=1,2,...,6; t=0,5

Насколько я понимаю это делается по подобию третьего?

[Chudo4258]

2

X:=5;
P:=1;
while X<=100 do
begin 
 y:=ln(1.1+sin(X));
 if y<>0 then P:=P*y;
 X:=X+5;
end;
Writeln('P= ',P);

[Chudo4258]

4

a:=0.75*sin(0.5*1)+1.3*cos(1+1);// вычислили первое значение
min:=a;
Nmin:=1;
for k:=2 to 6 do
begin
 a:=0.75*sin(0.5*k)+1.3*cos(k+1);
 if a<min then begin
                     min:=a;
                     Nmin:=k;
                    end;
end;