Geum.ru


Основы языка Турбо Паскаль

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



?ЕСНА');

,10,11:writeln('ОСЕНЬ');

,7,8:writeln('ЛЕТО');

ELSE write ('нет такого мес. ');;. NOD1; {ВЫЧИСЛЕНИЕ НОДа ДЛЯ ДВУХ ЧИСЕЛ}

var a,b,n1,n2,nod,r:integer;

Begin('введите 2 числа для НОД ');

readln (a,b);:=a;:=b;(n1 mod n2) <>0 do:=n1 mod n2;:=n2;:=r;;:=n2;('НОД(',a,',',b,')=',nod);. minA; {НАХОЖДЕНИЕ MIN В ОДНОМЕРНОМ МАССИВЕ }

const n=6;i,min:integer; a:array[1..n] of integer;

Begin('вв эл-ты ч/з и ввод');

for i:=1 to n do(a[i]);:=a[1];i:=2 to n domin>a[i] then:=a[i];('min=',min);. sorti; { УПОРЯДОЧЕНИЕ ОДНОМЕРНОГО МАССИВА ПО ВОЗРАСТАНИЮ (УБЫВАНИЮ)}

const n=6;a,b: array [1..n] of integer;,l,m,k:integer;,d:integer;('вв м.п. 6');i:=1 to n do(a[i]);[i]:=a[i];;:=1;i:=1 to n do:=b[i];k:=l to n dob[k]<=bmax then:=b[k]; m:=k;;:=b[i];[i]:=bmax;[m]:=d;:=l+1;;i:=1 to n do(a[i],' ');;i:=1 to n do(b[i],' ');;.PIFAGOR; {ТАБЛИЦА УМНОЖЕНИЯ}i,j,p:integer;('_':4);j:=1 to 10 do(j:4);,I:=1 to 10 do(i:4);j:=1 to 10 do(I*j:4);;;;;.

Литература

Турбо Паскаль 7.0. Самоучитель. - СПб.: Питер; К.: Издательская группа BHV, 2002