Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вывести сумму цифр числа Дана строка, изображающая целое число. Вывести сумму цифр этого числа. https://www.cyberforum.ru/ turbo-pascal/ thread249868.html	Счет по формуле Turbo Pascal help please
Turbo Pascal дано натрульно n. Вычислить S=1/3^2+1/5^2+1/7^2+...+1/(2n+1)^2 решить с использованием цикла с параметром и одного из двух дургих типов цикла https://www.cyberforum.ru/ turbo-pascal/ thread249854.html	Turbo Pascal дано натуральню n. Вычислить: https://www.cyberforum.ru/ turbo-pascal/ thread249849.html S=1!+2!+3!+....+n! (n>1) решить двумя из типов цикла (с параметром обязателен)
Turbo Pascal дано натуральное число n. Посчитать: p=(1-1/2)(1-1/4)(1-1/6)....(1-1/2n) решить двумя способами с использованием типа цикла с параметром и одного из двух других типов цикла	Turbo Pascal вычислить значение если дано натуральное число n https://www.cyberforum.ru/ turbo-pascal/ thread249843.html P=(1-1/2^2)(1-1/3^2).....*(1-1/n^2), где n>2 решить двумя способами с циклом с параметром и одним из двух других типов цикла
Turbo Pascal Даны два вектора в трехмерном пространстве; найти угол между ними Help please https://www.cyberforum.ru/ turbo-pascal/ thread249834.html	Turbo Pascal Найдите уравнение прямой, которой принадлежит наибольшее число данных точек. На плоскости заданы n точек своими координатами. Найдите уравнение прямой, которой принадлежит наибольшее число данных точек.
Turbo Pascal Вывод данных, поиск по году рождения и личному номеру https://www.cyberforum.ru/ turbo-pascal/ thread249825.html Помогите плиз. Очень срочно нужна такая задача! Зарание огромное спс!! Составьте программу, которая обеспечивает вывод данных, поиск по году рождения и личному номеру. Каждая компонента записи содержит личный номер ученика (тип integer); ФИО (тип string); год рождения (тип integer); адрес (тип string).	Turbo Pascal Ввод данных, вывод данных, поиск по наименованию товара https://www.cyberforum.ru/ turbo-pascal/ thread249821.html Помогите пожалуйста решть задачу. Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по наименованию товара. Каждая компонента записи содержит код товара (тип integer); наименование товара (тип string); цену (тип real). Заранее большое спасибо!
Как придать своей программе иконку? и ещё вопросы... Turbo Pascal Я написал программу, компилировал, скажите пожалуйста как придать программе значёк? Как сделать так чтобы в окне программы писался не путь а название? Как в программе сделать фон из картинки?	Turbo Pascal Вычислить сумму и число отрицательных элементов матрицы А, находящихся над главной диагональю https://www.cyberforum.ru/ turbo-pascal/ thread249797.html Вычислить сумму и число отрицательных элементов матрицы А, находящихся над главной диагональю

sano32

66 / 63 / 63

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

Сообщений: 150

28.02.2011, 14:20

Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки - Turbo Pascal - Ответ 1408400

28.02.2011, 14:20. Показов 1474. Ответов 1

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

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

Решение

Pascal

uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j,m,n,max:integer;
begin
clrscr;
writeln('vvedite razmernost massiva');
readln(n,m);
randomize;
for i:=1 to n do
    begin
         max:=0;
         for j:=1 to m do
             begin
                  a[i,j]:=random(10)-5;
                  write(a[i,j],' ');
                  if abs(a[i,j])>max then max:=abs(a[i,j]);
             end;writeln;
         b[i]:=max;
    end;writeln;
writeln('preobrazovannii massiv');
for i:=1 to n do
    begin
         for j:=1 to m do
             begin
                  write(a[i,j]/b[i]:2:3,' ');
             end;writeln;
    end;
readln;
end.

Вернуться к обсуждению:
Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.02.2011, 14:20

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

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

Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки
Дан массив размерностью n*m. Поделить все элементы каждой строки на наибольший по модулю элемент...

Поделить все элементы каждой строки матрицы на наибольший по модулю элемент этой строки
массив размерностью m на n.поделить все элементы каждой строки на наибольший по модулю элемент этой...

Дан массив размерностью n*m. Поделить все элементы каждой строки на наибольший по модулю элемент этой строки
массив двумерный

	28.02.2011, 14:20

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.02.2011, 14:20

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

Поделить все элементы каждой строки на наибольший по модулю элемент
Дан массив размерностью nxm. Поделить все элементы каждой строки на наиюольший по модулю элемент...

Найти строку, содержащую наибольший элемент матрицы и заменить все отрицательные элементы этой строки числом 0
Здравтсвуйте! помогите пжл решить задачу. Найти строку, содержащую наибольший элемент матрицы и...

В матрице заменить все элементы каждой строки на минимальный элемент в этой строке
Здравствуйте) Помогите пожалуйста с решением задачи с помощью процедур и функций: Дана матрица...

Заменить все элементы каждой строки матрицы на минимальный элемент в этой строке
Дана целочисленная прямоугольная таблица размером m×n. Заме-нить все элементы каждой строки на...

Наверх