|
|
| Другие темы раздела | |
| PascalABC.NET Составить программу вычисления значения функции, используя обращение к подпрограмме Составить программу вычисления значения функции, используя обращение к подпрограмме. Подпрограмму написать в виде процедуры или функции. Условие на фото. (Ссылка на сторонний ресурс удалена) Функция: z=xe^^{2x}\left(1+ax+a^^2x^^2 \right) Подпрограмма: https://www.cyberforum.ru/ pascalabc-net/ thread1165422.html |
Расширить границу размера массива PascalABC.NET Привет. Требуется ваша помощь. Есть программа, интересует как увеличить параметр вот этот - mas = array of integer; mat = array of integer; , то есть как увеличить в паскале abc.net размер массива , чтобы число элементов в массиве с которыми можно было работать было более 10000 , скажем 100 000 000 000? То есть , если увеличить предел еще на один 0 ,то выдает ошибку Ошибка времени... |
| PascalABC.NET Найти количество гласных букв в слове Программа находит гласные буквы в наибольшем слове строки . Необходимо найти количество гласных в этом слове . например для слова "ололо" количество гласных будет 1 , а не 3 как казалось бы . У кого есть идеи , прошу помочь program string1; var s, max : string; i,k,prev,m: integer; g : set of char; const delims = ; https://www.cyberforum.ru/ pascalabc-net/ thread1165064.html |
PascalABC.NET Орнамент из треугольников
https://www.cyberforum.ru/ pascalabc-net/ thread1164571.html Здравствуйте. Помогите, кто чем может:) Орнамент из треугольников. Построить правильный треугольник заданного размера. Каждую его сторону разделить в заданном отношении m:n; полученные точки-вершины нового треугольника. И так далее до заполнения внутренности треугольника. Заполнить экран орнаментами из правильных треугольников. P.s. Можно и в ABC. Заранее благодарю:thank_you: |
|
PascalABC.NET У выпуклого 2n-угольника сократить вдвое число вершин, продолжив все нечётные стороны до пересечения Здравствуйте. Помогите, кто чем может:) У выпуклого 2n-угольника, заданного координатами своих вершин на плоскости в порядке обхода по часовой стрелке, сократить в двое число вершин, продолжив все нечётные стороны до пересечения. P.s. Можно и в ABC. Заранее благодарю:thank_you: |
PascalABC.NET Определить значение константы пи
https://www.cyberforum.ru/ pascalabc-net/ thread1164445.html Определить значение константы пи по формуле \frac{{\pi}^{2}}{32} = \sum_{n=1}^{\infty}\frac{{(-1)}^{n-1}}{{(2*n-1)}^{3}} с заданной погрешностью e. И у меня несколько вопросов: 1) Как задать погрешность? Как константу или через ввод с клавиатуры? 2) Как вообще посчитать эту сумму? Моя программа выглядит так: program z; var n:integer; s,pi,e:real; |
| PascalABC.NET Как доказать, что условие х=у нелогично? ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩЕГОСЯ ВЫЧИСЛИТЕЛЬНОГО ПРОЦЕССА 1)Разработать программу вычисления значений заданной кусочно-непрерывной функции для произвольных значений исходных данных. 2)Подготовить исходные данные для контрольного расчета значения функции по каждой формуле. 3)Выполнить контрольные расчеты и расчет для заданных исходных данных. Program Work_3; Var x, y, z, OMEGA, t:... https://www.cyberforum.ru/ pascalabc-net/ thread1164258.html |
PascalABC.NET Создание тестирующей программы Я ВОТ НАКИДАЛ ПРОГРАММУ ПОМОГИТЕ ЗАКОНЧИТЬ НЕ ЗНАЮ КАК СДЕЛАТЬ ТАК ЧТОБЫ ОН ЗНАЛ ПОРЯДОК ОТВЕТОВ (ПРИМЕР 13123) И ПОТОМ ДЕЛАЛ ВЫВОД program noobles; uses crt, graph ; var s,x,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x12,x13,x11,x14,o:integer; begin clrscr; s:=0; o:=0; |
| PascalABC.NET Неубывающие цепочки Дана последовательность натуральных чисел X=(x1,...xn). Её подпоследовательность (xm+1, xm+2...xm+k) назовём неубывающей цепочкой длины k, если xm+1<=xm+2<=...<=xm+l, но xm>xm+l и xm+k>xm+k+l. вычислить длину самой короткой и самой длинной из неубывающих цепочек в X. помогите решить, сколько ни пытался разобраться, не получается https://www.cyberforum.ru/ pascalabc-net/ thread1164096.html | PascalABC.NET Вывести слово по центру экрана буквами разного цвета Помоги составить программу: Пользователь вводит произвольное слово. Оно выводится по центру экрана буквами разного цвета. Буквы непрерывно меняют цвет. https://www.cyberforum.ru/ pascalabc-net/ thread1163630.html |
|
PascalABC.NET Определить количество таких элементов матрицы, что они больше суммы остальных элементов У меня возникла небольшая проблема с задачей Вот сама задача Дана матрица, определить количество «особых» элементов. Элемент считается «особым», если он больше суммы остальных элементов строки. вот код мною написанный Program ttt2; var x:array of integer; y:array of integer; i,j,n,m,k,b:integer; |
PascalABC.NET Зачем 2 раза пишут readln Зачем 2 раза пишут readln var a, s: integer; begin s:= 0; readln(a); while a<>0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s := s + a; readln(a); end; writeln(s) https://www.cyberforum.ru/ pascalabc-net/ thread1163334.html |
|
0 / 0 / 0
Регистрация: 16.12.2013
Сообщений: 20
|
|
| 0 | |
Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов, кратных 3 или 5 - PascalABC.NET - Ответ 612407004.05.2014, 12:17. Показов 1012. Ответов 2
Метки (Все метки)
Вернуться к обсуждению: Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов, кратных 3 или 5 PascalABC.NET
0
|
|
|
|
| 04.05.2014, 12:17 | |
|
Готовые ответы и решения:
2
|
| 04.05.2014, 12:17 | |
Наверх