Нужно написать программу в pascal.. даны названия 3 городов (любых). вывести на экран самое длинное и самое короткое название.

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var a: array[1..3] of string;   var l: array[1..3] of integer;   for var i: =1 to 3 do begin       write('город ',i,': '); readln(a[i]);       l[i]: =length(a[i])       end;   var imin: =1; var imax: =1;   for var i: =2 to 3 do begin       if l[i]< l[imin] then imin: =i;       if l[i]> l[imax] then imax: =i       end;   writeln('самое длинное название- ',a[imax]);   writeln('самое короткое название- ',a[imin]) end. тестовое решение город 1: москва город 2: минск город 3: киев самое длинное название- москва самое короткое название- киев

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

1 способ

 

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

 

2 способ:

 

воспользуемся формулой: 2

2^i=n

 

количество информации о нахождении стеллажа:

 

2^4=16

 

i=4 бита

 

количество информации о нахождении полки:

 

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

 

i=3

 

4+3=7 бит информации