Из точки А в точку Ж есть 11 путей.
Простой пример линейного алгоритма таков :
1.Выкопать в земле ямку
2.Опустить в ямку саженец
3.Засыпать ямку с саженцем землей
4.Полить саженец водой
Простой пример циклического алгоритма таков :
1.Смотрю телевизор
2.Уже ночь ?
3(а)Да , то 4.Ложусь спать 3(б)Нет , то 1.Смотрю телевизор
<span>и вновь проверка условия до тех пор пока не настанет ночь
Просто пример </span><span>разветвляющего алгоритма таков :
</span>
1.Я встречу друга ?
2(а).Да ,то 3. Расскажу историю
2(б) Нет ,то *конец алгоритма*
<u>Примеры данных алгоритмов в виде блок-схем ниже</u>
Качество картинки не самое лучшее
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
Я вот тоже Вышел порешать =).
var p: array [1..1000] of record
slovo:string;
k:integer;
end;
N,i,j,max:integer;
c:char;
a:array [97..122] of integer;
BEGIN
max:=0;
readln(N);
for i:=1 to N do
begin
p[i].slovo:='';
repeat
read(c);
p[i].slovo:=p[i].slovo+c
until c=' ';
readln(p[i].k);
for j:=1 to length(p[i].slovo) do
if (ord(p[i].slovo[j])>=97) and (ord(p[i].slovo[j])<=122) then
a[ord(p[i].slovo[j])]:=a[ord(p[i].slovo[j])]+p[i].k;
end;
for j:=97 to 122 do
if a[j]>max then
max:=a[j];
write(max);
end.