Нужна помощь по паскалю, надо сделать две проги:
1) Вычислить сумму 100 любых положительных чисел.
2) Найти какое количество воды содержиться в 15 полых шарах; Vшара=(4xPixR^3)/3

желательно написать на простейшем уровне, без всяких хитростей.
В школе на завтра задали, а делать кроме этого ещё дофига, помогите! :beer:

Если б на QBasic я б решил, простейшие задачи, а Pascal уже подзабыл.

program imixa;
var a,b,c,d:integer;
mas:array[1..100] of integer;
begin
for a:=1 to 100 do
begin
mas[a]:=random(100);
write(mas[a],',');
b:=b+mas[a];
end;
writeln('summa=',b);
readln
end.
Добавлено спустя 7 минут, 18 секунд
program mixa;
var r,a,b,c,d:integer;
mas:array[1..15] of real;
gs,as:real;
begin
for a:=1 to 15 do
begin
r:=random(50);
as:=(4*3.14*(r*r*r))/3;
mas[a]:=mas[a]+as;
write('radius=',r,',volume=',mas[a]);
gs:=gs+as;
end;
writeln(gs);
readln
end.
Добавлено спустя 26 минут, 46 секунд
program mixa;
var a,b,c:integer;
begin
for a:=1 to 100 do
begin
b:=random(100);
write(b,',');
c:=c+b;
end;
writeln('summa=',c);
readln
end.

program mixa;
var r,a,b:integer;
gs,as:real;
begin
for a:=1 to 15 do
begin
r:=random(50);
as:=(4*3.14*(r*r*r))/3;
write('radius=',r,',volume=',as);
gs:=gs+as;
end;
writeln(gs);
readln
end.

а без mas, array. А то училка насчёт спрашивать, что это такое, а это ещё не проходили... нужно попроще...

Затупил сначала...нижние две смотри

Ок, спасибо огроменное!!!
Не подскажешь, что это означает? -> volume=',as

volume - от англ. - объем
as - переменная, хранящая текущий объем шара с радиусом r

а в первой задачке:
c:=c+b;

тут не c:=a+b; надо написать?

нет. с - сумма. т.е. сумма=сама сумма+текущее значение.
Работает хоть?

И как результат - число от -32768 и до 32768 . Да и во второй проге ничк\его хорошего не получится...

А ты проверял? 100*100=10k - ну и где тут +/-32768? ))

iMixa Да нет, ты ж с не занулил, то есть в начале там может быть что угодно, правильно?

Ну по идее ты прав..
program mixa;
var a,b,c:integer;
begin
c:=0;
for a:=1 to 100 do
begin
b:=random(100);
write(b,',');
c:=c+b;
end;
writeln('summa=',c);
readln
end.

program mixa;
var r,a,b:integer;
gs,as:real;
begin
gs:=0;
for a:=1 to 15 do
begin
r:=random(50);
as:=(4*3.14*(r*r*r))/3;
write('radius=',r,',volume=',as);
gs:=gs+as;
end;
writeln(gs);
readln
end.

3200+, т.к в магазине был только 3000+ на винчестере, а ждать я не хотел

Ещё варианты будут?
Я не проверял ещё.

Считай что это финальный релиз:) На золото ушел:)

iMixa Да? А я подумал, чтобы в синхроне с памятью гнать .
MW! Да все путем, работать будет.
ЗЫ: Решили студенты детскую задачку .

iMixa

Цитата:

а он:"ядро-Атлон 64"

А продавцы, они все такие , ну почти...
И до скольки он максимум гонится? Чисто интересно... Мой рекорд 2744Мг на Clawfammer'e .