Другие разделы

Правила

FAQ

Пользователи

Комментарии

Друзья сайта

Flash Loops

RaceBook

Информатика

Новобранцы. Составить программу, которая подсчитывает количество поворотов пар новобранцев до тех пор, пока не останется ни 1 пары, повёрнутой лицом друг к другу.

Входные данные:

1 строка - количество новобранцев;

2 строка - состояние новобранцев.

Решение задачи:

  1. Var
  2.   i,kol:integer;
  3.   f:boolean; {логическая переменная}
  4.   nov:array of char; {динамический массив}
  5. begin
  6.   writeln('vvedite kolichestvo novobrancev');
  7.   readln(i);
  8.   setlength(nov,i); {задаётся размер массива}
  9.   writeln('vvedite raspolojenie novobrancev znakami "<" ">"');
  10.   for i:=1 to length(nov) do readln(nov[i]); {при вводе знаков записываем их в массив}
  11.   f:=true;
  12.   kol:=0;
  13.   while f=true do {если за последний проход были перестановки, то продолжаем}
  14.     begin
  15.       f:=false; {перестановок нет}
  16.       for i:=1 to length(nov)-1 do
  17.       if (nov[i]='>') and (nov[i+1]='<') then
  18.         begin
  19.           f:=true; {перестановки есть}
  20.           nov[i]:='<';
  21.           nov[i+1]:='>';
  22.           inc(kol); {увеличиваем количество перестоновок}
  23.         end;
  24.     end;
  25.   for i:=1 to length(nov) do write(nov[i]); {вывод массива с новобранцами}
  26.   write('kolichestvo perestanovok=',kol);
  27. readln;
  28. end.

© Филимошин В. Ю., 2009-2015

Вход

Логин:

Зарегистрировать

Пароль:

Забыли пароль?

запомнить

Пятнашки

1
4
2
5
13
12
9
3
7
6
11
8
14
10
15

Опрос

Как Вы узнали об этом сайте?

От админа (1035)

48.4%

От друзей (32)

1.49%

Поисковик выдал... (983)

45.9%

Увидел(а) на других сайтах (46)

2.15%

Другое (41)

1.91%

Случайное фото

Слотовый Pentium !!! 600Мгц/512кб

Счётчики

Яндекс.Метрика

Internet Map

Каталог@Mail.ru - каталог ресурсов интернет