Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Типизированые файлы. Найти произведение квадратов компонентов, модуль суммы и квадрат произведения (в четверг нужно здать) помогите решить задачу, срочно нужно два дня без результатного :wall: В заданном файле F, компоненты которого вещественные числа, найти: а)произведение квадратов компонентов файла F; б)модуль суммы и квадрат произведения компонентов файла F https://www.cyberforum.ru/ turbo-pascal/ thread551404.html Turbo Pascal Массивы. Найти сумму элементов под главной диагональю
Задача 2. Найти суммы элементов под главной диагональю в массивах А и В. Задача 3. Вычислить среднее арифметическое элементов главных диагоналей в массивах А и В .
Turbo Pascal Составить программу для вычисления выражения через While https://www.cyberforum.ru/ turbo-pascal/ thread551381.html
составить программу для вычисления выражения С=(1+2+3+...+70)в четвертом степени 		Turbo Pascal Массивы. Сформировать вектор из четных элементов матрицы. Найти в нем максимальный элемент https://www.cyberforum.ru/ turbo-pascal/ thread551379.html
1 задача. Сформировать вектор T, т.е. одномерный массив из четных элементов матрицы P(k,l). Найти в нем максимальный элемент. 2 задача. Описать процедуру DigitalCountSum(K,C,S), находящую количество C цифр целого положительного числа K, а также их сумму S(K-входной, C и S - выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных...
Определить, сколько времени студенту придется простоять в очереди, и вообще обслужат ли его сегодня Turbo Pascal
Студент Василий живет в общежитии. Отделение банка, в котором он производит оплату за проживание, имеет всего две кассы, поэтому почти всегда длинная очередь к ним. Первая касса открывается в 8.00, вторая – в 8.05. Последний клиент будет принят в 20.00. Очередь единая, и очередной клиент обслуживается, как только освобождается одна из касс. На обслуживание одного клиента уходит ровно 10 минут.... 		Turbo Pascal Определить, количество различных салатов для произвольного числа ингредиентов Как-то раз, придя домой со школы, Света обнаружила записку от мамы, в которой она просила сделать салат. Света знала, что салат – это смесь двух или более ингредиентов, поэтому ей не составило труда выполнить мамину просьбу. Но Света хочет стать математиком, поэтому, для тренировки, решила посчитать, сколько различных салатов она сможет сделать из имеющихся продуктов (майонез, огурцы,... https://www.cyberforum.ru/ turbo-pascal/ thread551364.html
Turbo Pascal Выясните, может ли турист выбрать палатки так, чтобы в них все могли поместиться https://www.cyberforum.ru/ turbo-pascal/ thread551359.html
Гена собирается на туристический слет учеников своей школы. В своем классе он был назначен ответственным за палатки. У себя дома он нашел 3 палатки: первая из них весит a1 килограмм и вмещает b1 человек, вторая весит a2 килограмм и вмещает b2 человек, третья весит a3 килограмм и вмещает b3 человек. В классе Гены K человек. Выясните, может ли он выбрать палатки так, чтобы в них все могли... 		Написать программу, выводящую массив mass2 в котором каждый элемент массива mass встречается без повторений Turbo Pascal
Помогите,пожалуйста, не знаю,как делать... 1.Дан одномерный массив mass из k строк длиной не более 10 символов, некоторые из которых повторяются. Написать программу, выводящую массив mass2 в котором каждый элемент массива mass встречается без повторений. Входные данные: k, mass Выходные данные: mass2 Входные данные: 5 январь, февраль, март, январь, март Выходные данные: январь,...
Turbo Pascal Найти наибольшее и наименьшее значение функции y = 3x2 + x – 4, если на заданном интервале [a,b] x изменяется с шагом 0,1. Найти наибольшее и наименьшее значение функции y = 3x2 + x – 4, если на заданном интервале x изменяется с шагом 0,1. https://www.cyberforum.ru/ turbo-pascal/ thread551340.html Turbo Pascal Найти максимальный элемент каждой строки матрицы Найти максимальный элемент каждой строки .Затем из них найти минимальный . Вывести элемент и его индексы. https://www.cyberforum.ru/ turbo-pascal/ thread551338.html
Написать программу, которая найдет наименьшее количество конфет, оказавшихся в одном из подарков Turbo Pascal
Приближался Новый год и отец купил своим детям по подарку. Оказалось, что в них разное количество конфет. Тогда отец купил еще конфет и стал их раскладывать по подаркам следующим образом: брал один из подарков с наименьшим количеством конфет и добавлял в него одну конфету. Требуется написать программу, которая найдет наименьшее количество конфет, оказавшихся в одном из подарков после... 		Turbo Pascal Вычислить максимально возможное значение силы логова драконов Известно, что у дракона может быть несколько голов и его сила определяется числом голов. Но как определить силу драконьей стаи, в которой несколько драконов и у каждого из них определенное число голов? Вероятно, вы считаете, что это значение вычисляется как сумма всех голов? Это далеко не так, иначе было бы слишком просто вычислить силу драконьей стаи. Оказывается, что искомое значение равно...
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
12.02.2012, 22:17 0

Двумерный массив. Вычислить произведение тех элементов, сумма номеров строки и столбца которых равна 5 - Turbo Pascal - Ответ 2484158

12.02.2012, 22:17. Показов 2181. Ответов 8
Метки (Все метки)

Ответ

Цитата Сообщение от kojakin Посмотреть сообщение
спасибо, а можно без раномайза
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

var
a:array[1..10,1..10] of integer;
i,j :integer;
s:integer;
begin
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   begin
    write('a[', i, ', ', j, '] = ');
    readln(a[i, j]);
   end;
  writeln;
 end;
for i:=1 to 10 do
begin
s:=1;
 for j:=1 to 9 do
if i+j=5 then
 s:=s*a[i,j];
a[i,10]:=s;
end;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
 write (' ',a[i,j]);
writeln;
end;
readln;
end.


Вернуться к обсуждению:
Двумерный массив. Вычислить произведение тех элементов, сумма номеров строки и столбца которых равна 5 Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 12.02.2012, 22:17
Готовые ответы и решения:

Сформировать массив, состоящий из номеров строк, в которых сумма элементов меньше или равна заданной величине А
В матрице сформировать массив, состоящий из номеров строк, в которых сумма элементов меньше или...

Найти максимальный элемент среди элементов, у которых сумма номеров строки и столбца четная
Задали мне в универе три задачки по Турбо Паскалю, блин никак не могу решить :eek: , если есть...

Вычислить произведение тех элементов последовательности, у которых сумма цифр лежит в заданном интервале
Дана последовательность целых чисел, оканчивающаяся 0. Вычислить произведение тех элементов...

Двумерный массив. Сумма элементов строки / столбца
Решить задачу в приложении Windows Forms:

8
12.02.2012, 22:17
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 12.02.2012, 22:17
Помогаю со студенческими работами здесь

В двухмерном массиве вычислить произведение элементов, произведение индексов столбца и строки которых четное число.
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор...

Сформировать второй массив из элементов первого, равных сумме номеров строки и столбца, в которых они расположены
Дан двумерный массив. Сформировать второй массив из элементов первого, равных сумме номеров строки...

Двумерный массив.Поиск столбца сумма,которого равна 0
Задание: В матрице имеется столбец,сумма элементов которого равна нулю.Необходимо заменить его...

Создать массив, вычислить произведение тех элементов, для которых выполняется неравенство
Создать массив с элементами a_{kn}=n\,f(k)+sin(k)\,g(n), где k,n=1,2,3,4...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru