[i]:=0; i:=2 to n do Beginj:=1 to k do begin [ j]:=m [j] * i + t;:=0; m [j] gt; 9 then begin:=m [j] div 10; [j]:=m [j] mod 10 ;;;; :=0;:=k; (i gt;=1) and (m [i]=0) do Begin:=c + 1;:=i - 1 ;; (n, ! , = ); i:=kc downto 1 do Write (m [i]) ;;;
readln;
end.
Опис програми:
program factorial;- Задається назва програми;
const k=30000;- Оголошено константа k;
Var - оголошення змінніх;
m: array [1..k] of integer;- Змінна m Оголошено як масив від 1 до k тобто до 30000;
c, t, j, i, n: Integer;- Змінні c, t, j, i, n оголошені як змінні типу Integer;
Begin - старт програми (головний Begin програми);
Repeat - запускаємо цикл з после умови;
WriteLn ( Vvedit chuslo );- На консолі з являється рядок Vvedit chuslo;
ReadLn (n);- Ввід числа Пожалуйста нужно візначіті (ввід n);
Until (n gt; - 1);- Завершується цикл з после умови при умові что введено число 0 або более, інакше програма попросити ввести число повторно;
t:=0;- T прісвоюємо 0;
m [1]:=1;- Першому Елемент масиву прісвоюємо 1;
for i:=2 to k do m [i]:=0;- Від 2 елемента масиву по 30000 прісвоюємо 0;
for i:=2 to n do Begin - від i:=2 по наше n віконуєм таке:
for j:=1 to k do begin - від j:=1 до 30000 віконуєм:
m [j]:=m [j] * i + t;- M [j] прісвоюємо j елемент масиву * i + t;
t:=0;- T прісвоюємо 0;
if m [j] gt; 9 then begin - если m [j] gt; 9 тоді
t:=m [j] div 10;- T прісвоюємо Кількість десятків Які поміщаються в m [j];
m [j]:=m [j] mod 10;- M [j] прісвоюємо остачу від ділення на 10;
end;- Завершуємо цикл;
end;- Завершуємо цикл;
end;- Завершуємо цикл;
c:=0;- C прісвоюємо 0;
i:=k;- I прісвоюємо 30000;
while (i gt;=1) and (m [i]=0) do Begin - запускаємо цикл з Передумови, поки 30000 gt;=1 і m [i]=0 виконуємо:
c:=c + 1;- C прісвоюємо з + 1;
i:=i - 1;- I прісвоюємо i - 1 ;;- Завершуємо цикл;
Write (n, ! , =);- Вивід наше n, ! Raquo;, = raquo ;;
for i:=kc downto 1 do Write (m [i]);- I прісвоюємо 30000-с до 1 і виводимо на екран m [i] ;;
readln;
readln;
end.- Завершення програми;
Висновок
Алгорітмічна мова програмування Pascal є мовою високого уровня, з ее помощью можна вірішуваті Завдання як легкого, так и складного типу. Pascal є Зручний у вікорістанні и для досвідченіх програмістів, и для програмістів-початківців. На ньом легко реалізовуваті будь-які алгоритми, швидко знаходіті та віправляті помилки, ВІН Створений Повністю для того, щоб досягнутості очікуваного результату. Алгорітмічна мова Pascal складається з простих ключовими слів та не складного інтерфейсу програми, что Забезпечує стабільну роботу для програмістів з невісокімі знань англійської мови.
На мою думку Pascal Просто та легкий у вікорістанні, та слугує предметом хороший прикладом як для початкових Вивчення програмування, так и для постійного использование мови для реализации питань комерційної торгівлі цілей.
Використана література
1.Borland Delphi 6. Керівництво розробника .: Пер. з англ.- М .: Вільямс, 2009. - 1120 с.
2.http: //ru.wikipedia/wiki/pascal
.Баас Р., Фервай М., Гюнтер Х. Delphi 5: для користувача. Пер. з нім.- К .: BHVб, 2000 - 496 с.
.Бобровскій С. Delphi 6 і Kylix: Бібліотека програміста.- СПб .: Питер, 2012. - 560 с.
.Бобровскій С. Delphi 7. Навчальний курс.- СПб .: Питер, 2004. - 735 с.
.В.Ф. Шаньгина, Л.М. Піддубна Програмірованіє на язикє ПАСКАЛЬ, Москва Вища школа 1991р.
.Гофман В.Е., Хомоненко А.Д. Delphi 6. - СПб .: БХВ-Петербург, 2001. - 1135 с.
.Дарахвелідазе П.Г., Марков Є.П. Програмування в Delphi 7. - СПб .: БХВ-Петербург, 2009. - 784 с.