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

  • Автор темы Antonio
  • Дата начала
Nusferatus

Nusferatus

Super Moderator
Регистрация
01.12.2006
Сообщения
40 161
Реакции
179
Баллы
63
Коль...блин вот такие вот деятели потом идут на работу устраиваться....наберут каких то непонятных бумажек...сертификатами обзовут их...дипломами...свидетельствами....оставишь одного...заипут звонками..а как...а чего....
ужасает то что и "врачи" такие же.....мосты люди "проектируют"..........

+1

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

dalex

Новичок
Регистрация
15.02.2006
Сообщения
17 333
Реакции
49
Баллы
0
x и z являются производственными???
 
Unlimited

Unlimited

Участник
Регистрация
08.04.2005
Сообщения
6 757
Реакции
15
Баллы
38
+1

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

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

Nusferatus

Super Moderator
Регистрация
01.12.2006
Сообщения
40 161
Реакции
179
Баллы
63
А процедуру обхода графа построенного на основе динамического выделения памяти, с графическим отображением процесса, на ассемблере? =)

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

Kenny

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

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

talisman

Новичок
Регистрация
06.04.2004
Сообщения
2 582
Реакции
0
Баллы
0
1) (Xферзя+Yферзя)=(Xфигура+Yфигура) (побочная диагональ которая)
2) (Xферзя-Yферзя)=(Xфигура-Yфигура) (главная диагональ)
3) Xферзя=Xфигуры
4) Yферзя=Yфигуры
первый курс, второй семестр.
 
ScorpionSP

ScorpionSP

Участник
Регистрация
14.09.2006
Сообщения
6 023
Реакции
9
Баллы
38
формулу в студию
что значит in(2),in(3)..? видимо я туплю и уже не понимаю...
Ты не один такой :)


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

Nusferatus

Super Moderator
Регистрация
01.12.2006
Сообщения
40 161
Реакции
179
Баллы
63
Ты не один такой :)


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

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

Kenny

Новичок
Регистрация
12.01.2006
Сообщения
5 855
Реакции
4
Баллы
0
первый курс, второй семестр.
давно было, оч давно :) тем паче, явно не 2-й, потому что ща осень, а это первый :) и ей ща надо, а не просто так решал. чо за учебное заведение и курс - я хз :)


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

ParadoxX

Новичок
Регистрация
12.07.2007
Сообщения
1 729
Реакции
0
Баллы
0
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. По опервой задаче надо форумулы для вычисления ботвы, ибо геометрию забыл, а книжки искать лениво. По четвертой надо пояснение условия (формулу)...
 
S

silencer400cc

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

Kenny

Новичок
Регистрация
12.01.2006
Сообщения
5 855
Реакции
4
Баллы
0
2парадокс:
2. а нахера в этой задаче у тя Z ? )))))))))))))
3. спорим тут есть большая бага?
5. не считаешь что переменная k лишняя? :)
 
Kenny

Kenny

Новичок
Регистрация
12.01.2006
Сообщения
5 855
Реакции
4
Баллы
0
формулу то всегда можно в инете найти.
а вот что такое IN...хз... знаю тока inc(x), т.е. увелиичение на 1 числа x
 
ParadoxX

ParadoxX

Новичок
Регистрация
12.07.2007
Сообщения
1 729
Реакции
0
Баллы
0
2kenny я это писал ближе к 4м утра после празднования дня рождения AG, но на форум выложил днем, потому что ночью у меня форма ответа не грузилась =(. По теме, я тут первый, кто написал что-то дельное. Если ты нашел баги или недоработки - переправь или укажи на них.
 
Stas_K

Stas_K

Участник
Регистрация
24.01.2006
Сообщения
925
Реакции
2
Баллы
18
4. Для заданного натурального n(n>1). Вычислить конечною сумму или произведение Pn. P=in(2) x in(3) x in(4) x ... x in(n)

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

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

Begin

Write('Vvedite n: ');
Readln(n);
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.
 
Верх Низ