![]() |
|
Другие темы раздела | |
Free Pascal Игра "Угадай число". Применять процедуры или функции Ребят,всем доброго времени суток. Уже долго мучаюсь,не могу понять как функцию засунуть. Программа звучит так: Программа случайным образом загадывает четырехзначное число,пользователь угадывает.... Только я не могу понять как сделать это через процедуры и функции. Значит можете сделать без них? Тогда выложите то что сделали. https://www.cyberforum.ru/ free-pascal/ thread1131951.html | Free Pascal Организация списков Создать связанный список из записей, содержащих сведения о животных (класс животного, количество, фамилия хозяина), реализовать операции со связанным списком: запись первым в список, удаление первого... https://www.cyberforum.ru/ free-pascal/ thread1132171.html |
Free Pascal Размер куска строки из TStringstream
https://www.cyberforum.ru/ free-pascal/ thread1132121.html Доброго дня. Крайне неприятная ситуёвина. Нужно определять размеры отдельных кусков строк из потока. Самый простой и тупой вариант - скопировать из DataString нужный кусок в переменную Ansistring и... Самый простой и тупой вариант - скопировать из DataString нужный кусокСамое интересное - это узнать, как ты определяешь "нужность" куска. Пока этой информации нет - задача вообще не ясна. |
Free Pascal Обменные сортировки
https://www.cyberforum.ru/ free-pascal/ thread1132176.html Задан массив AX (N). Добавить массив С(К). Выполнить обменную сортировку. В полученном векторе найдите количество чисел кратных К. |
Напечатать значения нечетных значений элементов массива Free Pascal Заполнить массив К(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения нечетных значений элементов массива.... Один уже из за этой задачи пошел служить: https://www.cyberforum.ru/turbo-pascal/thread1125795.html |
Free Pascal Посчитать в сколько раз в натуральном числе N встретилась цифра M. Циклы с пред- и постусловием В программе должны быть применены операторы repeat,until(по теме).Ну и еще там наверное while...do. Задание: Посчитать в сколько раз в натуральном числе N встретилась цифра M var k, m, n : integer; begin repeat write('введите натуральное число: '); readln(n); if n <= 0 then writeln('это не натуральное число!') until n > 0; repeat ... |
Free Pascal Максимально возможная площадь прямоугольника
https://www.cyberforum.ru/ free-pascal/ thread1132457.html Помогите на олимпиаде была вот такая задача: Паша нарисовал на листке бумаги прямоугольник. Он не помнит, какую площадь имел этот прямоугольник, но помнит, что выполнялись следующие утверждения:... Рано вам на олимпиаду, уважаемый. Я так и не понял, что такое stdout := p * p div 4 но так будет гораздо лучше program q; var numIn,a,b:dword; begin readln(numIn); numIn:=numIn shr 1;... |
Free Pascal Поиск минимального элемента в массиве, который не меньше N, функция не работает при некоторых значениях Функция должна находить минимальный элемент в массиве, который больше N. Допустим массив 6, 8, 3, 9,10; N = 4. выведется 6. Но если нужный элемент стоит первым функция выводит следующий, то есть... function min(N : integer; arr : array of integer; lenght : integer) : integer; При таком объявлении параметров первый элемент массива имеет нулевой индекс, т.е. надо начинать с mina:=arr; https://www.cyberforum.ru/ free-pascal/ thread1132002.html |
Free Pascal Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические
https://www.cyberforum.ru/ free-pascal/ thread1131672.html Помогите решить задачу,пожл! Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические соседних пар рядом стоящих в массиве A чисел. Например,... {$mode objfpc} const n = 8; var a : array of real = (1, 3, 5, -2, 0, 4, 0, 3); b : array of real; i : integer; |
Free Pascal Бинарные операции Помогите решить задачу: Недавно Паша узнал, что во многих языках программирования есть бинарные операции «И» и «ИЛИ». Операндами у таких операций являются целые числа. Для того, чтобы найти... Это неправильно просить решить задачу из идущей олимпиады.. Прошу не оказывать помощь ТС тыц https://www.cyberforum.ru/ free-pascal/ thread1132448.html |
Free Pascal Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел Помогите решить, пжл. Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел (НОК(A, B)= \frac{A*B}{NOD A, B} ). program Nod_n_Nok; function nod(a, b : longint) : longint; begin if a = b then nod := a else if a > b then nod := nod(b, a - b) else nod := nod(a, b - a) https://www.cyberforum.ru/ free-pascal/ thread1131651.html | Free Pascal Можно ли таблицы из excel перевести в sql? можете дать краткий пример, хотя бы по одной таблице и по одному полю или что то другое от чего можно было бы оттолкнуться... Уточните, что вы имеете ввиду? Вытащить данные из таблицы? Если да, то: под виндой через OLE, наличие установленного офиса обязательно; если xlsx, то распаковываем zip архив и вынимаем данные из... https://www.cyberforum.ru/ free-pascal/ thread1131919.html |
Модератор
10131 / 5465 / 3370
Регистрация: 17.08.2012
Сообщений: 16,703
|
|
30.03.2014, 15:49 | 0 |
Простое или составное - Free Pascal - Ответ 597327130.03.2014, 15:49. Показов 1452. Ответов 3
Метки (Все метки)
Ответ Не по теме: Ромаха, я знаю. Код был приведён, но не понят. Так что, думаю, лишний непонятный код koloboksanу не поможет, а для остальных полезно. Вернуться к обсуждению: Простое или составное Free Pascal
0
|
30.03.2014, 15:49 | |
Готовые ответы и решения:
3
Определить введенное число простое или составное Что больше - минимальное простое число в матрице или максимальное составное? Нужно определить простое число или нет |
30.03.2014, 15:49 | |
Помогаю со студенческими работами здесь
0
Составное условие в цикле while Определить, имеется ли составное двузначное число ниже главной и побочной диагоналей матрицы Определить, имеется ли среди элементов ниже главной и побочной диагоналей хотя бы одно составное число Простое или составное число Простое или составное число |
Новые блоги и статьи
![]() |
||||
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
|
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
|
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
|
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
|
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
|
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
|
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
|
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
|
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
|
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
|