Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Получить новый двумерный динамический массив, состоящий из элементов вещественного типа, путём деления https://www.cyberforum.ru/ turbo-pascal/ thread1067181.html получить новый двумерный динамический массив, состоящий из элементов вещественного типа, путём деления всех элементов двумерного димнамического массива A, на его МАКСИМАЛЬНЫЙ элемент	Сформировать квадратную матрицу порядка n по заданному образцу Turbo Pascal 0 0 0 ... 0 0 0 0 1 0 ... 0 0 0 0 0 2 ... 0 0 0 . . . ... .... 0 0 0 ... 0 n-2 0 0 0 0 ... 0 0 n-1
Turbo Pascal Определить суммы из элементов кратных трем в каждой строке матрицы (Ошибка) Определить суммы из элементов кратных трем в каждой строке матрицы. uses crt; const max = 10; type mas = array of real; https://www.cyberforum.ru/ turbo-pascal/ thread1067152.html	Turbo Pascal Метод касательных Ньютона найти интервал (a,b)найти корень уравнения и уточнить его численным методом с точностью е=0.01. метод касательных ньютона https://www.cyberforum.ru/ turbo-pascal/ thread1067032.html
Turbo Pascal Метод Симпсона	Turbo Pascal Создать массив записей, содержащий данные об учениках школы (Ошибка в коде) создать массив записей, содержащий данные об учениках школы. поля записей: фамилия, имя, класс, номер школы. Распечатать данные об учениках фамилия которых короткое __________________________________________________________________________________________________:cry: program pr; uses crt; const n=4; type uchen=record priz:string; imya:string; klas:string; school:string; https://www.cyberforum.ru/ turbo-pascal/ thread1066994.html
Turbo Pascal Переделать программу с массивом Помогите изменить программу, не используя "function newX" и сделать так, чтобы учитывалось то, что х не может быть равен нулю. Пожааалуйста) вот сама программка: const min = -70; // Промежуток числовой оси max = 64; function newX(x:real):real; // Функция замены элемента из промежутка begin if (x=0) then newX:=x else newX:=(PIPI)/(xexp(x)); end; https://www.cyberforum.ru/ turbo-pascal/ thread1066984.html	Turbo Pascal Определить, есть ли в последовательности два идущих подряд нулевых члена помогите плиз Задача 2 Даны натуральное n и целые числа c1, c2, … , cn. Имеются ли в последовательности c1, c2, … , cn: а) два идущих подряд нулевых члена; б) три идущих подряд нулевых члена?
Turbo Pascal Преобразовать строку таким образом, чтобы цифры каждого слова были перенесены в конец слова, изменив порядок следования их в слове на обратный Преобразовать строку таким образом, чтобы цифры каждого слова были перенесены в конец слова, изменив порядок следования их в слове на обратный. Замечание: наличие цифр можно проверить с помощью проверки вхождения элемента во множество. Например, Symbol in . Результат принимает истинное значение, если Symbol - цифра. Через процедуры https://www.cyberforum.ru/ turbo-pascal/ thread1066810.html	Turbo Pascal Переделать задачку на вычисление функции Добрый день, помогите пожалуйста переделать задачку, так что бы в решении использовались логические операторы, в том числе и оператор not Z=(sqrt(x+tg(Pi Y/2))) war x,y,z:real; c:integer; z:=(sqrt(x+sin(Pi y/2)/cos(Pi y/2)); repeat writeln ('vvedi X Y'); readln (x,y); https://www.cyberforum.ru/ turbo-pascal/ thread1066724.html
Найти минимальный элемент и поменять его местами с тем элементом, который стоит в конце массива Turbo Pascal Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти минимальный элемент и поменять его местами с тем элементом, который стоит в конце массива. Массив вывести в виде таблицы.	Turbo Pascal Каждый четный элемент в файле заменить результатом его целочисленного деления на 5 Ввести файл. Каждый четный элемент в файле заменить результатом его целочисленного деления на 5. Файл вывести до и после преобразования Доброго времени суток, форумчане! Код написал. Не работает. выдает один и тот же файл до преобразования и после. в чем моя ошибка? Заранее спасибо! program abc; var b,i,p:integer; f:file of integer; begin assign(f,'f.dat'); writeLn('Введите первую... https://www.cyberforum.ru/ turbo-pascal/ thread1066582.html

Puporev

Почетный модератор

64303 / 47600 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

10.01.2014, 09:52

Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей - Turbo Pascal - Ответ 5617651

10.01.2014, 09:52. Показов 2533. Ответов 2

Метки (Все метки)

Сообщение было отмечено mysteria-m как решение

Решение

Pascal

uses crt;
var n,a,b,i,k,mx:byte;
begin
clrscr;
repeat
write('n>1 n=');
readln(n);
until n>1;
writeln('Введите последовательность из ',n,' целых чисел,');
writeln('в том числе последовательности нолей:');
readln(a);
mx:=0;
if a=0 then k:=1 else k:=0;
for i:=2 to n do
 begin
  readln(b);
  if b=0 then k:=k+1
  else
   begin
    if k>mx then mx:=k;
    k:=0
   end;
  if (i=n)and(k>mx) then mx:=k;
  a:=b;
 end;
writeln('Максимальная последовательность нолей=',mx);
readln
end.

Вернуться к обсуждению:
Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей Turbo Pascal

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

10.01.2014, 09:52

Готовые ответы и решения:

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Здравствуйте, помогите пожалуйста в решении следующих задач! Буду очень признательна! 1)Дана...

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Программа. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее...

Дана последовательность из N целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей.
Дана последовательность из N целых чисел. Определить количество чисел в наиболее длинной...

Определить количество чисел в наиболее длинной последовательности из подряд следующих нулей
Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной...

	10.01.2014, 09:52

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

10.01.2014, 09:52

Помогаю со студенческими работами здесь

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих одинаковых чисел
Дана непустая последовательность не нулевых целых чисел, за которой следует 0. Определить...

Определить количество чисел в наиболее длинной последовательности из подряд идущих нулей
Данная последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной...

Определить длину самой длинной последовательности подряд идущих нулей
составить процедуру для определения длины самой длинной последовательности подряд идущих нулей в...

Определить количество чисел в наиболее длинной последовательности из подряд идущих нулей
Написать программу с/с++. Дана последовательность из 100 целых чисел. Определить количество чисел в...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх