Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.02.2010, 16:39   #1
МасловЕвгений
 
Регистрация: 23.02.2010
Сообщений: 5
По умолчанию Работа с массивами (pascal)

помогите пожалуйста написать код программы для вот такой задачи:
Определение длины самой длинной последовательности из расположенных подряд в одномерном логическом массиве значений TRUE и вывод найденной длины на экран. Длина массива и значения TRUE и FALSE вводятся с клавиатуры в форме F (для FALSE) и T (TRUE).
МасловЕвгений вне форума Ответить с цитированием
Старый 23.02.2010, 17:03   #2
zmey31313
Форумчанин
 
Регистрация: 19.11.2009
Сообщений: 155
Сообщение

Код:
program zadacha;
const
  n = 10;
var
  a : array[1..n] of integer;
  i, d : integer;
  bool : string;
  c, b : integer;
begin
 for i := 1 to n do
  begin
    d := d + 1;
    write('a[', d, ']:= ');
    readln(bool);
    If bool = 't' then
     begin
       c := c + 1;
       If c > b then b := c;
     end
    else
     c := 0;
  end;
  writeln('Ответ Т повторяется в подряд: ', b, ' раз(а).');
  readln();
end.
По всем вопросам связанным с Делфи или Паскаль обращайтесь, чем смогу тем и помогу.
Помог жми на весы!!!
dmi83206389@mail.ru
zmey31313 вне форума Ответить с цитированием
Старый 23.02.2010, 17:26   #3
МасловЕвгений
 
Регистрация: 23.02.2010
Сообщений: 5
По умолчанию

благодарю.
МасловЕвгений вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа с массивами (Pascal) kead Помощь студентам 1 15.11.2009 17:03
Работа с массивами. Pascal. shatoo Помощь студентам 3 27.09.2009 23:57
Работа с массивами (pascal) Стасссс Помощь студентам 7 19.03.2009 16:16
Работа с массивами (pascal) dashenka Помощь студентам 21 14.03.2009 13:19
Работа с массивами на pascal Mihael-Vlz Паскаль, Turbo Pascal, PascalABC.NET 2 18.12.2008 16:30