var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом; представляя язык, автор в качестве цели его создания указывал построение небольшого и эффективного языка, способствующего хорошему стилю программирования, использующему структурное программирование и структурированные данные.
Последующая работа Вирта была направлена на создание на основе Паскаля языка системного программирования, с сохранением возможности вести на его базе систематический, целостный курс обучения профессиональному программированию.Результат этой работы — язык Модула-2.
Const
N = 10;
Var
A:array[1..N] of integer;
i,b:integer;
Begin
Write('b = ');ReadLn(b);
Write('Введите массив: ');
For i:= 1 to N do
Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-b;
Write(' ',A[i])
End;
End.
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
Write('Введите массив: ');
For i:= 1 to N do Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-A[N];
Write(' ',A[i])
End;
End.
Конец
Перед первым выполнением цикла необходимо задать начальное значение «Сумма» = 0 и затем nраз вычислять «Сумма» при различных значениях Xi<span> и Y</span>i, где i принимает последовательно значения 1,. . ., n и используется цикл с постусловием. В схеме алгоритма заменим слово «сумма» буквой S.
Вычислить факториал М! = 1х2хЗх (М - 1)х М
<span>Факториал вычисляется как произведение от 1 до М, аналогично предыдущему вычислению суммы. Начальное значение переменной «ФАКТ»=1, если это значение задать равным нулю, то и результат будет нулевым.</span>
begin
var n := ReadInteger;
var a := ArrRandom(n, -99, 99);
a.Println;
var (imax, imin) := (a.IndexMax, a.IndexMin);
Swap(a[imax], a[imin]);
a.Println;
end.
Пример работы на рисунке.
