Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Составить программу вывода на экран строки, составленной из первых букв всех слов Всем добрый вечер. Ситуация как в прошлый раз: сильно заболел на месяц - вышел на учёбу и дали практическую, которую я не знаю как решать. Задание: Дана строка слов, разделённых между собой пробелами. Составить программу вывода на экран строки , составленной из первых букв всех слов. Товарищи, помогите решить как можно быстрее, сегодня получил - завтра нужно сдать. Буду очень благодарен! ... https://www.cyberforum.ru/ turbo-pascal/ thread1122276.html Для каждого столбца матрицы М[N,М] вывести сообщение, если его элементы равняются 0 Turbo Pascal
Для каждого столбца матрицы М вывести сообщение, если его элементы равняются 0.
Turbo Pascal Определить количество нулевых элементов боковой диагонали матрицы A[10;10] https://www.cyberforum.ru/ turbo-pascal/ thread1122231.html
Определить количество нулевых элементов боковой диагонали матрицы A 		Turbo Pascal Сколько тараканов погибло в чёрный для них день, если всего Агафья Петровна нанесла N ударов тапком? https://www.cyberforum.ru/ turbo-pascal/ thread1122207.html
Как-то вечером, зайдя на кухню, Агафья Петровна обнаружила на столе большое скопление тараканов. Сорвав с ноги тапок, Агафья Петровна принялась их методично уничтожать. Первый удар был неточным, им Анафья Петровна убила всего одного таракана. Второй удар был получше - умерло двое. Каждый раз удары становились всё смертельнее и смертельнее (Агафья Петровна быстро набирала форму). При k-том её...
Turbo Pascal Сортировка включением
Задан массив A(N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве вычислите среднее геометрическое и среднее арифметическое значения для положительных элементов 		Turbo Pascal Оформить программу с подключением модуля https://www.cyberforum.ru/ turbo-pascal/ thread1122183.html
Помогите оформить эту программу с подключением модуля uses crt; const nmax=100; var a:array of integer; n,i,j,imx,imn:byte; mx,mx2:integer; begin clrscr; randomize;
Turbo Pascal Сортировка в одномерном массиве https://www.cyberforum.ru/ turbo-pascal/ thread1122151.html
Привет всем.Помогите кто может пожалуйста) Мне дали задание 1.Сформировать двумерный целочисленный массив F(4*8) используя генератор случайных чисел на интервале(-7:5).Элементы массива вывести на экран в виде матрицы. 2.Преобразовать массив F в одномерный массив Х. Полученный массив вывести на экран. 3.Среди четных элементов третьей четверти массива Х определить 2 наибольших. 4. Упорядочить... 		Turbo Pascal Написать комментарии и объяснить задачу
Помогите написать комментарии и объяснить задачу. Умова 1. Сформировать файл, состоящий из строк длиной не более 15 символов. Вставить перед и после k-го компонента файла копию p-го компонента. uses crt; type TFile = record Line : string end; Var f : file of TFile; k,p : Integer; RecCount : integer;
Turbo Pascal Определение положения точки Учусь я в техникуме, сегодня началась практика и мне выпало задание написать программу по такому условию: "Определите, лежит ли заданная точка на одной из сторон треугольника, заданного координатами своих вершин. " и описать ее, скольких спрашивал, все говорят: "составь уравнение прямой и бла-бла-бла", я как раз и не могу понять, как реализовать в паскале решение этой задачи. Помогите,... https://www.cyberforum.ru/ turbo-pascal/ thread1122074.html Turbo Pascal Организовать процедуру, позволяющую записать в текстовый файл введенную с клавиатуры строку Написать программу: 1). Организовать процедуру, позволяющую записать в текстовый файл введенную с клавиатуры строку. 2). Заменить в данном файле каждую цифру на следующую по величине. https://www.cyberforum.ru/ turbo-pascal/ thread1122066.html
Turbo Pascal Заменить первый отрицательный элемент на максимальное значение элемента массива A (N)
Заменить первый отрицательный элемент на максимальное значение элемента массива A(N). сделал задачу, но всё равно не понимаю я бинарный поиск Uses Crt; Var a:Array of Integer; i,n,j:1..100; max:integer; Begin ClrScr; Writeln('Введите количество элементов массиве:'); Readln(n); Writeln('Теперь заполните этот массив'); 		Turbo Pascal Если массив образует возрастающую последовательность, то вывести true, иначе false https://www.cyberforum.ru/ turbo-pascal/ thread1122009.html
Помогите решить Дан массив из n элементов. Если массив образует возрастающую последовательность, то вывести true, иначе false.
66 / 63 / 63
Регистрация: 15.12.2010
Сообщений: 150
18.03.2014, 15:08 0

В Матрице А (5 строк 4 столбца) определить номер столбца с минимальным значением - Turbo Pascal - Ответ 5916576

18.03.2014, 15:08. Показов 1714. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Unknown26 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

uses crt;
var a:array[1..5,1..4] of integer;
    m:array[1..4] of real;
    i,j,s,t,st:integer;
    min:real;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
     for j:=1 to 4 do
     begin
          a[i,j]:=random(10)-5;
          write(a[i,j],' ');
     end;
     writeln;
end;
writeln;
for j:=1 to 4 do
begin
     s:=0;
     t:=0;
     for i:=1 to 5 do
     begin
          if a[i,j]<0 then
          begin
               s:=s+a[i,j];
               inc(t);
          end;
     end;
     m[j]:=s/t;
end;
min:=100;
st:=0;
for j:=1 to 4 do
    begin
         if m[j]<min then
         begin
              min:=m[j];
              st:=j;
         end;
    end;
writeln('nomer stolbca raven ',st);
readln;
end.


Вернуться к обсуждению:
В Матрице А (5 строк 4 столбца) определить номер столбца с минимальным значением Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 18.03.2014, 15:08
Готовые ответы и решения:

определить номер столбца с минимальным значением среднего арифметического
в матриц А(5 строк и 4 столбца) определить номер столбца с минимальным значением среднего...

Как определить номер строки (или столбца) с минимальным (или заданным) значением?
Доброго времени суток! Небольшое предисловие: Вообще, моя задача - придумать алгоритм решения...

В каждой строке матрицы найти элемент с минимальным значением и его номер столбца
задан 2-умерный массив размерности М*N . В каждой строке найти элемент с минимальным значением и...

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

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

Указатели: определить номер строки и номер столбца в матрице по адресу элемента
Как работая на указателях,передвигаясь по матрице определить номер строки и номер столбца по адресу...

Определить номер столбца матрицы с минимальным количеством отрицательных элементов
Помогите написать программу на С++. Задана числовая матрица А определить номер столбца матрицы с...

Матрица. Определить номер строки и столбца с минимальным положительным элементом
Всем доброго времени суток) нужна срочная помощь.. Если не сдам то будет очень плохо( помогите...

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

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