Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Дан текстовый файл Дан текстовый файл f .Преобразовать строки файла f следующим образом:Заменить каждую из групп стоящих рядом точек одной точкой. Если точек в строке нет, то удалить все пробелы.Преобразованные строки переписать в файл g https://www.cyberforum.ru/ turbo-pascal/ thread808000.html Блок-схема к задаче Turbo Pascal
uses crt; type tv=record naz:string; kol:integer; zen:real; end; mas=array of tv; var buf:mas; ch:char;
Turbo Pascal из 451 получает 154 https://www.cyberforum.ru/ turbo-pascal/ thread807969.html
добрый вечер! прошу помощи...Составьте программу, которая в записи натурального числа N меняет местами крайние цифры, т.е. из 451 получает 154. Вход и выход должны быть значениями типа integer. 		Turbo Pascal Выполнить задание, используя процедуры и функции модуля CRT Установить текстовый режим 25x80, вывести на экран меню следующего вида https://www.cyberforum.ru/ turbo-pascal/ thread807944.html
Напечатать те слова текста, которые отличны от последнего слова и удовлетворяют следующему свойству: длина слова максимальна Turbo Pascal
Дан текст, содержащий от 2 до 50 слов, в каждом из которых от 1 до 7 строчных латинских букв. Между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова текста, которые отличны от последнего слова и удовлетворяют следующему свойству: длина слова максимальна. 		Turbo Pascal Получить массив B, присвоив его k-му элементу значение 1, если k-ая строка матрицы симметрична Должна быть решена с использованием динамического массива. Программа должна обеспечивать возможность ввода данных как из файла , так и с клавиатуры.Вывод данных - на экран и в файл. Интерфейс должен содержать меню. Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если k-ая строка матрицы симметрична, и значение 0 в противном случае.Через процедуры. Что то не... https://www.cyberforum.ru/ turbo-pascal/ thread807922.html
Turbo Pascal не понял тему гибкие подпрограммы. написал программу, но не рабочую. исправьте пожалуста https://www.cyberforum.ru/ turbo-pascal/ thread807899.html
задача: 13. Даны две квадратные матрицы разных порядков. Для каждой из матриц, если суммы элементов строк матрицы различны, то транспонировать матрицу. вот мой код но с касяками(к сожалению их достаточно) const n=4; m=5; type t_max_arr=array of integer; arr_n=array of integer; arr_m=array of integer; procedure read_matr(var a; n:byte); var b:t_max_arr absolute a; i:byte; 		создание динамических изображений в паскале Turbo Pascal
скиньте у кого есть любую задачу на эту тему
Turbo Pascal двухмерная графика надо любая программа на эту тему https://www.cyberforum.ru/ turbo-pascal/ thread807850.html Turbo Pascal Создать файл с именем BYCL содержащий записи: номер отдела, фамилия, стаж работы, сумма получения. Например: 1) Ivanov 15 29000 2) Petrov 21 Создать файл с именем BYCL содержащий записи: номер отдела, фамилия, стаж работы, сумма получения. Например: 1) Ivanov 15 29000 2) Petrov 21 16000 3) Cidrov 5 6000 3)Kozlov 23 17000 Добавить в конце файла записи 3)Nemov 22000 2)Alekseev 2 15000 https://www.cyberforum.ru/ turbo-pascal/ thread807832.html
Как установить связь в записях? Turbo Pascal
Добрый Вечер.Нужна ваша помощь,не получается связать результаты с командами ,то есть результаты себе,команды себе.Подскажите пожалуйста как это сделать Если кто не понял моих слов у меня: было:Ювентус 15 Милан 12 Палермо 21 получилось: Ювентус 21 а надо: Палермо 21 милан 15 ювентус 15 ... 		Turbo Pascal Составить программу построения чертежа плоской фигуры по заданным значениям определяющих ее параметров https://www.cyberforum.ru/ turbo-pascal/ thread807805.html
Выполнить задание, используя процедуры и функции модуля GRAPH. Составить программу построения чертежа плоской фигуры по заданным значениям определяющих ее параметров. Квадрат со стороной a и описанный около него равносторонний треугольник, сторона которого содержит сторону квадрата.
4 / 5 / 3
Регистрация: 26.12.2012
Сообщений: 73
02.12.2013, 12:30 0

Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы - Turbo Pascal - Ответ 5421315

02.12.2013, 12:30. Показов 2825. Ответов 5
Метки (Все метки)

Ответ

Цитата Сообщение от Торович Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

procedure TForm1.Button2Click(Sender: TObject);
begin
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i+j,i];
    if j=1 then max_sum := sum
    else if sum>max_sum then max_sum := sum;
    end;
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i,j+i];
    if j=1 then max_sum1 := sum
    else if sum>max_sum1 then max_sum1 := sum;
    end;
    if max_sum1>max_sum then max_sum := max_sum1;
    label2.caption:=IntToStr(max_sum);
end;
спасибо большое)

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

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

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

Определить максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы
Данная целочисленная квадратная матрица. определить: 2) максимум среди сумм элементов...

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

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

Для матрицы найти минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали
Помогите пожалуйста с задачей, с массивам просто я вообще не дружу. Буду очень благодарен! 1....

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

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

Дана целочисленная квадратная матрица. Определить минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы(оформить в виде проц
Добрый день! Помогите с решением пожалуйста: Дана целочисленная квадратная матрица. Определить: ...

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