tagir.91, Так удобнее читать - seclub.org/old/vdb/pr000.pas.txt Но решение, конечно, "в лоб". За такое отчислять не грех.

ребят помогите пожалуйста... если есть возможность конечно:) задача: построить узор образованный 30 квадратами. вершины каждого следующего квадрата ( всмысле следующий внутри ) это точки на сторонах предыдущего квадрата, делящие эти стороны в отношении 1/8 ... ... ... заранее СПАСИБО

NE(!)TRON, один к восьми это как ? и тебе это надо нарисовать ?

LtiomaP, один к восьми - это сторона делится на 2 части - 1/9 всей стороны и 8/9 всей стороны.

cHeRsAnYa1, нет это делится на одну восьмую и семь восьмых:) да нарисовать:)

NE(!)TRON, тогда это не 1/8, а 1/7. Всего как раз получится 8 частей.

cHeRsAnYa1, а точно ошибся немного:) спасибо что поправил

NE(!)TRON, весь рисунок на мониторе не поместиться,если всё красиво рисовать, а само тело я по позже выкину

Скажите пожалуйста в чом тут ошибка, я новичок : ) Program z1; Var x1,a,c,b,p,Alfa,Lb,x:word; begin writeln ("Vvedit a,b,c: "); readln (a,b,c); p:=(a+b+c)/2; Lb:=2sqrt(acp(p-b))/(a+c); x:=(bb+cc-aa)/(2bc); ALFA:=arctan(sqrt(1-xx)/x); x1:=alfa/3.14*180; writeln ("Alfa=", x1, " Lb=", Lb); end.

seclub.org/forum/goto/5225288/ Помогите,пожалуйста!//Еще раз напишу функцию:f(x)=x*cos(1/x)+2;a=n/4(пи на 4),b=n/2(пи пополам),h=n/80(пи на 80)

В эту тему хотяби кто-то заглядает ??мла

-rescue-, word это целочисленный тип, а операция / дает вещественное. используй real или double.