|
|
| Другие темы раздела | |
|
Turbo Pascal Найти сумму ряда, используя смешанный кэффициент
https://www.cyberforum.ru/ turbo-pascal/ thread251517.html Задали задание, описанное в заголовке темы. S=\cos(x)+ \frac{\cos (3x)}{{3}^{2}}+...+ \frac{\cos(2n-1)*x}{{(2n-1)}^{2}} n=40 Коэффициент вычисляется по формуле k=\frac{{a}_{n}}{{a}_{n-1}} Потом выделяется {k}^{'} (результат сокращения и не тригонометрические функции) и {k}_{slozhnoe} (тригонометрические функции) На лекциях этого не было. На практике была разобрана всего 1 подобная... |
Записи Turbo Pascal имеется n аудиокассет про каждую известно, что кол-во записей не превышает 20-ти. название продолжительность (в минутах) жанр (рок,романс,попса) Найти и вывести название и продолжительность самой длинной песни Найти и вывести название жанр и продолжительность самого короткого произведения |
|
Turbo Pascal Подсчет количеста аннаграм =)
https://www.cyberforum.ru/ turbo-pascal/ thread251473.html Здравствуйте var s, s1: string; i, j, kol, fac, fact, res, q: longint; begin readln(s); q:= 1; fac:= 1; for i:= 1 to length(s) do begin |
Turbo Pascal обработка файлов 1. Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонент файла f и наименьший компонент файла. 2. Создайте текстовый файл p так, что бы он был разбит на непустые строки. Напишите программу для подсчета числа строк, которые состоят из одинаковых литер. https://www.cyberforum.ru/ turbo-pascal/ thread251472.html |
|
Turbo Pascal Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n. Вот такое вот задание: дано натуральное число n= 15. Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n. Вот такая получилась программа: n:=15; s:=0; for i:=1 to 15 do begin k:=i; |
Turbo Pascal Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0 Дана строка, содержащая несколько круглых скобок. Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0. В противном случае вывести или номер позиции, в которой расположена 1-ая ошибочно закрывающаяся скобка, или, если закрывающихся скобок не хватает, число - 1. https://www.cyberforum.ru/ turbo-pascal/ thread251422.html |
|
Turbo Pascal Определить максимальное и минимальное значения массива
https://www.cyberforum.ru/ turbo-pascal/ thread251415.html Создать программу, определяющую максимальное и минимальное значения массива(если можно с комментариями чтоб было понятно) |
Определить столбец матрицы с максимальным значением суммы положительных элементов Turbo Pascal В прямоугольной матрице размером М*К, , имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран. |
| Turbo Pascal Графика: одновременная анимация нескольких объектов Привет, подскажите как сделать, чтобы все эти 4 объекта запускались одновременно, а не как сейчас по очереди. uses crt, graph; const n=15; procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer); begin a:=a*pi/180; x:=x0+round(d*cos(a)); https://www.cyberforum.ru/ turbo-pascal/ thread251382.html |
Turbo Pascal множества
https://www.cyberforum.ru/ turbo-pascal/ thread251359.html 1. В возрастающем порядке напечатать все целые числа из диапазона 1..100, представимые в виде n*n+m*m , где n,m>=0. 2. Ввести в качестве множества имена всех дней недели. из этого множества удалить выходные дни и напечатать элементы полученного множества. |
|
Составить рекурсивную подпрограмму вычисления n-ого члена последовательности Turbo Pascal Составить рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi = аi-1 +2, где а1 =1, i=2,3,4, … |
Turbo Pascal В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива. https://www.cyberforum.ru/ turbo-pascal/ thread251352.html |
|
3 / 3 / 0
Регистрация: 03.03.2011
Сообщений: 27
|
|
| 0 | |
Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга - Turbo Pascal - Ответ 141718303.03.2011, 13:50. Показов 1224. Ответов 1
Метки (Все метки)
Четыре круга заданы радиусами и координатами своих центров на плоскости. Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга. Вернуться к обсуждению: Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга Turbo Pascal
0
|
|
|
|
| 03.03.2011, 13:50 | |
|
Готовые ответы и решения:
1
Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга Движение окон по часовой стрелке, не перекрывающих друг друга
Найти среди точек пару наиболее удаленных друг от друга |
| 03.03.2011, 13:50 | |
|
Помогаю со студенческими работами здесь
0
Избежать смешивания цветов при наложении цветных кругов друг на друга
|