Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Найти количество положительных элементов каждой строки матрицы ребят помогите с задачкой: Дана матрица W размером mхn. Найти количество положительных элементов каждой строки матрицы и результаты записать в вектор Wpos. Формирование Wpos и его вывод выполнить в процедуре с именем Find_Wpos. помогите, очень надо:'( https://www.cyberforum.ru/ pascal/ thread19012.html	Помогите с решением Pascal Помогите с решением задачи, условие на изображении ВОТ УСЛОВИЕ Ребят оч нужно, хто знает как решать помогите!
Pascal По номеру года вывести его название В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых названиями цвета: зеленый, красный, желтый, белый и черный. В каждом подцикле годы носят названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. По номеру года вывести его название, если 1984 год был началом цикла — годом зеленой крысы. https://www.cyberforum.ru/ pascal/ thread19010.html	Pascal Дана строка. Определить, сколька раз входит в нее группа букв abc Дана строка. Определить, сколька раз входит в нее группа букв abc. https://www.cyberforum.ru/ pascal/ thread19006.html
Pascal Подсчитать количество различных цифр в десятичной записи натурального числа Подсчитать количество различных цифр в десятичной записи натурального числа	Pascal Проверить можно ли построить треугольник с такими сторонами https://www.cyberforum.ru/ pascal/ thread19001.html Решить данную задачу как с помощью процедуры,так и с помощью функции: Даны три произвольных числа. Проверить можно ли построить треугольник с такими сторонами, составить программу в которой используется функция для выполнения проверки. Функция должна возвращать значение true или false:wall:
Pascal Использование стандартных процедур и функций https://www.cyberforum.ru/ pascal/ thread18999.html Составьте программу, которая по числу <1000, написанному арабскими цыфрами, формирует его название.:wall:	Pascal Работа со строковыми переменными В строке между словами вставить вместо пробела запятую и пробел.:help:
Pascal Переполнение стека https://www.cyberforum.ru/ pascal/ thread18995.html Задача стоит такая: Затравочное заполнение 4-х связной гранично определенной области. Алгоритм такой использовал: ставим затравочную точку и проверяем ее четыре соседние точки, если точка не является закрашенной или граничной, то добавляем ее в стек. Во время реализации происходит переполнение стека,Вот Листинг: uses graph; Type ukaz=^tochka; tochka=record {Элемент списка-координаты точки} ...	Pascal Построить таблицу значений функции на указанном промежутке с данным шагом Построить таблицу значений функции на указанном промежутке с данным шагом: y=система с двух уравнений 1)tgx , -П/4<x<П/4 2)4x/П ,в другом случаи -П;П], дельта x=П/10 https://www.cyberforum.ru/ pascal/ thread18994.html
Pascal Подсчитать y = cos(1+cos(2+...+cos(39+cos40) ...)) Помогите сделать программу: Подсчитать y = cos(1+cos(2+...+cos(39+cos40) ...))	Pascal Люди добрые помогите с решением задач на паскале https://www.cyberforum.ru/ pascal/ thread18979.html вот задачи 2 и 3 ненужно буду очень благодарен за помощь

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

20.12.2008, 12:38

2 задачи - Получить min (a1 * an, a2 * an-1, … , a[n/2] * a[n/2]+1) и смена мест элементов в матрице - Pascal - Ответ 85158

20.12.2008, 12:38. Показов 2853. Ответов 6

Метки (Все метки)

Ответ

№1.

Pascal

uses crt;
const n= 10;
var a:array[1..n] of real;
    i:integer;
    min:real;
begin
clrscr;
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
read(a[i]);
readln;
min:=a[1]*a[n];
for i:=2 to n div 2 do
if a[i]*a[n-i+1]<min then min:=a[i]*a[n-i+1];
write('Min=',min:0:2);
readln
end.

По второй задаче напиши четко какой буквой обозначается количество строк, какой-количество столбцов, и какая из них четная, какая нечетная.
У тебя сначала столбцы m (n*m), потом они же n (элементы второго и (n-1)-го столбцов ). Не умеешь решать, так хоть списывать правильно учись задания.

Вернуться к обсуждению:
2 задачи - Получить min (a1 * an, a2 * an-1, … , a[n/2] * a[n/2]+1) и смена мест элементов в матрице Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.12.2008, 12:38

Готовые ответы и решения:

Смена мест элементов в стеке
помогите сделать и если можно то с каментариями Дан стек размера N (N — четное число). Поменять...

Смена мест элементов массива, упорядочивание
1. В массиве переставить местами 3 первых и 3 последних элемента, сохраняя их порядок. пример:...

Массив: Получить min(a1;a2;a3)+min(a4;a5;a6)+min(a7;a8;a9)+min(a10;a11;a12) .
Заполнить массив а1,а2,а3...а12 случайными числами от 0 до 20. Получить ...

	20.12.2008, 12:38

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.12.2008, 12:38

Помогаю со студенческими работами здесь

Даны действительные числа а и b. Получить U= min (a,b), V= min (ab, a+b), min (U+V^2, 3.14) при помощи функций
Даны действительные числа а и b. Получить U= min (a,b), V= min (ab, a+b), min (U+V^2, 3.14). ...

Замена max и min элементов в матрице
Здравствуйте! Необходимо поменять местами максимальный и минимальный элемент в каждой строке...

Наверх