Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вывод информации в графическом режиме https://www.cyberforum.ru/ turbo-pascal/ thread304655.html круговой диаграммы относительной доли значений Yn в сумме шести значений параметра Xn. program lab_2_8; uses graph; type vx=array of real; var x,y:vx; st:string; i,j,n,l,k,gd,gm,xc,yc,rd:integer; s:real;	Turbo Pascal Создать файл с записями 1. Создать файл с записями, упорядоченными по номеру телефона, со следующей структурой: _________________________________________________________________ Код города Номер тел Дата разговора Кол-во минут Сумма к оплате _________________________________________________________________ 2. Заменить поля некоторых записей на новые значения. 3. Удалить записи с заданными номерами...
Turbo Pascal Заполнить матрицу по правилу https://www.cyberforum.ru/ turbo-pascal/ thread304647.html Вот дана матрица типа: Program Lab_6; uses crt; Var f:text; A:array of integer; i,j,l:byte; Begin clrscr; assign(f,'D:\fatal.txt'); rewrite(f);	Turbo Pascal Целочисленные массивы , условия с диагоналями. https://www.cyberforum.ru/ turbo-pascal/ thread304645.html 295. Дан целочисленный массив В. Напечатать его левую и правую диагонали. 299. Дан целочисленный массив В. Вычислить сумму элементов этого массива, расположенных выше левой диагонали.
Turbo Pascal Дана последовательность действительных чисел Дана последовательность действительных чисел {a}_{1}, {a}_{2}, ... {a}_{n} . Заменить все её члены, большие данного Z, этим числом. Подсчитать количество замен. Помогите, пожалуйста)	Turbo Pascal Объявление констант... https://www.cyberforum.ru/ turbo-pascal/ thread304637.html Когда мы объявляем константы и задаём им значения типа $0E04 , $0301 , $0320, что это означает ? Что это за значения?
Turbo Pascal Подпрограмма Помогите составить подпрограмму с таким условием:"найти минимальную сумму диагональных элементов матриц A(m x n) ,B(k x l) ,C(p x r).Рассматривать элементы главной диагонали" https://www.cyberforum.ru/ turbo-pascal/ thread304600.html	Turbo Pascal Поменять местами верхнюю и нижнюю части матрицы Кто знает помогите пожалуйста очень нужно, ни как не могу поменять верхнюю часть матрицы на нижнюю и наоборот. условие программы такова: Дана матрица размера M x N (M-четное число). Поменять местами верхнюю и нижнюю половины матрицы. вот код программы: Прошу исправьте что тут не так, она мне выводит зеркальное отображение матрицы. program matrix_59; uses crt; var
Turbo Pascal Переделать данное меню на меню, с использованием списков. Переделать данное меню на меню, с использованием списков. Uses Graph, Crt; Procedure InitGraphix;{ Инициализация графики выделена в отдельную процедуру } Var grDriver, grMode, ErrCode: Integer; Begin grDriver := Detect; InitGraph(grDriver, grMode, ''); ErrCode := GraphResult; If ErrCode <> grOk Then Begin https://www.cyberforum.ru/ turbo-pascal/ thread304586.html	Turbo Pascal Поменять местами первую строку на второй столбец в двухмерном массиве https://www.cyberforum.ru/ turbo-pascal/ thread304583.html :gsad:поменять местами первую строку на второй столбец в двухмерном массиве, Я буду вам благодарна если вы поможете мне!!!!! :confusion:
Вывести на экран все целые числа в диапазоне от 1 до 1000 Turbo Pascal Вывести на экран все целые числа в диапазоне от 1 до 1000, которые представимы в виде n3+m2 , но не представимы в виде 3l + 3k (n,m,l,k – натуральные числа). помогите решить, срочно надо	Turbo Pascal Error 84: UNIT expected https://www.cyberforum.ru/ turbo-pascal/ thread304563.html Error 84: UNIT expected. Что за ошибка? Указывается на строку: program ax; Хочу запустить программу не даёт из за этой ошибки помогите пожалуйста.:wall: Заранее спасибо:)

YoungProgrammer

4 / 4 / 3

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

Сообщений: 206

25.05.2011, 21:21

Дана матрица M с 10 строками и 6 столбцами - Turbo Pascal - Ответ 1689957

25.05.2011, 21:21. Показов 1327. Ответов 1

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

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

Решение

Pascal

var a:array[1..6,1..10] of integer;
s:integer;
begin
begin
min:=a[1,1];
for i:=1 to 6 do
for j:=1 to 10 do
if min>a[i,j] then
min:=a[i,j]
end;
begin 
for i:=1 to 6 do
for j:=1 to 10 do
if a[i,j]=min then s:=s+min;
end;
write(s);
end.

на подобие этого

Добавлено через 51 минуту
Там где 6 посавь 10,
а там где 10 поставь 6, я чего-то перпутал.

Вернуться к обсуждению:
Дана матрица M с 10 строками и 6 столбцами Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.05.2011, 21:21

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

Дана матрица с 4 столбцами и 7 строками
Дана матрица с 4 столбцами и 7 строками.В каждой строке содержатся оценки одного из 7 студентов по...

Дана матрица А с 2 строками и 10 столбцами. Первый элемент каждого столбца рассматривается как диаметр внутрен
Дана матрица А с 2 строками и 10 столбцами. Первый элемент каждого столбца рассматривается как...

Дана матрица Р с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и ордината одной
Дана матрица Р с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и...

	25.05.2011, 21:21

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.05.2011, 21:21

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

Дана матрица А с 3 столбцами и 7 строками. Содержание каждой ее строки трактуется как длины сторон одного из 7 треугольников.
Дана матрица А с 3 столбцами и 7 строками. Содержание каждой ее строки трактуется как длины сторон...

Дана матрица A c 2 столбцами и 10 строками
Первый элемент каждой строки представляет абсциссу, а второй-ординату одной из 10 заданных точек....

Дана матрица с n строками и m столбцами. 1-й элемент каждого столбца представляет массу,
Дана матрица с n строками и m столбцами. 1-й элемент каждого столбца представляет массу, а 2-й и...

Дана матрица P с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и ордината одной
Дана матрица P с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и...

Наверх