Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
1

Задачи с использованием While, Repeat, For.

27.10.2011, 22:46. Показов 2247. Ответов 7
Метки нет (Все метки)

Прошу помощи столкнулся со сложностями в следующих задачах. Заранее спасибо!
1.Написать программу для вычисления суммы, имеющей своими слагаемыми https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{n} .
a) первые m слагаемых данной суммы (m вводится);
b) вычислять до тех пор пока https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{n}\geq E (Е вводится);

2.Написать программу для вычисления произведения n сомножителей.
a(a+1)...(a+n–1). Число a вводится.

3,Для функции y=f(x) получить таблицу значений этой функции на отрезке. Количество точек на промежутке задается пользователем.
https://www.cyberforum.ru/cgi-bin/latex.cgi?y=cos x + {x}^2, x\epsilon [-\pi ,\pi ];

4.Написать программу для решения задачи.
Найти первый отрицательный элемент последовательности cos(ctg n) n=1, 2, ... и его номер.

5.Дочери 8 лет, а матери 38 лет. Через сколько лет мать будет в 3 раза старше дочери?

6.Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых меньше заданного числа Х.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2011, 22:46
Ответы с готовыми решениями:

Задачи с использованием цикла repeat!
Помогите решить 3 задачи с использованием цикла repeat!!!!! Пожалустаааа...... 1. Составать...

Задачи на repeat
Помогите решить задачи с помощу repeat.:wall: 1)Дано целое число N и набор из N целых...

Вычисления с использованием for goto while repeat
1. Вычислить https://www.cyberforum.ru/attachment.php?attachmentid=15896&stc=1&d=1260759258. Всего...

Вычислить с использованием операторов while, repeat
Вычислить с использованием операторов while, repeat

7
5 / 2 / 1
Регистрация: 20.09.2011
Сообщений: 13
28.10.2011, 00:53 2
пятая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program z5;
var m,d,n:integer;
begin
  m:=38;
  d:=8;
  n:=0;
  while (d*3)<>m do
   begin
    n:=n+1;
    m:=m+1;
    d:=d+1;
   end;
  writeln('Через ',n,' лет')
end.
Добавлено через 1 час 51 минуту
вторая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program z6;
var a,n,p:integer;
i:byte;
begin
 writeln('Введите a');
 readln(a);
 writeln('Введите n');
 readln(n);
 P:=a;
 for i:= 1 to n-1 do
  begin
   p:=p*(a+i);
  end;
 writeln(p);
end.
1
80 / 68 / 31
Регистрация: 10.05.2011
Сообщений: 284
10.11.2011, 00:22 3
а первую кто знает?*
0
43 / 27 / 6
Регистрация: 27.09.2011
Сообщений: 280
10.11.2011, 03:41 4
Третяя

Сначало промежуток узнай....
0
80 / 68 / 31
Регистрация: 10.05.2011
Сообщений: 284
10.11.2011, 10:16 5
Цитата Сообщение от Noclip Посмотреть сообщение
Третяя
Сначало промежуток узнай....
там есть промежуток он просто не написал!
напиши промежуток!
0
43 / 27 / 6
Регистрация: 27.09.2011
Сообщений: 280
10.11.2011, 21:09 6
Просто вот так совпало что мы это вот сейчас проходим по Дикретной математике.. и нас к ней программу заставили делать для отчета...

напиши промежуток ..
0
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
24.12.2011, 11:25  [ТС] 7
Извиняюсь, вот промежуток [-n, n]
0
43 / 27 / 6
Регистрация: 27.09.2011
Сообщений: 280
24.12.2011, 19:42 8
VALIDOL4IK, я с косинусом не знаю как найти....
извини
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2011, 19:42

Переписать программу с использованием Repeat
var a,b,s,i:integer; begin writeln('введите последовательность целых чисел'); read(b); for i:=1...

Переписать код с использованием while, repeat
переведите в while i repeat var N, K, i, d: integer; begin write('Skolko detei? '); ...

Вычислить с использованием операторов while, repeat
Вычислить с использованием операторов while, repeat

Найти НОК с использованием while и repeat
Привет всем! Помогите плиз написать прогу на Pascal. Задача такова Найти НОК (наименьшее общее...

Как переделать задачи из while в repeat
помогите пожалуйста переделать программы из while в repeat...until) Program We678; var...

Задачи на оператор цикла repeat
Задача 1. Составить программу, которая выводит все двухзначные числа кратные 8 Задача 2. Билет...


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

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

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