Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Строка символов состоит из букв А, В и С. Разработать рекурсивную процедуру, преобразующую данную строку по правилам: https://www.cyberforum.ru/ pascal/ thread18959.html Строка символов состоит из букв А, В и С. Разработать рекурсивную процедуру, преобразующую данную строку по правилам: а) удаляет четыре подряд идущих букв А; б) удаляет из последовательности ВАВА одну пару ВА; в) удаляет комбинацию АВС. Преобразования выполнять до тех пор, пока ни одной из перечисленных комбинаций не останется. =-O Добавлено через 21 час 54 минуты 36 секунд :(	Напечатать имена всех людей, возраст которых равен минимальному Pascal program cyb_39; uses Crt; type person = record name: string; age: 1..200; end; list = file of person; var
Pascal Требуется помощь в решении задачки - "Шифратор" https://www.cyberforum.ru/ pascal/ thread18937.html Люди добрые помогите разобраться с задачкой Условие: Переписать слова во входном тексте наоборот. У меня с массивами туго.... смог только полностью текст перевернуть... ____ x:=s; {s - входной текст} k:=length(x); y:=x; for i:=1 to k do	Pascal Используя один просмотр текстового файла, вывести его строки в обратном порядке Собственно вот: используя один просмотр текстового файлаб вывести его строки в обратном порядке (в начале выводится последняя строка исходного файла). Плиzz помогите ... https://www.cyberforum.ru/ pascal/ thread18932.html
Симметричная матрица Pascal --	Pascal Исправить программу Здравствуйте) У меня проблема с одной из программ.. Есть код программы, всё работает как надо, почти как надо.. Ввод значений массива осуществляется рандомно, а нужно чтобы осуществлялся с консоли или из файла (по выбору пользователя).. В принципе дело пустяковое, но заметил только сейчас, а нужно срочно.. Действительно срочно.. program odnomerniymassiv; uses crt; const n=15; var a:array of... https://www.cyberforum.ru/ pascal/ thread18926.html
Pascal В матрице найти наименьшие элементы в каждом столбце и поместить их на главную диагональ https://www.cyberforum.ru/ pascal/ thread18921.html Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении нескольких задач. Впринципе все не сложные. Просто не успеваю,да и не оч хорошо поняла тему. Вот к примеру: 1)даны массивы a(10),b(11),c(12) вещестивенных чисел.Обнулить и распечатать тот массив чьё произведение положительных элементов минимально.Распечатать произведение для каждого массива 2)в матрице...	Pascal Произведение четных цифр Пожалуйста подскажите где ошибка Задача. Найти произведение всех четных цифр. Как мне кажется вроде все правильно указал, а нет, где-то ошибаюсь :( Program Number; var n,i,k:integer; P,R:real;
Pascal Найти сумму знакопеременного ряда https://www.cyberforum.ru/ pascal/ thread18911.html Мне в МАИ дали курсовик сам брал академ всё позабывал не знаю что и как делать =( помогите пожалуйста ! ! ! Заранее благодарен Задания: 1) Найти сумму знакопеременного ряда Y=1+(X^2)/2!-(X^4)/3!+(X^6)/4!-... при /Х/<=1 Расчёт продолжать до тех пор, пока приращение \|Y\| будет больше заданной точности е, е<=\|X\|. На экран вывести результаты с соответсвующими комментариями. Это...	Pascal Двусвязный список!!!! Даны числа D1 и D2 и указатель P0 на один из элементов непустого двусвязного списка. Добавить в начало списка новый элемент со значением D1, а в конец — новый элемент со значением D2. Вывести адреса первого и последнего элементов полученного списка. https://www.cyberforum.ru/ pascal/ thread18906.html
Получить самую последнюю длинную строку в файле Pascal Ребят помогите пожалуйста, вот задачка: Дан текстовый файл получить самую последнюю длинную строку. Благодарю за внимание :)	Pascal Помогите с блок-схемой Код я написала, помогите мне блок-схему нарисовать с комментариями, пожалуйста((( Я просто можно сказать совсем не шарю в программировании. На первом курсе толком не научили ничему, зато теперь требуют выполнения задач.:'( Вот программа: Код: program 1111; uses crt; var i,l,min,max,p1,p2,j:longint; https://www.cyberforum.ru/ pascal/ thread18896.html

Alto

5 / 5 / 3

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

Сообщений: 50

19.12.2008, 14:46

Найти значения максимального из элементов массива, которые имеют четные номера. - Pascal - Ответ 84869

19.12.2008, 14:46. Показов 1815. Ответов 1

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

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

Решение

Pascal

uses Crt;
const
    LB=1;
    HB=20;
var
    mass: array [LB..HB] of real;
    i: integer;
    MaxEvenNumber: real;
 
begin
    ClrScr;
    Randomize;
    for i:=LB to HB-1 do
        begin
            mass[i]:=Random(51);
            write(mass[i]:6:2);
        end;
    mass[HB]:=Random(51);
    writeln(mass[HB]:6:2);
    writeln;
 
    for i:=LB to HB do
        begin
            if not odd(i) and (MaxEvenNumber<mass[i]) then
                MaxEvenNumber:=mass[i];
        end;
 
    writeln('The maximal number from even numbers of array: ',MaxEvenNumber:4:2);
    writeln;
    write('For ending press <ENTER>');
    readln;
end.

Вернуться к обсуждению:
Найти значения максимального из элементов массива, которые имеют четные номера. Pascal

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

19.12.2008, 14:46

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

Вычислить среднее арифметическое всех элементов массива Х, которые являются отрицательными и имеют четные номера
Вычислить среднее арифметическое всех элементов массива Х, которые являются отрицательными и имеют...

Вычислить количество четных элементов, которые имеют четные номера
Дано файл, элементами которого являются целые числа. Вычислить количество парных элементов, которые...

Найти максимальное значение из элементов массива, которые имеют нечетные номера
Помогите с решением: В массиве вещественных чисел 30 элементов. Найти максимальное значение из...

Найти номера всех элементов массива, которые имеют наибольшее значение. Использовать процедуру
Может кто помочь написать данную программу?С процедурами все очень плохо.. Составить процедуру,...

	19.12.2008, 14:46

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

19.12.2008, 14:46

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

Найти номера и значения максимального четного и минимального нечетного элементов массива
В целочисленном массиве Х(N) найти номера и значение максимального четного и минимального...

Найдите сумму элементов массива, которые больше 13 и имеют четные индексы
1.. Элементы массива – действительные числа в пределах от 4 до 24. Найдите сумму элементов массива,...

Определить количество элементов массива, которые имеют четные индексы и являются кратными 3
Дан одномерный числовой массив. Определить количество элементов этого массива, которые имеют четные...

Вывести номера всех элементов массива которые имеют наибольшее значение
Номера всех элементов массива В1,В2,...,Bn, которые имеют наибольшее значение (оно может...

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 23.01.2025 Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .	Как проверить существование директории в скрипте Bash bt_guru 23.01.2025 При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .	Как работают срезы (slice) в Python bytestream 23.01.2025 Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .	Как удалить подмодуль (submodule) в Git bytestream 23.01.2025 При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .	В чем разница между @staticmethod и @classmethod в Python. Декораторы методов bytestream 23.01.2025 В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .	Как преобразовать InputStream в String в Java bytestream 23.01.2025 В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git bytestream 23.01.2025 Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .	Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

Наверх