|
|
| Другие темы раздела | |
| Turbo Pascal Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0 Дана строка, содержащая несколько круглых скобок. Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0. В противном случае вывести или номер позиции, в которой расположена 1-ая ошибочно закрывающаяся скобка, или, если закрывающихся скобок не хватает, число - 1. https://www.cyberforum.ru/ turbo-pascal/ thread251422.html |
Определить максимальное и минимальное значения массива Turbo Pascal Создать программу, определяющую максимальное и минимальное значения массива(если можно с комментариями чтоб было понятно) |
|
Turbo Pascal Определить столбец матрицы с максимальным значением суммы положительных элементов
https://www.cyberforum.ru/ turbo-pascal/ thread251409.html В прямоугольной матрице размером М*К, , имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран. |
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 1. В возрастающем порядке напечатать все целые числа из диапазона 1..100, представимые в виде n*n+m*m , где n,m>=0. 2. Ввести в качестве множества имена всех дней недели. из этого множества удалить выходные дни и напечатать элементы полученного множества. |
Turbo Pascal Составить рекурсивную подпрограмму вычисления n-ого члена последовательности
https://www.cyberforum.ru/ turbo-pascal/ thread251353.html Составить рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi = аi-1 +2, где а1 =1, i=2,3,4, … |
| Turbo Pascal В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива. https://www.cyberforum.ru/ turbo-pascal/ thread251352.html |
Turbo Pascal Получить действительный квадрат матрицу порядка 8, элементами которой являются числа от а1 до 64аб Даны Числа а1 до а64. Числа Генерировать в диапозоне от 1 до 64 по закону равномерного распределения. Получить действительный квадрат матрицу порядка 8, элементами которой являются числа от а1 до 64аб расположеные в ней по схеме. |
|
Turbo Pascal Все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр.
https://www.cyberforum.ru/ turbo-pascal/ thread251337.html Найти все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр. Знаю как решать. не знаю как написать(( вот что то написал но думаю не то пальто вообще... кто может, помогите)) program tak; var a,b,c,ch : integer; begin |
Turbo Pascal Деление отрезка пополам Помогите пожалуйста написать программу, которая считает корни функции с погрешностью методом деления отрезка пополам. https://www.cyberforum.ru/ turbo-pascal/ thread251328.html |
|
Определить количество цифр в цифровой записи числа Turbo Pascal Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наибольшее значение. Подскажите как исправить код. Когда преподавателю показал, задал мне число 23453, вот тут у меня и возникла ошибка... а вот например число 1808 считает спокойно выдаёт 2. var n,k,min:integer; begin cls; min:=9; k:=0; |
Turbo Pascal Блок схема
https://www.cyberforum.ru/ turbo-pascal/ thread251309.html помогите с блок схемой program zadacha; uses crt; var st,st1:string; l,n,i,j:byte; begin clrscr; writeln('Vvedite stroky'); readln(st); |
|
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 03.03.2011, 11:37 | 0 |
Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n. - Turbo Pascal - Ответ 141684403.03.2011, 11:37. Показов 17319. Ответов 5
Метки (Все метки)
Ответ
AnnShik, Пожалуйста. Программу можете проверить при n=2,3,4... все сходится...
Вернуться к обсуждению: Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n. Turbo Pascal
0
|
|
| 03.03.2011, 11:37 | |
|
Готовые ответы и решения:
5
Ввести с клавиатуры 3 числа А, В, С. Вычислить сумму А и В, затем эту сумму умножить на С
|
| 03.03.2011, 11:37 | |
| 03.03.2011, 11:37 | |
|
Помогаю со студенческими работами здесь
0
Вычислить отдельно сумму четных и сумму нечетных членов последовательности Вычислить сумму и найти число слагаемых, которые вошли в сумму Вычислить сумму четных и сумму нечетных чисел натурального ряда от 1 до N
|