Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычисления значений составной функции https://www.cyberforum.ru/ turbo-pascal/ thread544045.html Добрый день. помогите пожалуйста расписать вот ту формулу. Не знаю как правильно поставить знак суммы:	Напишите программу, которая проверяет, является ли слово перевертышем Turbo Pascal Напишите программу, которая проверяет, является ли слово перевертышем. Примеры слов-перевертышей – казак, шалаш.
Turbo Pascal Проблема с вычислениями... https://www.cyberforum.ru/ turbo-pascal/ thread544037.html Вообщем вот текст моей программы которая вычисляет некоторую сумму. program Suming; uses crt; function step(x:real;n:integer):real; var S:real; i:integer; begin S:=1; for i:=1 to n do	Turbo Pascal Составить меню для программы https://www.cyberforum.ru/ turbo-pascal/ thread544021.html Здравствуйте, нужна помощь и советы в довольно объемной работе по Turbo Pascal. Вначале, нужно нужно составить меню, у которого будет 5 пунктов, с обратным возвращением в программу(главная страница меню), 5 пункт, естественно, является Выходом с вариантами ответа "Да, уверен", "Нет, не уверен"(Вопрос программы к пользователю, соответственно, "Уверенны ли вы, что хотите выйти из данной...
Turbo Pascal Сформировать квадратную матрицу размера NхN, расположив символы строки в главной диагонали... По заданной строке из N символов сформировать квадратную матрицу размера N´N, расположив символы строки в главной диагонали и заполнив диагонали, параллельные побочной диагонали, соответствующими символами главной диагонали. Остальные элементы матрицы заполнить нулями.	Turbo Pascal Найти произведение отрицательных элементов ниже главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread544019.html Главной диагональю матрица разделена на 2-а треугольника. Найти произведение отрицательных элнментов I треугольника матрицы.
Turbo Pascal Корневая сортировка 2. Написать программу реализующую корневую сортировку элементов выборки N чисел. https://www.cyberforum.ru/ turbo-pascal/ thread544014.html	Turbo Pascal заполнить трехмерный массив прощу помощи или совета, каким способом можно это организовать есть массивы string (сколько массивов у нас известно, к примеру 4) m:='1 2 7 * -15'; m:='4 5 6 * 10'; m:='7 8 9 * 6'; m:='17 2 5 * 2'; m:='6 9 0 * -11'; m:='8 10 11 * 9';
Turbo Pascal Табулирование функции https://www.cyberforum.ru/ turbo-pascal/ thread543921.html Задача 1. Написать алгоритм и программу вычисления значений функции F1, аргумент (x) которой задан интервалом целых значений отрезка . Шаг изменений значений аргумента принять равным 1. F1=ln(x) a1=2 b1=10	Turbo Pascal строки и символы https://www.cyberforum.ru/ turbo-pascal/ thread543907.html дана последовательность, содержащая от 2 до 30 слов; между соседними словами-не меньше одного пробела. Удалить из слов первую букву. Помогите,пожалуйста. Спасибо, за раннее
Найти сумму четных по значениям элементов каждого столбца массива Turbo Pascal Заполнить двумерный числовой массив А(5, 5) целыми числами. Найти сумму четных по значениям элементов каждого столбца массива. Определить номер столбца с наименьшей суммой четных элементов.	Turbo Pascal Строки и символы дана последовательность, содержащая от 2 до 30 слов; между соседними словами-не меньше одного пробела. Удалить из слов первую букву https://www.cyberforum.ru/ turbo-pascal/ thread543900.html

КонецСвета

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

7966 / 3937 / 2464

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

Сообщений: 5,377

21.04.2012, 23:02

Найти номер ее столбца с наименьшим произведением элементов и вывести данный номер - Turbo Pascal - Ответ 2939523

21.04.2012, 23:02. Показов 7533. Ответов 7

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

Ответ

Pascal

uses crt;
const n=5; m=6;
 
var a:array [1..n,1..m] of integer;
    i,j,jmin: byte;
    p,pmin: integer;
 
begin
randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:6);
        end;
    writeln;
    end;
jmin:=1;
writeln('Произведения элементов столбцов');
for j:=1 to m do
    begin
    p:=1;
    for i:=1 to n do
        p:=p*a[i,j];
    if i=1 then pmin:=p else
       if p<pmin then
          begin
          pmin:=p;
          jmin:=j;
          end;
    write(p:6);
    end;
writeln;
writeln('Минимальное произведение ',pmin,' столбца под индексом ',jmin);
readln;
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.04.2012, 23:02

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

Найти номер столбца матрицы с наименьшим произведением элементов
Дана матрица размера M*N. Найти номер ее столбца с наименьшим произведением элементов и вывести...

Двумерный массив. Найти номер столбца с наименьшим произведением элементов
Среди столбцов целочисленной матрицы А(n,m) найти номер столбца с наименьшим произведением...

Массив: Найти номер столбца матрицы с наименьшим произведением элементов и вывести данный номер...
Данная матрица размера M × N. Найти номер ее столбца с наименьшим произведением элементов и вывести...

Найти номер ее столбца с наименьшим произведением элементов
Помогите пожалуйста с исходным кодом, как решить на языке программирования С++... Matrix26. Дана...

	21.04.2012, 23:02

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.04.2012, 23:02

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

Найти номер столбца с наименьшим произведением положительных элементов
Даже препод не смог помочь, вот я и решил обратиться сюда. Задание таково: -сформирвовать и...

Найти номер столбца матрицы с наименьшим произведением элементов
Дана матрица размера M×N. Найти номер ее столбца с наименьшим произведением элементов и вывести...

Найти номер столбца матрицы с наименьшим произведением элементов
Дана матрица размера M x N. Найти номер ее столбца с наименьшим произведением элементов и вывести...

Дана матрица. Найти номер ее столбца с наименьшим произведением элементов
1) Дана матрица размерами M*N. Найти номер ее столбца с наименьшим произведением элементов и...

Наверх