

Например сделать из массива A = [ 13 ; -5 ; 4 ; 11 ; 0 ] такой массив : A = [ -5 ; 0 ; 4 ; 11 ; 13 ] и т.п.
Условие задачи : Требуется заполнить массив 10 целыми числами ( случайно ) от -10 до 10 и вывести его на экран. После чего изменить его таким образом , чтобы числа находились в нем в порядке возрастания. Вывести исходный массив на экран.
Решение задачи :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
program mypascal; uses crt; var a: array[1..10] of integer; i,i1,c:integer; begin randomize; for i:= 1 to 10 do begin a[i]:= random(21)-10; write(a[i],' '); end; writeln(' '); for i:= 1 to 9 do for i1:= i+1 to 10 do if ( a[i1] < a[i] ) then begin c:= a[i]; a[i]:= a[i1]; a[i1]:= c; end; for i:= 1 to 10 do write(a[i],' '); end. |
Разбор задачи :
В начале программы заполняем массив 10 случайными числами от -10 до 10. В этом же цикле выводим массив на экран.
Далее идут 2 цикла вложенных друг в друга. Для того , чтобы отсортировать последовательность чисел :
Первый цикл берет одно число , а второй сравнивает его с остальными числами.
Первое число сравнивается со 2,3,4,5… числом. Второе число с 3,4,5… пока предпоследнее число в последовательности не будет сравниваться с последним.
Сравнение происходит так : если одно число меньше другого , то обмениваем их. Подробнее про обмен тут
Найти факториал числа

Нам требуется ввести число с клавиатуры ,а потом вывести факториал этого числа.
Факториал числа — это произведение всех натуральных чисел от 1 до N , где N — число , факториал которого мы ищем. Проще говоря , факториал числа 5 = 1 * 2 * 3 * 4 * 5 ( 120 ).
Как вы понимаете , факториал может получаться очень большим. Задача довольно простая , давайте рассмотрим её решение.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
program mypascal; var n,i:integer; s:longint; begin write('Введите число : '); readln(n); s:= 1; for i:= 1 to n do s:= s * i; writeln('Факториал числа ',n,' = ',s); end. |
В цикле for считаем значение факториала и заносим его в переменную s.
Допустим , мы ввели число 3 ( n ) , тогда цикл работает так :
1 шаг : 1(s) * 1(i) = 1 ( s )
2 шаг : 1(s) * 2(i) = 2 ( s )
3 шаг : 2(s) * 3(i) = 6 ( s )
Запомните , что факториал 0 = 1 !
В конце программы выводим переменную s на экран. Вот и все.