Форум АНТИЧАТ - Студентам с лабораторными сюда

#11

17.11.2008, 23:19

Cereus

Новичок

Регистрация: 09.11.2008

Сообщений: 15

Провел на форуме:
59870

Репутация: 16

AgS
1) Если тебе отказали в ответе это еще не значит, что форум отстойник. Попробуй напиши сначала сам, а там что не получится - обращайся, ну... или... действительно заплати кому нибудь денег...
2) Ты не только что начал изучать Pascal - твои задачи, скажем так, из разных тем: линейное программирование, графика, циклическое программирование. Что-то мне подсказывает, что ты усиленно прогуливал пары/уроки (нужное подчеркнуть), а сейчас препод схватил тебя за яйки вот ты и прибежал сюда в поисках халявы
3)Будем милостивы :-), ибо чем больше в армии дубов тем крепче оборона:

Код:

program name;
var a,b,c:real;
    srArif,SrGeometr:real;

begin
writeln ('Заполните данные');
write ('Введите значение а '); readln(a);
write ('Введите значение b '); readln(b);
write ('Введите значение c '); readln(c);
SrArif:=(a+b+c)/3;
srGeometr:=exp((1/3)*ln(a*b*c));
writeln ('Среднее арифметическое равно ',srArif:4:4);
writeln ('Среднее геометрическое равно ',srGeometr:4:4);
readln;
end.

Остальное изволь делать сам. И не забудь проверить, кто знает, может я здесь наделал ошибок?