Помогите!Нужно решить задачи на Pascal

[Nusferatus]

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

+1

Ту афтар: Давай я тебе решение на Ассемблере напишу, а ты потом перевелёшь в Паскаль?

 

[dalex]

x и z являются производственными???

 

[Unlimited]

+1

Ту афтар: Давай я тебе решение на Ассемблере напишу, а ты потом перевелёшь в Паскаль?

А процедуру обхода графа построенного на основе динамического выделения памяти, с графическим отображением процесса, на ассемблере? =)

 

[Nusferatus]

А процедуру обхода графа построенного на основе динамического выделения памяти, с графическим отображением процесса, на ассемблере? =)

Гы.. )) Наши люди видимо..))
А ты где училса?
У мну это курсовая была на 3м курсе)) Правда там предлагалось на чём угодно, у меня получился симбиоз асма и си.
Отображение при помощи OpenGL, а остально бадяжил на чистом WinAPI.

 

[Stealth™]

Гы.. )) Наши люди видимо..))
А ты где училса?

Угу

 

[Unlimited]

Угу

Ага =)

 

[Kenny]

вспомнил свои курсовые...и олимпиады областные.... йех, как это было клёва!
ток вчера блин. лёг уже спать, вышел в ацку. знакомая пишет - реши задачку...
вылез из постели, за комп, читаю...
с клавы задаётся положение ферзя на 8*8 доске и фигуры. кароч надо определить бьёт он её или нет, если да - рандомом выбирается опять позиция дл я фигуры и до тех пор пока не убьёт...
1 мысль сонная - куча проверок...
2 мысль умная - листочек в руки!!! и за 1 минуту 4 условия готовы
всё было просто.
условия на то что ферзь БЬЁТ:
1) (Xферзя+Yферзя)=(Xфигура+Yфигура) (побочная диагональ которая)
2) (Xферзя-Yферзя)=(Xфигура-Yфигура) (главная диагональ)
3) Xферзя=Xфигуры
4) Yферзя=Yфигуры

и даж кодить сильно не пришлось ....
вторая и 3 конечно были повеселее, но тут я просто сам себя потешил...забывать стал простые приколы...

 

[talisman]

1) (Xферзя+Yферзя)=(Xфигура+Yфигура) (побочная диагональ которая)
2) (Xферзя-Yферзя)=(Xфигура-Yфигура) (главная диагональ)
3) Xферзя=Xфигуры
4) Yферзя=Yфигуры

первый курс, второй семестр.

 

[ScorpionSP]

формулу в студию
что значит in(2),in(3)..? видимо я туплю и уже не понимаю...

Ты не один такой


P.S. А никто не поможет запихать слайдер в статус-бар и заставить его зуммировать Direct3D поверхности? ))))))))))))))))

 

[Nusferatus]

Ты не один такой


P.S. А никто не поможет запихать слайдер в статус-бар и заставить его зуммировать Direct3D поверхности? ))))))))))))))))

Ну а в чём трабл то?
По сигналу от слайдера камеру то ближе, то дальше.

 

[Kenny]

первый курс, второй семестр.

давно было, оч давно тем паче, явно не 2-й, потому что ща осень, а это первый и ей ща надо, а не просто так решал. чо за учебное заведение и курс - я хз


2ScorpionSP: не я один такой...уже обрадовался

 

[ScorpionSP]

Ну а в чём трабл то?
По сигналу от слайдера камеру то ближе, то дальше.

Нет никаких камерков Всё не так просто...

 

[Nusferatus]

Нет никаких камерков

Эт как? )))

 

[ParadoxX]

2. Составить программу. Вычислить x и z, где x и z являются производств и вводятся с клавиатуры. y=((x-3)(квадрат)+8)куб.

program num2;
var x,y,z,l:real;
begin	writeln('Vvedite X i Z');	readln(x);	readln(z);	l:=(sqr(x-3)+8);	y:=l*l*l;	writeln('Rezultat ',y:5:2);
end.

3.Составить программу вычисления значения функции.
____sinx,при -1<x, x<0
|
F< cosx,при x>0, x<1
|
-------tgx,при x>1

program num3;
var f,x:real;
begin
writeln('Vvedite X');
readln(x);
if ((-1<x) and (x<0)) then f:=sin(x)
else if ((x>0) and (x<1)) then f:=cos(x) else if (x>1) then	f:=sin(x)/cos(x);
writeln('Rezultat ',f:5:3);
end.

5. Задать одномерный массив x содержащий n элементов. Составить программу для вычисления. Номера и значения наибольшего положительно элемента массива;

program num5;
var i,j,k,n:integer;
a:array[1..100] of integer;
begin
writeln('Vvedite dlinu massiva');
readln(n);
writeln('Vvedite elementi massiva');
for i:=1 to n do
readln(a[i]);
writeln('Massiv:');
for i:=1 to n do write(a[i],' ');
writeln;
k:=a[1];j:=1;
for i:=1 to n do
if (a[i]>k) then
begin
k:=a[i];
j:=i;
end;
writeln('Naibolshii element massiva: ',k,' s nomerom ',j);
end.

P.S. По опервой задаче надо форумулы для вычисления ботвы, ибо геометрию забыл, а книжки искать лениво. По четвертой надо пояснение условия (формулу)...

 

[Stealth™]

надо форумулы для вычисления ботвы, ибо геометрию забыл, а книжки искать лениво.

А вывести ???

 

[silencer400cc]

млин... дожили... Уже никто из сокурсников помочь не может???

 

[Kenny]

2парадокс:
2. а нахера в этой задаче у тя Z ? )))))))))))))
3. спорим тут есть большая бага?
5. не считаешь что переменная k лишняя?

 

[Kenny]

формулу то всегда можно в инете найти.
а вот что такое IN...хз... знаю тока inc(x), т.е. увелиичение на 1 числа x

 

[ParadoxX]

2kenny я это писал ближе к 4м утра после празднования дня рождения AG, но на форум выложил днем, потому что ночью у меня форма ответа не грузилась =(. По теме, я тут первый, кто написал что-то дельное. Если ты нашел баги или недоработки - переправь или укажи на них.

 

[Stas_K]

4. Для заданного натурального n(n>1). Вычислить конечною сумму или произведение Pn. P=in(2) x in(3) x in(4) x ... x in

Похоже, что имеется ввиду ln

Program num4;
Var
i,n:Integer;
P:Real;

Begin

Write('Vvedite n: ');
Readln;
if n>1 Then
Begin
P:=ln(2);
For i:=3 To n Do P:=P*ln(i);
writeln('P = ',P);
End
Else Writeln('n doljno byt' >1');

end.