Turbo Pascal

[NebsteR]

Всем ЗДРАСТЕ! Пожалуйста напишыте если кто умеет решение задачь по информатеке в турбо паскале!
№1 Найти указаный процент от числа.
№2 Вычеслить радиус между двумя точками по введеным координатам(X первое,Y первое) и (Х второе , Y второе)
№3 Вычеслить радиус окружности описаной около произвольного трехугольника по введеным трем сторонам
№4 Вычеслить объем, боковую и полную поверхность прямого прямого кругового цилиндра по введенным радиусу и высоте.
СПОСИБО ЗА ПОМОЩЬ!!!

 

[Hamster]

1. program h;
var x,n:real;
begin
write('vvedite 4iclo:');
readln(x);
write ('vvedite vi4itaemiy procent:');
readln(n);
write (n,'procentov ot 4isla',x,'=', x*(n/100);
readln;
end.

2.Может там надо вычесть не радиус между 2-мя точками(???????как ето?????) а растояние между ними?
program gdsgs;
var x1,x2,y1,y2,r:real;
begin
wtite('vvedite 4erez probel koordinati 1 to4ki');
readln(x1,y1);
wtite('vvedite 4erez probel koordinati 2 to4ki');
readln(x2,y2);
r:=sqrt(sqr(abs(x2-x1))+sqr(abs(y2-y1)));
write('rassto9nie mejdu to4kami:',r:5:2);
readln;
end.

3.
program sdgsdag;
var p,a,b,c,s,r:real;
begin
write('vvedite 3 ctoroni 4erez probeli:');
readln(a,b,c);
p:=(a+b+c)/2;{ищем площадь треугольника за ф-й герона}
s:=sqrt(p*(p-a)*(p-b)*(p-c));
r:=a*b*c/4*s;
{на счет етой ф-лы я не даю 100% гарантии. впиши сам ф-лу вычислениея радиуса окружности по 3-м сторонам и площади треугольника. (a,b,c стороны s-площадь треугольника}
write('radiyc=',r:5:2);
readln;
end.

4. program sdgsdg;
const pi=3.14;
var r,h,spol,sbok,v,sosn:real;
begin
write('vvedite radiyc:');
readln(r);
write('vvedite visotu');
readln(h);
sosn:=pi*r*r;
sbok:=2*pi*r*h;
spol:=2*sosn+sbok;
v:=sosn*h;
writeln('obem:',v:5:2);
writeln ('polna9 plowad',spol:5:2);
writeln('bokova9 plowad:',sbok:5:2);
readln;
end.

если будет выдавать какието ошибки, пиши, я проги не проверял, но должни пахать=)

 

[NebsteR]

ОГО! спасибо большое !

 

[NebsteR]

1. program h;
var x,n:real;
begin
write('vvedite 4iclo:');
readln(x);
write ('vvedite vi4itaemiy procent:');
readln(n);
write (n,'procentov ot 4isla',x,'=', x*(n/100);
readln;
end.
Пишет какойто там ерор в ето строке : readln(n);
Пишет ";" expected

 

[Hamster]

уууууууу так ты вообще без рамы. Программирование - ето супер!
И ничего сложного там нету, нужно только твое желание.
Я вот например на екзамен по информатике подготовил программку по паскалю на 20 страничек 12 шрифтом. Никаких притензий небыло,
12 баллов в атестат.

зы ниужели не понятно, что ты пропустил гдето ; после какойто строчки.
; не ставится только после слова begin и еще некоторых команд, но ты про них наверное не знаеш. А в самом конце программы ставим точку.

юзай! былобы только желание твое.

 

[Hamster]

write (n,'procentov ot 4isla',x,'=', x*(n/100));

Пишет какойто там ерор в ето строке : readln(n);
Пишет ";" expected

скобку еще одну поставь в конце.

 

[NebsteR]

Та я то шарю, но мы токо начали ету тему делать и я на большей части уроков не был=(.

 

[NebsteR]

Все уже теперь все работает!НУ всмысле ета задача!
Но например я ввожу число 100 выбираю процент 50
и потом оно пишет:
5.000000000E+0.1procentov ot 4isla 1.0000000000E+02= 5.0000000000E+01

 

[FEOFAN]

Ходи на уроки!
А пока пиши вот это
write (n:4:4,'procentov ot 4isla',:4:4,'=', (x*(n/100):4:4);

 

[Hamster]

Ходи на уроки!
А пока пиши вот это
write (n:4:4,'procentov ot 4isla',:4:4,'=', (x*(n/100):4:4);

и ты скобку вконце забыл поставить, как и я.=)