Составить программу последовательно используя для решения задачи все три циклические управляющие структуры

@tepu · Регистрация: 24.04.2015

Помогите пожалуйста сижу 4 час не могу составить алгоритм и программу.
Составить программу последовательно используя для решения задачи все три циклические управляющие структуры (операторы while, repeat…until, for).
Для введенных с клавиатуры значений X и m вычислить P:

@Hitoku · 08.01.2018, 21:22

Ну вот как вариант, но при условии, что M чётное

Pascal

var m, i, x: integer;
    p: real;
begin
  repeat
    write('M = '); readln(m);
  until m mod 2 = 0;
  write('X = '); readln(x);
  p := 1;
  for i := 1 to m div 2 do
    p := p * (m + x / (m - i + 1));
  i := m div 2 + 1;
  while i <= m do begin
    p := p * (m + x / (m - i + 1));
    i := i + 1;
  end;
  writeln('Result = ', p);
end.

@tepu 0 / 0 / 0 Регистрация: 24.04.2015 Сообщений: 2
		1
	Составить программу последовательно используя для решения задачи все три циклические управляющие структуры 08.01.2018, 21:01. Показов 1320. Ответов 1 Метки нет (Все метки) Помогите пожалуйста сижу 4 час не могу составить алгоритм и программу. Составить программу последовательно используя для решения задачи все три циклические управляющие структуры (операторы while, repeat…until, for). Для введенных с клавиатуры значений X и m вычислить P: Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

Опции темы

Составить программу последовательно используя для решения задачи все три циклические управляющие структуры

Решение