С Новым годом! Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Free Pascal Нарисовать блоксхему Помогите разобратся ка нарисовать блоксхему по тексту программы program taskA6; uses Crt; Type TA = Array of Integer; var A,B : TA; I,J,index :Integer; begin ClrScr; https://www.cyberforum.ru/ free-pascal/ thread1584398.html Исключить последовательность символов, заключенную между двумя определенными символами Free Pascal
.исключить последовательность символов заключенную между двумя определенными символами
Free Pascal Условный оператор Объясните пожалуйста поподробней эту программу,что то я не как не пойму полностью.Если пароль не верный почему она пишет "Стойте!" и зачем эта переменная R. И подскажите как сюда с Pascal 2.6.4 код вставить, у меня не копируется код в pascalе. И вот еще задание A). В программах для часового укажите начало и конец условного оператора(то есть,первый и последний его символ,включая вложенные... https://www.cyberforum.ru/ free-pascal/ thread1583710.html Free Pascal Построить кривую по заданному параметрическому представлению (строфоида) https://www.cyberforum.ru/ free-pascal/ thread1583613.html
Построить кривую по заданному параметрическому представлению: Строфоида: x=A*(t2–1) / (t2+1), y=A*t*(t2–1) / (t2+1), t(–∞,+∞), A>0
Graph: построить семейство одинаковых кругов, центры которых расположены на тангенсоиде Free Pascal
Построить семейство одинаковых кругов, центры которых расположены на тангенсоиде (Y = C*sin(X)/cos(X) на ). Нарисовать оси координат.
Free Pascal Graph: на границах I-ой координатной четверти построить семейство разноцветных квадратиков На границах 1 координатной четверти построить семейство разноцветных квадратиков, а внутри ограниченной области построить множество разноцветных точек (окружностей радиуса 2). https://www.cyberforum.ru/ free-pascal/ thread1583590.html
Free Pascal Построить график функции ƒ=x-y²+5 https://www.cyberforum.ru/ free-pascal/ thread1583257.html
Доброго времени суток, дали задание: построить график функции ƒ=x-y²+5 при xЄ с шагом 1,5 y={1;2;3;4;5} Я в построении графиков совсем не "бумбум":wall:, буду очень благодарен если покажете как это выглядит на программном коде.
Существует ли треугольник и, если да, определить его характеристики Free Pascal
Дано массив чисел. Требуется в процедуре отобрать все возможные варианты "тройняшек". procedure t(...:real); for i:=1 to N-2 do for j:=i+1 to N-1 do for k:=j+1 to N do end; Далее определить существует ли данный треугольник, если да, то определить его периметр, площадь и тип. Каждое действие выполнить в отдельной функции. function max(a, b, c, max: real):real;
Free Pascal Описать функцию СОN(K,N) целого типа , возвращающую количество цифр целого положительного числа К равны N 2. Описать функцию СОN(K,N) целого типа , возвращающую количество цифр целого положительного числа К равны N. Если таковых нету то функция возвращает 1. https://www.cyberforum.ru/ free-pascal/ thread1583196.html Free Pascal Получить все целые числа из интервала от А до В, у которого сумма делителей является четным числом https://www.cyberforum.ru/ free-pascal/ thread1583195.html
1.Получить все целые числа из интервала от А до В, у которого сумма делителей является четным числом. Используйте процедуру или функцию.
Free Pascal Проверить, является ли матрица симметричной по отношению к прямой, проведенной через ее середину
Как проверить, является ли двумерный массив симметричным по отношению к прямой, проведенной через середину массива?
Free Pascal Получить все простые делители заданного числа (процедура или функция) Дано целое число n. Получить все простые делители этого числа.используйте процедуру или функцию. Пожалуйста 😰🙏 https://www.cyberforum.ru/ free-pascal/ thread1583162.html
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
18.11.2015, 18:18 0

Как подсчитать наружный круг Двухмерного Массива - Free Pascal - Ответ 8360091

18.11.2015, 18:18. Показов 984. Ответов 7
Метки (Все метки)

Лучший ответ Сообщение было отмечено Вайрис как решение

Решение

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
Program masivi;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,c,p,sum:integer;
begin
clrscr;
randomize;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-100+random(201);
    write(a[i,j]:5);
   end;;
  writeln;
 end;
sum:=0;
for i:=1 to n-1 do
sum:=sum+a[1,i]+a[i,n]+a[n,i+1]+a[i+1,1];
write('Сумма элементов периметра=',sum);
readkey;
end.


Вернуться к обсуждению:
Как подсчитать наружный круг Двухмерного Массива Free Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2015, 18:18
Готовые ответы и решения:

Подсчитать суммы положительных и отрицательных элементов двухмерного массива
Для зачета нужна задача. Подсчитать суммы положительных и отрицательных элементов двухмерного...

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

Подсчитать количество столбцов двухмерного массива, содержащих более двух одинаковых элементов
Составьте программу подсчета столбцов двухмерного массива, содержащих более двух одинаковых...

Подсчитать сумму всех элементов двухмерного массива и найти медиану (среднее арифметическое)
Подсчитать сумму всех элементов двухмерного массива и найти медиану (среднее арифметическое) а)...

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

Для заданного двухмерного массива подсчитать число элементов, которые расположены за первым отрицательным
Помогите с заданием: Для заданного двухмерного массива подсчитать число элементов, которые...

В каждой строке двухмерного массива определить наибольший элемент и подсчитать сумму этих максимальных элементов
В каждой строке двухмерного массива определить наибольший элемент и подсчитать сумму этих...

Перенос повторяющихся значений из двухмерного двухмерного массива в другой массив и запуск функции
Здравствуйте, форумчане! У меня есть двухмерный массив (string,string) В первом столбце хранятся...

Как перебрать все возможные варианта массива с неопределённой длинной, из двухмерного массива такой же длинны?
Как перебрать все возможные варианта массива с неопределённой длинной, из двухмерного массива такой...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru