Turbo Pascal
- Автор теми NebsteR
- Дата створення
NebsteR
Маленький корабль счастья
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.
Что то оно полную площадь не ищет. Ну оно то наверно ищет но пишет всегда 0 какие б числа я б не вводилбы=(((
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.
Что то оно полную площадь не ищет. Ну оно то наверно ищет но пишет всегда 0 какие б числа я б не вводилбы=(((
NebsteR
Маленький корабль счастья
Ghost скажи плиз свой ник в мирке и пожалуста если можеш помоги еще задачку! я тебя конечно не заставляю такчто если хочеш можеш не помогать!Но тебе то ващето пофиг бо ти их как семечки лускаеш - такчто пожалуста помоги!
#1 Вычислить радиус окружности, описаной около прямоугольного триугольника, по введеным катетам!
№2 Вычеслить обьем и боковую поверхности правильной черерехугольной пирамиды по введеным сторонам и высоте
#1 Вычислить радиус окружности, описаной около прямоугольного триугольника, по введеным катетам!
№2 Вычеслить обьем и боковую поверхности правильной черерехугольной пирамиды по введеным сторонам и высоте
Hamster
Well-Known Member
1.
program fdhdhd;
var s,a,b,c,r:integer;
begin
write('vvedite 4erez probel kateti;');
readln(a,b);
r:=(sqrt(a*a+b*b))/2;
write('radiyc:',r:5:2);
readln;
end.
2. если я не ошибаюсь, сторона - ето ребро боковое. пусть будет так.
program drhhrete;
v,sbok,a,x,h:real;
begin
write('vvedite 4erez probel ctoronu i visoty:');
readln(a,h);
x:=sqrt(sqrt(a*a-h*h));{storona kvadrata pri osnovanii}
v:=(1/3)*(sqrt(a*a-h*h))*h;{obem}
p:=(2*a+x)/2;{polyperimetr treugolnika(gran' bokova9)}
sbok:=4*sqrt(p(p-a)*(p-a)*(p-x));
writeln('obem:',v:5:2);
write('bokova9 poverxnost':',sbok:5:2);
readln;
end.
ну что я тебе скажу. ниужели ты сам не можешь написать ети 3 строчки?
хоть ты меня проси хоть не проси, серовно по программированию ти хорошей оценки не получиш, пока не сядеш сам и не разберешся в етих елементарных вещах.
program fdhdhd;
var s,a,b,c,r:integer;
begin
write('vvedite 4erez probel kateti;');
readln(a,b);
r:=(sqrt(a*a+b*b))/2;
write('radiyc:',r:5:2);
readln;
end.
2. если я не ошибаюсь, сторона - ето ребро боковое. пусть будет так.
program drhhrete;
v,sbok,a,x,h:real;
begin
write('vvedite 4erez probel ctoronu i visoty:');
readln(a,h);
x:=sqrt(sqrt(a*a-h*h));{storona kvadrata pri osnovanii}
v:=(1/3)*(sqrt(a*a-h*h))*h;{obem}
p:=(2*a+x)/2;{polyperimetr treugolnika(gran' bokova9)}
sbok:=4*sqrt(p(p-a)*(p-a)*(p-x));
writeln('obem:',v:5:2);
write('bokova9 poverxnost':',sbok:5:2);
readln;
end.
ну что я тебе скажу. ниужели ты сам не можешь написать ети 3 строчки?
хоть ты меня проси хоть не проси, серовно по программированию ти хорошей оценки не получиш, пока не сядеш сам и не разберешся в етих елементарных вещах.
Hamster
Well-Known Member
База данных - ето массив (таблица другими словами)lizet сказав(ла):
program sgag;
var A:array[1..5,1..6] of integer;
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
end;
end.
Вот у тебя будет своя база данных, состоящая из 30 чисел, которые размещены в таблице 5х6.
Опиши поподробней, что тебе надо. А то ета программа то ничего и не делает то. Ты заносиш числа и все.
lizet
нормальная;)
я вроде знаю о типизированных файлах и записях и масивах истроках и о всякой лабуде знаю...KoLoB сказав(ла):А кто вам мешает писать в файл?
Типизированный файл и записи вам о чем то говорит? (Если нет, можно сильно извратиться и заюзать текстовый)
Впринципе могу дать литературу
но знания на практике мне трудновато применить