Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Устранить ошибку с чтением файла прога короче должна открывать файл, который предварительно она же и создала, и читать с него инфу. заполнить файл она может, сохранить то же, но вот при открытии... error 103: file not open повесиццо( сижу уже достаточно долго над ней корпею ошиюка вылетает в районе 85-90 строки и, аналогичная ситуация около 106-118... но там более мудрёно чем в первом случае, хотя всё то же самое. помогите плз... https://www.cyberforum.ru/ pascalabc/ thread203928.html	Pascal ABC Найти корни уравнения на нахождение корней уравнения:tg(7.5*x)-2(x+1) Заранее Спасибо
Pascal ABC Вычислить значение выражения Помогите пожалуйста с решением данной задачи, я в паскале не силен, но девушке надо помочь... https://www.cyberforum.ru/ pascalabc/ thread203910.html	Pascal ABC В каждой строке матрицы поменять местами минимальный среди четных элементов и первый элемент строки https://www.cyberforum.ru/ pascalabc/ thread203893.html Ввести матрицу A(N×M), вывести ее. В каждой строке матрицы поменять местами минимальный среди четных элементов и первый элемент строки. Если нет четных элементов в строке, то оставить ее без изменения. Добавлено через 2 часа 10 минут помогите пожалуйста с решением
определить есть ли в строке целые числа. Pascal ABC Дана строка состоящая из произвольных символов определить есть ли в строке целые числа. если есть наити их сумму,если нет то сказать нету. и вторая дана строка и слово вставить заданое слово после каждой гласной буквы	Pascal ABC Файл по строкам https://www.cyberforum.ru/ pascalabc/ thread203855.html Помогите плиз,Создайте тестовый файл по строкам. Слова не переносятся с одной строки на другую. Напечатайте строку с наибольшим количеством слов. Если таких строк несколько, то напечатать первую из них.(Зараннее спасибо)
Pascal ABC Одномерный массив https://www.cyberforum.ru/ pascalabc/ thread203843.html Ввести одномерный массив А, вывести его. Произвести циклический сдвиг его элементов вправо, при этом не затрагивая максимум и минимум. program Massiv1; const Nmass=100; var A,B:array of integer; N,i,k,L,max,min,NB,NN,NA: byte; buf:integer; begin cls; //ручной ввод массива	Использование типа Integer в переменной record Pascal ABC Господа, в общем проблемка высветилась.... У меня есть переменная типа record, но т.к. она стоит в цикле и должна постоянно менятся сохраняя общий шаблон, то я придумал нехитрое решение проблемы: for i:=1 to n do name:=name+i; думаю что здесь что понятно. так вот я решил сделать так что бы переменная по мере цикла просто прибавляла себе номер цикла. повторения так будут исключены. однако...
Pascal ABC Поиск индекса максимального элемента среди отрицательных элементов одномерного массива https://www.cyberforum.ru/ pascalabc/ thread203775.html Помогите ,пожалуйста, разобратся с заданием,а то я не знаю с чего его наченать и чем заканчивать:wall: Поиск индекса максимального элемента среди отрицательных элементов одномерного массива.:(	Pascal ABC Рекурсия: вычислить значение по формуле Ребята, помогите пожалуйста , 2 дня мучаюсь с ней, скоро зачет =(( а я не могу её написать: Составить рекурсивный алгоритм и написать программу, вычисляющую значение формулы: f\left(x \right)=\begin{cases} f\left(\frac{x}{2} \right) + \sqrt{x} & \text{ , } x \ge {10}^{-6} \\ 0 & \text{ , } x \lt {10}^{-6} \end{cases} Определить формулу рекурсивного алгоритма (спуск, возврат,... https://www.cyberforum.ru/ pascalabc/ thread203770.html
pascal ABC (array) Pascal ABC Дан массив A размера N и целые числа K и L (1<=K<L<=N). Переставить в обратном порядке элементы массива, расположенные между элементами Ak и AL, включая эти элементы.	Pascal ABC Найти разность и произведение суммы цифр заданных чисел Даны два натуральных числа a, b. Найти разность и произведение суммы цифр этих чисел. Вычисление суммы цифр числа оформить в виде функции. https://www.cyberforum.ru/ pascalabc/ thread203734.html

Puporev

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

64305 / 47602 / 32742

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

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

06.12.2010, 12:11

Положительные элементы строк матрицы с четными номерами разделить на максимальный элемент побочной диагонали - Pascal ABC - Ответ 1173462

06.12.2010, 12:11. Показов 1426. Ответов 3

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

program abc4;
uses crt;
const nmax=15;
var  x:array[1..15, 1..15] of  real;
     n,i,j:byte;
     max:real;
begin
randomize;
repeat
write('n<=15 n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=10*random-4;
    write(x[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
max:=x[1,n];
for i:=1 to n do
if x[i,n-i+1]>max then max:=x[i,n-i+1];
writeln('Максимальный элемент побочной диагонали=',max:0:2);
writeln('Полученная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(x[i,j]>0)and(j mod 2=0) then x[i,j]:=x[i,j]/max;
    write(x[I,J]:6:2);
   end;
  writeln;
 end;
end.

Вернуться к обсуждению:
Положительные элементы строк матрицы с четными номерами разделить на максимальный элемент побочной диагонали Pascal ABC

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

06.12.2010, 12:11

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

Разделить все элементы матрицы с четными номерами на первый элемент
элементы таблицы задаются случайно на . разделить все элементы с четными номерами на первый...

Заменить элементы главной диагонали матрицы на максимальный элемент побочной диагонали на минимальный элемент
в квадратной матрице находящейся в файле найти максимальный и минимальный элементы и заменить...

Заменить элементы побочной диагонали матрицы на максимальный элемент главной диагонали
Преобразуйте матрицу D(4, 4) заменив элементы побочной диагонали на максимальный елемент главной...

Заменить элементы главной диагонали матрицы нулями и найти максимальный элемент ниже побочной диагонали
Есть пример для решения другой задачи(она находит суму всех элементов каждой строки и выводит...

	06.12.2010, 12:11

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

06.12.2010, 12:11

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

Заменить элементы, стоящие на побочной диагонали матрицы, на ее максимальный элемент
Дана матрица порядка 7х7. Замените элементы, стоящие на побочной диагонали, на максимальный...

Переписать элементы главной диагонали матрицы в одномерный массив и разделить их на максимальный элемент главной диагонали
Дана матрица A(N,N). Перепишите элементы её главной диагонали в одномерный массив Y(N) и разделите...

Найти максимальный элемент на главной диагонали матрицы и в его столбце положительные элементы заменить на 0
Сформировать квадратную матрицу размером NxN случайным образом в диапазоне от -15 до 15. Найти...

Разделить все элементы массива с четными номерами на первый элемент
Разделить все элементы массива с четными номерами на первый элемент. как решить такую задачу в...

Разделить все элементы массива с четными номерами на первый элемент
Разделить все элементы массива с четными номерами на первый элемент (первый элемент отличен от 0).

Разделить все элементы массива с четными номерами на первый элемент
помогите пожалуйста. Разделить все элементы массива с четными номерами на первый элемент (первый...

Новые блоги и статьи
В чем отличие между INNER JOIN и OUTER JOIN bytestream 22.01.2025 В современных базах данных информация часто распределена между множеством взаимосвязанных таблиц, что делает операции объединения JOIN неотъемлемой частью работы с SQL. Эти операции позволяют. . .	Как сделать первую букву заглавной в JavaScript bytestream 22.01.2025 JavaScript предоставляет разработчикам множество инструментов для эффективной работы с текстовыми данными. Одной из часто встречающихся задач при обработке строк является преобразование первой буквы. . .	Что такое Big O нотация и алгоритмическая сложность bytestream 22.01.2025 Введение в алгоритмическую сложность В мире разработки программного обеспечения эффективность алгоритмов играет crucial роль в создании качественных приложений. Алгоритмическая сложность. . .	Как решать конфликты слияния (merge) в Git bytestream 22.01.2025 Конфликты слияния в системе контроля версий Git возникают в ситуациях, когда две или более ветки разработки содержат несовместимые изменения в одних и тех же участках кода. Эти конфликты представляют. . .	Как использовать регулярные выражения bytestream 22.01.2025 Регулярные выражения представляют собой мощный инструмент для работы с текстовыми данными, который позволяет осуществлять поиск, проверку и манипуляцию строками на основе определенных шаблонов. Этот. . .	Как выйти из Vim bytestream 22.01.2025 Vim (Vi IMproved) представляет собой один из самых влиятельных текстовых редакторов в истории компьютерной индустрии, эволюционировавший из своего предшественника Vi, созданного Биллом Джоем в 1976. . .
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

Наверх