Pascal (Паскаль)

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

Войти

Другие темы раздела
неверное выражение в if Pascal program gradusov; const n=3; var s,i,j,m,r:integer; a:array of integer; begin r:=0; for i:= 1 to n do for j:=1to n do begin readln(a); if r = m do Кто Вас так учил писать? Наверное не do нужно, а then? Кроме того, что это за сишный изврат writeln(); напишите writeln;	Pascal Поиск из файла (линейный) https://www.cyberforum.ru/ pascal/ thread56298.html Организовать поиск из файла (файл заполняется массивом целых чисел) введённого с клавиатуры числа методом линейного поиска Что за файл, какого типа? Текстовый, типизированный? Что искать-то, деньги?
Pascal Теплоход От Речного вокзала навстречу отошли одновременно теплоход и турист.Скорость Теплохода V1 туриста V2.Если через N часов турист вздумает сесть на теплоход и плысть со скоростью v3 успеет ли он туда... От Речного вокзала навстречу отошли одновременно теплоход и турист Навстречу счастью что ли они пошли из одного пункта?	Pascal Ряды, циклические процессы Доброго времени суток. Прошу помочь в написании программ, условия во вложенном файле. Заранее спасибо P.S. Задачи для студенток первого курса эконом фака Windless, А Вам не кажется, что это уже слишком? https://www.cyberforum.ru/ pascal/ thread56322.html
Теорема о промежуточном строении Pascal Столкнулся с проблемой! Не могу придумать программу на Теорему о промежуточном значении непрерывной функции. Теорема записана в тетради, и надо сделать её в паскале. Сама теорема: Пусть f...	Pascal Построить график функции. https://www.cyberforum.ru/ pascal/ thread56300.html Вычислить значения и построить график функций Z=А –B(1-е-x) и Y=Ссоs(х-рі/6) при изменении Х от 0 до 10 с шагом 0,04. Значение коэффициентов А В С задать в виде констант. Значение аргумента и...
Матрица Pascal Решил не создавать новую тему. Тема потому что одна и та же. Программа. Дана вещественная матрица размером NxN (n на n) (а может и н на м как в предыдущей задачи, лучше навепер н на м, легче будет... Wefast, Во-первых задавать свой вопрос в чужой теме это нарушение правил, которые Вы конечно же не читали,в следующий раз за такое накажу. 2. Что Вы тут путаете по размерам матрицы? Какие н на м? Вы...	Pascal while Помогите пожалуйста написать программу, которая вычисляет сумму, произведение и средне арифметическое последовательности чисел вводимых пользователем с клавиатуры заканчивающихся нулем. Выполнить с... Условие насчет while конечно неудачное, такие задачи проще решать через repeat, поскольку оговорено не предварительное условие, а условие выхода из цикла. Придется делать лишние манипуляции. uses...
Циклы Pascal Решение задач с использованием циклов 1.Найти все двузначные числа, в записи которых есть цифра п или само число делится на п. 2.Найти сумму целых положительных чисел, больших 20, меньших 100,... а) uses crt; const n=10; var i,j:byte; begin clrscr; for i:=1 to n do begin if odd(i) then for j:=1 to i div 2+1 do	Pascal Использование рекурсии https://www.cyberforum.ru/ pascal/ thread56297.html Нужно найти частное и остаток от деления одного числа на другое. Числа вводятся пользователем с клавиатуры. uses crt; function MyDiv(a,b:integer):integer; begin if b=a then MyDiv:=1 else if b>a then MyDiv:=0 else MyDiv:=MyDiv(a-b,b)+MyDiv(a,a); end; function MyMod(a,b:integer):integer; begin if...
Pascal Вычислить сумму ряда и определить количество его элементов. Помогите вычислить сумму ряда. Здравствуйте. С Pascal я познакомился совсем недавно, сразу возник вопрос по одной из задач, кто знает, подскажите, пожалуйста. -Используя рекуррентную формулу,... https://www.cyberforum.ru/ pascal/ thread56288.html	Координаты прямой и окружности Pascal Здравствуйте!Помогите решить задачу.Всю голову уже сломал. Найти координаты пересечения прямой y=kx+b и окружности с радиусом R с центром в начале координат.Определить,сколько точек пересечения... Уравнение окружности с центром в начале координат x^2+y^2=R^2; Уравнение прямой y=kx+b; Решаете систему, если 2 пары корней - 2 точки пересечения, корни системы - координаты точек пересечения. 1...

unick12345

1859 / 1181 / 190

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

Сообщений: 4,567

14.10.2009, 12:12

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

14.10.2009, 12:12. Показов 1323. Ответов 7

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

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

Решение

проверял на TP, скопировано из *.pas

Добавлено через 5 минут
могу и так

Pascal

program test;
uses crt;
const n=3; m=5;
var a:array[1..n,1..m] of real;i,j:integer;k:real;
begin
clrscr;
k:=0;
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to n do
begin
k:=a[i,1];
for j:=1 to m do
begin
write(a[i,j]:4:2, ' ');
if k<abs(a[i,j]) then
k:=abs(a[i,j]);
end;
writeln;
writeln('k=', k:4:2,' ');
for j:=1 to m do
begin
a[i,j]:=a[i,j]/k;
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4:2, ' ');
writeln;
end;
readln
end.

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

14.10.2009, 12:12

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

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

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

14.10.2009, 12:12

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

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

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

Поделить элементы матрицы на ее наибольший по модулю элемент
Пусть дана вещественная матрица размером mxn в которой не все элементы равны 0. Получите новую матрицу путём деления всех элементов данной...

Найти в вещественном списке максимальный по модулю элемент и поделить на него все элементы
3. Найти в вещественном списке максимальный по модулю элемент и поделить на него все элементы.

Массив: В одномерном массиве найти самый маленький по модулю элемент и все элементы массива поделить на него
В одномерном массиве найти самый маленький по модулю элемент и все элементы массива поделить на него

Новые блоги и статьи Все статьи Все блоги /
Что нового в Laravel 12 Wired 18.02.2025 С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .	Роутер в Laravel: как работать с маршрутами Wired 18.02.2025 Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .	Интеграция шаблона Bootstrap в Laravel PHP Wired 18.02.2025 Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .	Использование контроллеров и middleware в Laravel PHP Wired 18.02.2025 Современная веб-разработка требует четкой организации кода и эффективного управления потоком HTTP-запросов. Laravel, как один из ведущих PHP-фреймворков, предоставляет два мощных инструмента для. . .	Фильтрация массива по неточному соответствию элементам другого массива в JavaScript Wired 18.02.2025 При работе с массивами данных в JavaScript иногда возникает задача поиска и фильтрации элементов по неточному соответствию. В отличие от точного сравнения, когда мы ищем полное совпадение значений,. . .
Создаем SPA Router на чистом JavaScript bytestream 17.02.2025 В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .	Машинное обучение на TypeScript и TensorFlow bytestream 17.02.2025 Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .	Манипуляция данными EXIF и JPEG в JavaScript bytestream 17.02.2025 В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .	Как создать GUID/UUID в JavaScript bytestream 17.02.2025 GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .	Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели). Hrethgir 17.02.2025 Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .

Наверх