Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Реалізація алгоритму визначення n! засобими Object Pascal 2.0

Реферат Реалізація алгоритму визначення n! засобими Object Pascal 2.0





[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 с.


Назад | сторінка 6 з 6





Схожі реферати:

  • Реферат на тему: Creation of control system by a personnel how to begin with a zero
  • Реферат на тему: Реалізація засобами мови програмування Delphi програми "Файловий менед ...
  • Реферат на тему: Розробка програми на мові програмування Delphi
  • Реферат на тему: Розробка ігрової програми на мові програмування Turbo Pascal
  • Реферат на тему: Програма мовою програмування високого рівня Borland Delphi 7.0