Tipo - Learn · Pascal · Типо Лерн · Урок 10

Perfect vision for programming

> Урок 1 > Урок 2 > Урок 3 > Урок 4 > Урок 5 > Урок 6 > Урок 7 > Урок 8 > Урок 9 > Урок 10 (Вы здесь) > Урок 11
Подпрограммы. Процедуры и Функции
Процедуры ЗАДАЧА: Процедура нахождения по заданным длине стороны треугольника и прилежащим углам длин остальных сторон. (Описать процедуру нахождения по заданной длине стороны треугольника и величинам двух прилежащих углов длин остальных сторон треугольника и величины третьего угла.) var k,l,m,kl,lm,km:real; BEGIN procedure dlini(var a,b,c,ab,bc,ac:real); var radA,radB,radC:real; begin c:=180-a-b; radA:=API/180; radB:=BPI/180; radC:=CPI/180; bc:=(sin(radA)ab)/sin(radC); ac:=(sin(radB)*ab)/sin(radC); end; begin write('a = '); readln(k); write('b = '); readln(l); write('ab = '); readln(kl); dlini(k,l,m,kl,lm,km); writeln('c = ',m:7:2); writeln('bc = ',lm:6:2); writeln('ac = ',km:6:2); readln; END.
ЗАДАЧА: Переставить по алфавиту буквы слов в строке. (Преобразовать строку так, чтобы буквы каждого слова в ней были отсортированы по алфавиту. Слова только на английском языке.) var s:string; l,i,start,finish:integer; flag:boolean; procedure sort(var s:string;first,last:integer); var max,i:integer; c:char; begin while last > first do begin max:= first; for i:=first+1 to last do if s[i] > s[max] then max:= i; c:= s[max]; s[max]:= s[last]; s[last]:= c; last:= last - 1; end; end; BEGIN readln(s); l:= length(s); start:= 1; finish:= 1; flag:= False; for i:=1 to l do if s[i] = ' ' then begin flag:= False; if start < finish then sort(s,start,finish); end else if flag = False then begin flag:= True; start:= i; end else finish:= i; if start < finish then // Для последнего слова, когда после него не было пробела sort(s,start,finish); writeln(s); END.
Функции ЗАДАЧА: Функция вычисляющая наибольший общий делитель.(НОД) var k,l,n:integer; function nod(var a,b: integer):integer; var c: integer; begin repeat if a > b then a:=a mod b else b:= b mod a; until (a = 0) or (b = 0); nod:= a + b; end; BEGIN writeln ('Введите два числа: '); readln (k, l); n:= nod (k, l); writeln ('НОД = ', n); readln END.
ЗАДАЧА: Функция циклического сдвига(Написать функцию, которая циклически сдвигает одномерный массив вправо или влево на указанное число позиций. Сдвиг также должен быть кольцевым, то есть те элементы, которые уходят вправо или влево за пределы массива, должны помещаться с другого его конца.) const N = 10; type mas = array[1..N] of integer; var a:mas; q,i,j:integer; procedure shift(var m:mas; p:integer); var b:integer; begin if p < 0 then for j:=1 to abs(p) do begin b:= m[1]; for i:=1 to N-1 do m[i]:= m[i+1]; m[N]:= b; end else for j:=1 to p do begin b:= m[N]; for i:=N downto 2 do m[i]:= m[i-1]; m[1]:= b; end; end; BEGIN for i:=1 to N do begin a[i] := i; write(a[i],' '); end; writeln; readln(q); shift(a,q); for i:=1 to N do write(a[i],' '); writeln; END.

Letyshops [lifetime]

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail