Задача: Сортировка массива в паскале – Найти факториал числа

В данной статье мы разберем то , как делать сортировку внутри массива. Делать его нарастающим или убывающим.

Например сделать из массива A = [ 13 ; -5 ; 4 ; 11 ; 0 ] такой массив : A = [ -5 ; 0 ; 4 ; 11 ; 13 ] и т.п.

Условие задачи : Требуется заполнить массив 10 целыми числами ( случайно ) от -10 до 10 и вывести его на экран. После чего изменить его таким образом , чтобы числа находились в нем в порядке возрастания. Вывести исходный массив на экран.

Содержание

Решение задачи :

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.

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.

Читать Тип char (символьный) в паскале

Разбор задачи :

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

Далее идут 2 цикла вложенных друг в друга. Для того , чтобы отсортировать последовательность чисел :

Первый цикл берет одно число , а второй сравнивает его с остальными числами.

Первое число сравнивается со 2,3,4,5… числом. Второе число с 3,4,5… пока предпоследнее число в последовательности не будет сравниваться с последним.

Сравнение происходит так : если одно число меньше другого , то обмениваем их. Подробнее про обмен тут

Найти факториал числа

В данной статье мы рассмотрим решение такой задачи :

Нам требуется ввести число с клавиатуры ,а потом вывести факториал этого числа.

Факториал числа — это произведение всех натуральных чисел от 1 до N , где N — число , факториал которого мы ищем. Проще говоря , факториал числа 5 = 1 * 2 * 3 * 4 * 5 ( 120 ).

Как вы понимаете , факториал может получаться очень большим. Задача довольно простая , давайте рассмотрим её решение.

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.

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.

В данной задаче нам понадобятся 3 переменные. Переменная N будет хранить в себе число вводимое с клавиатуры. Переменная i будет играть роль счетчика для цикла. Переменная S хранит в себе окончательный результат.Задачу по поиску факториала проще всего решить с помощью цикла for. В начале программы мы вводим число n. После этого присваиваем переменной s значение 1 ( для того , чтобы правильно считать произведение ). Если бы мы оставили в переменной s значение 0 , то факториал 5 считался бы так 0 * 1 * 2 * 3 * 4 * 5 ( 0 ).

Читать Одномерные массивы в Паскале – Pascal Array для чайников

В цикле 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 на экран. Вот и все.

[Всего голосов: 4 Средний: 5/5]

« ІНФОРМАТИКА для 9 класу

Паскаль Обмен значениями двух переменных »