С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ArtemPerm
2 / 0 / 0
Регистрация: 29.08.2013
Сообщений: 29
1

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

09.09.2013, 22:01. Просмотров 1017. Ответов 1
Метки нет (Все метки)

Название: 5656.png
Просмотров: 157

Размер: 1.3 Кб
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2013, 22:01
Ответы с готовыми решениями:

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

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием...
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень...

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

Цикл с предусловием и цикл с постусловием
Составить 3 условия программы с использованием оператора цикла с предусловием и...

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

1
ermolay
3432 / 2371 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
09.09.2013, 23:01 2
Лучший ответ Сообщение было отмечено ArtemPerm как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n,k: byte;
  s: real;
begin
  k:=1; s:=0;
  for n:=1 to 4 do
  begin
    k:=k*n;
    s:=s+(5*n*n+sqrt(n))/k;
  end;
  writeln('s=',s:0:3);
  readln;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n,k: byte;
  s: real;
begin
  n:=1; k:=1; s:=0;
  repeat
    k:=k*n;
    s:=s+(5*n*n+sqrt(n))/k;
    inc(n);
  until n>4;
  writeln('s=',s:0:3);
  readln;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n,k: byte;
  s: real;
begin
  n:=1; k:=1; s:=0;
  while n<=4 do
  begin
    k:=k*n;
    s:=s+(5*n*n+sqrt(n))/k;
    inc(n);
  end;
  writeln('s=',s:0:3);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2013, 23:01

Цикл с предусловием и постусловием. Найдите значение функции y=sin2
Найдите значение ф-ии y=sin2, если x изменяется от -2 до 7 с шагом 0.5, применя...

Используя цикл с предусловием написать программу вычисления функции факториала
Используя цикл с предусловием(while) написать программу вычисления функции...

Цикл с предусловием.Вывести на экран n количество раз слово "цикл"
Используя цикл с предусловием (Pascal) вывести на экран n-ное количество раз...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru