0 / 0 / 0
Регистрация: 15.04.2012
Сообщений: 9
1

Вычислить сумму ряда, используя цикл с параметром, с предусловием, с постусловием

24.04.2012, 12:28. Показов 15182. Ответов 3
Метки нет (Все метки)

помогите пожалуйста написать программы срочно нада очень очень
помогите пожалуйста написать программы:
1)оператор CASE OF ------
выдающую по введеному возрасту пользователя сообщение к какому возростному периоду (подростковый, ранняя юность, юношество, взрослый период, зрелость) относится пользователь.
2)циклы(FOR, REPEAT, WHILE--- три варианта решения)-----
составить программу вычисляющую сумму S=1^2+2^2+3^2+4^2+...+10^2.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2012, 12:28
Ответы с готовыми решениями:

Цикл с предусловием и постусловием. Вычислить сумму ряда
\sum_{n=1}^{\infty}\frac{{x}^{n+1}}{{(2n-1)}^{2}}

Вычислить сумму ряда с параметром либо с предусловием либо с постусловием
Решить задачу используя 2 вида цикла с параметром и с условием либо с предусловием либо с...

Используя операторы цикла с предусловием и постусловием, найти сумму ряда с указанной точностью
Используя операторы цикла с предусловием и постусловием, найти сумму ряда с точностью е=0.001 и...

Цикл с параметром, предусловием и постусловием
Дано натуральное n, и действительное X вычислить : Sin X +SinSin X+SinSinSin X+.... Написать с...

3
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,495
Записей в блоге: 1
24.04.2012, 14:31 2
А данные дай со сколько до скольки лет относить к определенному периоду

Добавлено через 18 минут
Pascal
1
2
3
4
5
6
7
8
Program summa;
Var i,s:integer;
Begin
    For i:=1 to 10 do
    s:=s+sqr(i);
    Writeln('Сумма= ',s);
    readln;
End.
Добавлено через 7 минут
Возраст сам расставишь как тебе угодно)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program summa;
Var n:integer;
Begin
    write('Введите возраст ');readln(n);
    Case n of
    0..9:writeln('Подростковый');
    10..19:writeln('Ранняя юность');
    20..29:writeln('Юнешество');
    30..49:writeln('Взрослый период');
    50..100:writeln('Зрелость');
    Else writeln('Вы слишком стары :)')
    End;
    readln;
End.
1
7 / 7 / 1
Регистрация: 25.10.2011
Сообщений: 51
24.04.2012, 14:43 3
Цитата Сообщение от g-gurda Посмотреть сообщение
2)циклы(FOR, REPEAT, WHILE--- три варианта решения)-----
составить программу вычисляющую сумму S=1^2+2^2+3^2+4^2+...+10^2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
i:integer;
sum,s:real;
Begin
clrscr;
i:=0;
REPEAT
i:=i+1;
sum:=exp(ln(i)*2);
s:=s+sum;
until i=10;
writeln('Ñóììà=',s);
end.
Добавлено через 5 минут
Цитата Сообщение от g-gurda Посмотреть сообщение
2)циклы(FOR, REPEAT, WHILE--- три варианта решения)-----
составить программу вычисляющую сумму S=1^2+2^2+3^2+4^2+...+10^2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var
i:integer;
sum,s:real;
Begin
clrscr;
i:=0;
while i<10 do
begin
i:=i+1;
sum:=exp(ln(i)*2);
s:=s+sum;
writeln('Ñóììà=',s);
end;
end.
1
0 / 0 / 0
Регистрация: 15.04.2012
Сообщений: 9
24.04.2012, 15:33  [ТС] 4
спасибо огромное всем=) просто мне надо до субботы отчет по практике в тех здать и дали вот такое задание=)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2012, 15:33
Помогаю со студенческими работами здесь

Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста

Вычислить сумму первых 8 чисел, используя цикл с предусловием
Вычислить сумму первых 8 чисел, используя цикл с предусловием

Используя оператор цикла с предусловием, вычислить сумму ряда
Используя оператор цикла с предусловием, вычислить сумму ряда с точностью ε=10-3:...

Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром
Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru