Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 87 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

ReadLn(Text);
Number := 0; Flag := TRUE;
For i := 1 to Length(Text) do {цикл по буквам текста}
begin
Letter := Text[i]; {текущая буква текста }
If (Letter <> ' ') and Flag
then Number := Number+1;
Flag := (Letter=' ') {(Letter=' ') — логическое
выражение,}
end; {принимающее значения TRUE или
FALSE }
WriteLn;
WriteLn('О т в е т : количество слов в тексте равно ',
Number); ReadLn
END.
Пример 7.2. Определить, является ли заданное слово "перевёртышем" (слово
называется "перевёртышем", если совпадает с собой после переворачивания).
Система тестов
N теста Данные Результат
1 Slovo = ''казак'' Otvet = ''Перевертыш''
2 Slovo = ''коза'' Otvet = ''Не перевертыш''
Школьный АЯ
алг Перевертыш (арг лит Slovo, рез лит Otvet)
надо | Otvet = "Перевертыш", если Slovo совпадает с собой
| после переворачивания
нач цел Dlina, i, лог Flag
Dlina:=длин(Slovo)
i:=1; Flag:=да
нц пока (i<=Dlina/2) и Flag | цикл пока с прерыванием
до
Flag:=(Slovo[i]=Slovo[Dlina-i+1]) | первой несовпавшей пары
букв,
i:=i+1 | если такая имеется в
слове
кц
если Flag
то Otvet:="Перевертыш"
иначе Otvet:="Не перевертыш"
все
кон
Исполнение алгоритма
Обозначения проверяемых условий:
(i<=Dlina/2) и Flag => (1)
Slovo[i]=Slovo[Dlina-i+1] => (2)
Номер
теста
i (1) (2) Flag Otvet
1
1
2
+
+
+
+
да
да
"Перевертыш" 
  ReadLn(Text);
  Number := 0; Flag := TRUE;
  For i := 1 to Length(Text) do {цикл по буквам текста}
    begin
      Letter := Text[i];         {текущая буква текста }
      If (Letter <> ' ') and Flag
         then Number := Number+1;
      Flag := (Letter=' ')      {(Letter=' ') — логическое
выражение,}
    end;                        {принимающее значения TRUE или
FALSE }
  WriteLn;
  WriteLn('О т в е т : количество слов в тексте равно ',
Number); ReadLn
END.


   Пример 7.2. Определить, является ли заданное слово "перевёртышем" (слово
   называется "перевёртышем", если совпадает с собой после переворачивания).
                                Система тестов
           N теста         Данные                   Результат
             1           Slovo = ''казак''     Otvet = ''Перевертыш''
             2           Slovo = ''коза''     Otvet = ''Не перевертыш''
Школьный АЯ
алг Перевертыш (арг лит Slovo, рез лит Otvet)
   надо | Otvet = "Перевертыш", если Slovo совпадает с собой
         | после переворачивания
нач цел Dlina, i, лог Flag
  Dlina:=длин(Slovo)
  i:=1; Flag:=да
   нц пока (i<=Dlina/2) и Flag          | цикл пока с прерыванием
до
     Flag:=(Slovo[i]=Slovo[Dlina-i+1]) | первой несовпавшей пары
букв,
     i:=i+1                             | если такая имеется в
слове
   кц
   если Flag
      то Otvet:="Перевертыш"
      иначе Otvet:="Не перевертыш"
   все
кон
Исполнение алгоритма
 Обозначения проверяемых условий:
  (i<=Dlina/2) и Flag        => (1)
  Slovo[i]=Slovo[Dlina-i+1] => (2)

  Номер
             i     (1)      (2)        Flag       Otvet
  теста
             1      +         +         да
    1                                         "Перевертыш"
             2      +         +         да

Страницы