Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискСмотриComboВсе проекты

Pascal

Настя Мастер (1213), на голосовании 11 лет назад
помогите, пожалуста=)
Надо написать программы на турбо паскале:

1) написать программу вычисления а(в степени n), не используя функцию sqr(a), n-снатуральное число. Значения а и n вводить с клавиатуры.
2)Вводя по очереди с клавиатуры ежемесячный заработок сотрудника за год, определить его средний зароботок.
3)Вводя по очереди с клавиатуры результаты заплыва 10 пловцов, определить фамилию и результат призера.

циклические задачи
Голосование за лучший ответ
Artemiy Kiriakov Оракул (51994) 11 лет назад
Включи мозг.
Все элементарно.
Тебя учат чтобы ты училась а не чтобы за тебя кто-то писал.
НастяМастер (1213) 11 лет назад
спс. если б я понимала эту тему, уже написала. сижу, обложившись учебниками, и ничего не могу понять. Если все "элементарно" не составит ли вам труда мне помочь хотя бы с одной задачей?
Artemiy Kiriakov Оракул (51994) А кто-то еще поможет с еще одной а кто-то еще с последней. Нет. Если хочешь - задавай вопрос по существу - постараюсь ответить.
НастяМастер (1213) 11 лет назад
S:=1
for I:= 1to y
y-?
или єто вообще не то?
Artemiy Kiriakov Оракул (51994) Это какое задание? ;] Что такое S и что такое Y ? Подробнее давай
Руслан Губайдуллин Профи (755) 11 лет назад
395359808
стучи, помогу!
НастяМастер (1213) 11 лет назад
а так не поможешь? =)
Руслан Губайдуллин Профи (755) решу задачки)
Аццкий скорпиончег Просветленный (23499) 11 лет назад
1.

realdn(a,n);
writeln('a в степени n: ', round(exp(n*ln(a))));
readkey;

2.

s:=0;
for i:=1 to 12 do
begin
readln(zar);
s:=s+zar;
end;
sr:=s/12;
writeln(sr:9:4);
readkey;

3.

min:=32000;
for i:=1 to 10 do
begin
readln(fam);
readln(n);
for n < min then
begin
min:=n; {если очередное время меньше минимального, то переписываем минимальное время}
win:=fam;
end;
end;
writeln('Победил пловец ',win, ' со временем ',min);
readkey;

Описать переменные, надеюсь, сможешь сама.. . Но если что, пиши, помогу...
НастяМастер (1213) 11 лет назад
спассибо огромное приогромное
Похожие вопросы
Также спрашивают