Блок-сызбанұсқасы — сызбанұсқаның танымал түрі, алгоритм және процесті суреттейді, яғни әр қадамды сурет (түрлі блоктар сияқты) ретінде суреттеледі, олар сызықшамен бір-біріне байланысады, ал сызықтар алгоритм ретін көрсетеді.
Алгоритмдік тіл (ағылш. algorіtmіc — алгоритмдік және language — тіл) — ЭЕМ-мен шығарылатын есептердің алгоритмін бірмәнді түрде жазуға арналған жасанды тіл. Ол белгілер (символдар) жиынтығынан (Алгоритмдік тіл алфавитінен), синтаксистік ережелер мен семантикалық анықтамалардан құралған. Алгоритмдік тілдің негізгі белгілері латын не орыс алфавиттері әріптері, қандай да бір таңбалар мен шартты белгілер болуы мүмкін. Сөздер, сөз тіркестері (фразалар, сөйлемдер) , кестелер мен кестелер жүйесі Алгоритмдік тілдің құрылымы болып табылады. Түсіндіру ережелері ЭЕМ-де аппараттармен жүзеге асырылатын Алгоритмдік тіл машиналық тіл деп аталады. Алгоритмдік тіл табиғи тілден бірмәнділігі мен айқындылығы жағынан ерекшеленеді. Есептеу машинасына Алгоритмдік тілін пайдаланғанда бағдарламалау мен машина жұмысын үйлестіретін арнайы бағдарламалаушы — процессор қолданылады. Ол бағдарламаны енгізу, машиналық, синтаксистік, семантикалық талдаулар, формальды қателерді анықтау, бағдарламаны орындау т.б. жұмыстарды атқарады. Алгоритмдік тілдің бірнеше түрі бар. Олардың кейбіреулері ғана (мыс., алгол, кобол, лисп, Пл/1, Фортран, Паскаль т.б.) кең
type
firma = record
fam:string;
adres:string;
end;
var
mas:array[1..8] of firma;
i,k:integer;
str:string;
begin
mas[1].fam:='Кузин';
mas[2].fam:='Куравлев';
mas[3].fam:='Кудин';
mas[4].fam:='Кульков';
mas[5].fam:='Кубиков';
mas[6].fam:='Иванов';
mas[7].fam:='Петров';
mas[8].fam:='Сидоров';
mas[1].adres:='ул.Мира,7';
mas[2].adres:='ул.Маркса,6';
mas[3].adres:='ул.Комсомольская,17';
mas[4].adres:='ул.Ленина,5';
mas[5].adres:='ул.Центральная,18';
mas[6].adres:='ул.Клубная,26';
mas[7].adres:='ул.Чехова,2';
mas[8].adres:='ул.Амосова,68';
write('Введите фамилию сотрудника -> ');readln(str);
k:=0;
for i:=1 to 8 do
begin
if str=mas[i].fam then
begin
k:=k+1;
writeln('фамилия - ',mas[i].fam);
writeln('адрес - ',mas[i].adres);
end;
end;
if k=0 then writeln('такого сотрудника нет!');
readln;
end.
Объяснение:
Это ответ на задание 2
Qiwi +79172489972