Курсовая работа: Ссылочные типы. Динамические переменные

s2:=copy(s,j,1);

s3:=copy(s,j+1,n);

val(s1,x,n);

val(s3,y,n);

if s2='+' then writeln(x+y:4:1);

if s2='-' then writeln(x-y:4:1);

if s2='*' then writeln(x*y:4:1);

if s2='/' then writeln(x/y:4:1);

readln;

end.

Блок-схема

Пояснение к блок-схеме

№ блока	Назначение
1	Начало программы
2	Ввод/вывод данных
3	Выполнение операции N:=length(s)
4	Цикл i:=0 to n-1
5	Тело цикла, выполнение операции M[i]:=copy(s,i,1)
6	Телоцикла, условие (m[i]=’+’) or (m[i]=’-‘) or (m[i]=’*’) or m[i]=’/’)
7	Тело цикла выполнение операции j:=i
8	Выполнениеоперации s1:=copy (s,o,j-1); s2:=copy (s,j,1); s3:=copy (s,j+1,n)
9	Выполнение операции val(s1,x,n); val(s3,y,n)
10	Блок условия s2=’+’
11	Ввод/вывод данных x+y
12	Блок условия s2=’-‘
13	Ввод/вывод данных x-y
14	Блок условия s2=’*’
15	Ввод/вывод данных x*y
16	Блок условия s2=’/’
17	Ввод/вывод данных x/y
18	Конец программы

Протокол программы

BBeDi OPeRaciy

56*9

504,0

2-Задача2. Выполнить сортировку по латинскому алфавиту

Постановка задачи. Составить программу которая, сортирует буквы латинского алфавита по алфавиту.

Листингпрограммы

program Alfavit;

var

M:array[1..50] of string;

j,i,n:integer;

b:boolean;

s,tmp:string;

begin

writeln('BBeDu TekcT');

readln(s);