|
|
| Другие темы раздела | |
|
Free Pascal Вывести на экран график функции на заданном отрезке
https://www.cyberforum.ru/ free-pascal/ thread586119.html Требуется вывести на экран график функции на заданном отрезке: y=3+2/x+3/(x*x). Заранее спасибо. uses graph; const xn=-4; xk=4; function F(x:real):real; begin F:=3+2/x+3/sqr(x); end; var mx,my,dx,y1:real; x:real; x0,y0,i:integer; |
Free Pascal Разработать программу нахождения первого простого числа в матрице размерности MxN
https://www.cyberforum.ru/ free-pascal/ thread585963.html Выполнить обработку массива большой размерности в соответствии с заданием. Массив размещать в оперативной памяти динамически. Элементы массива формировать, используя генератор случайных чисел.... |
|
Free Pascal Вводится массив. Определить, в каком из чисел наибольшая сумма всех его цифр Ребят помогите написать прогу в Free Pascal Вводится массив из N целых положительных чисел. Определить, в каком из чисел наибольшая сумма всех его цифр. Для подсчета суммы цифр числа использовать... type mas = array of integer; var i:integer; mas1:mas; k:integer; procedure chet( mas1 :mas;var k : integer); var summ,ost: real; mas2 : mas; i,max:integer; |
Free Pascal Строковые данные. Нужно объяснение программы
https://www.cyberforum.ru/ free-pascal/ thread586697.html program laba10; var a:array of byte; s:string; i:byte; p:real; d:integer; begin writeln('введите текст:'); readln(s); d:=length(s); |
|
Free Pascal Динамические массивы. Дан массив записей из полей типа Char, Word, Byte. Преобразовать его в массив типа Longint FreePascal Выполнить обработку массивов в соответствии с заданием. Предусмотреть описание массивов как динамических. Само задание: Дан массив записей из полей типа Char, Word, Byte. Преобразовать... Вы бы хоть пояснение какое написали. Динамических массив - список? Что значит "преобразовать"? Можно завести второй список такого типа и перекинуть в него преобразованные элементы. Тогда в каком виде... |
Free Pascal Одномерные массивы. Из значений исходного массива сформировать массив положительных и массив отрицательных элементов из значений произвольно заданного одномерного массива сформировать массив из положительных и массив из отрицательных элементов исходного массива. :gcray2: очень нужна ваша помощь.. uses crt; const nmax=100; var a,b,c: array of integer; i,j,k,n,p,s: integer; begin repeat write('n (ne bolee ',nmax,')='); readln(n); until n in ; writeln('Исходный массив'); j:=0; k:=0; https://www.cyberforum.ru/ free-pascal/ thread586767.html |
| Free Pascal Определить, имеется ли в массиве хотя бы одно нечетное отрицательное число дано натуральное число N и массив целых чисел а1, ... , аn . выяснить имеется ли в массиве а1, ... , аn хотя бы одно не четное отрицательное число и определить его местонахождение в массиве. var n,i,k:integer; a:array of integer; begin randomize; write('N= '); read(n); writeln('Массив:'); for i:=1 to N do begin a:=random(10)-10; write(a, ' '); https://www.cyberforum.ru/ free-pascal/ thread586781.html |
Изобразить на плоскости область, в которой истинно указанное выражение Free Pascal I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение (X >= -1) and (X <= 0) and (Y >= -2) and (Y <= -X) or (X >= 0) and (X <= 1) and (Y >= -2) and (Y... uses graph; var xc,yc,n,i:integer; m,x,y:real; s:string; begin initgraph(xc,yc,''); xc:=getmaxX div 2; yc:=getmaxY div 2; m:=(yc-50)/3; setcolor(11); |
|
Сформировать массив по заданной формуле. Найти сумму элементов массива Free Pascal Сформировать массив по формуле a= 5i-i^2. Найти сумму элементов массива. uses crt; var i,n,sum: integer; a: array of integer; begin clrscr; sum:=0; write('Размерность: '); readln(n); for i:=1 to n do begin |
Free Pascal Нарисовать сферу с заданным радиусом Задается радиус. Нужно нарисовать как на этом примере - http://allmatematika.ru/page.php?18 В графике я жалкий нуб... Спасибо. https://www.cyberforum.ru/ free-pascal/ thread586513.html |
| Free Pascal Изобразить на экране электронное табло с посекундным отображением времени Написать программу «Таймер»: программа должна запросить текущее время, изобразить на экране электронное табло, на котором отображать посекундное изменение времени; через определенное время должен... uses crt; var h,m,s,n:integer; begin clrscr; repeat writeln('‡*¤*©вҐ ⥪г饥 ўаҐ¬п, з*бл, ¬Ё*гвл, ᥪг*¤л:'); readln(h,m,s); until(h in )and(m in )and(s in ); n:=s; clrscr; https://www.cyberforum.ru/ free-pascal/ thread586102.html | Free Pascal Как очистить то что вывела программа па экран? Частично или полностью! подключаете модуль Crt в теле программы команда clrscr; https://www.cyberforum.ru/ free-pascal/ thread585555.html |
|
2 / 2 / 1
Регистрация: 25.05.2012
Сообщений: 12
|
|
| 0 | |
Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной - Free Pascal - Ответ 308110825.05.2012, 19:37. Показов 2876. Ответов 1
Метки (Все метки)
Вернуться к обсуждению: Дано целое число. Подсчитать количество цифр в числе, значения которых больше заданной Free Pascal
0
|
|
Лучшие ответы (1)
| 25.05.2012, 19:37 | |
|
Готовые ответы и решения:
1
Дано целое число А Определить количество четных цифр в числе
|
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 25.05.2012, 19:37 | |
|
Помогаю со студенческими работами здесь
0
Дано целое десятичное число a. Определить количество четных цифр в числе а Дано натуральное число n. Подсчитать количество некратных 3 цифр в числе Дано натуральное число. Подсчитать количество цифр, которые больше своей правой соседки Дано целое число K. Поменять порядок цифр в числе на обратный. Дано целое число K. Поменять порядок цифр в числе на обратный. |
Новые блоги и статьи
|
||||
|
JUnit или TestNG: Выбираем Java-фремворк для тестирования
Javaican 20.03.2025
История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .
|
Разбиваем монолит на два микросервиса и реализуем CI/CD
ArchitectMsa 20.03.2025
Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .
|
Python и PDF: Создание и редактирование файлов
py-thonny 20.03.2025
Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .
|
Корутины в Unity и производительность WaitForSeconds
GameUnited 20.03.2025
Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
|
Криптография в PHP
Jason-Webb 20.03.2025
PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .
|
|
Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли
Etyuhibosecyu 20.03.2025
С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .
|
Реализация перечислений в Go
golander 19.03.2025
Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .
|
Шаблон API Gateway в микросервисной архитектуре
MatrixArchitect 19.03.2025
API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .
|
C++26: Что мы потеряли
bytestream 19.03.2025
С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .
|
Async/await в C#: Асинхронное программирование в действии
UnmanagedCoder 19.03.2025
Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .
|
Наверх