Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 04.04.2017
Сообщений: 1

Подскажите чего не хватает в программе

05.04.2017, 14:55. Показов 635. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана матрица b[3,5], найти строку, содержащую минимальный элемент.
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
Program laba3;
const
n=5;
m=3;
var
b:array[1..n,1..m] of real;
i,j,imin,jmin:integer;
min:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
writeln('b[',i,',',j,']');
readln(b[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
writeln(b[i,j]:3:0,'  ');
writeln;
end;
i:=т;
min:=b[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if b[i,j]<min then
begin
min:=b[i,j];
imin:=i;
jmin:=j;
end;end;
writeln('min:=',min:5:2);
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.04.2017, 14:55
Ответы с готовыми решениями:

что я делаю не так и чего мне не хватает? задача в описании
нужно сделать вот такой рисунок 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 ...

подскажите чего не хватает?
program laba7; type STROKA=record name:array of char; rezult:record ...

решение уравнения, подскажите чего не хватает
var y,x: real; begin x:=34.211; Writeln (y=1 / (exp(2 * ln(10)))*x+(cos(x+1)/exp(ln(x)*(1/3))));

1
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
05.04.2017, 16:39
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
const n=3;
      m=5;
var b:array[1..n,1..m] of real;
    i,j,imin:integer;
    min:real;
begin
for i:=1 to n do
for j:=1 to m do
 begin
  write('b[',i,',',j,']=');
  readln(b[i,j]);
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:6:2);
  writeln;
 end;
min:=b[1,1];
imin:=1;
for i:=1 to n do
for j:=1 to m do
if b[i,j]<min then
 begin
  min:=b[i,j];
  imin:=i;
 end;
writeln('min=',min:0:2,' расположен в строке ',imin);
end.
Добавлено через 4 минуты
В другой теме матрица [5,3], так что с этим разбирайтесь сами.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.04.2017, 16:39
Помогаю со студенческими работами здесь

Чего не хватает в программе?
Здравствуйте уважаемые форумчане. Есть программа, которую я сделал, вот код: Код C++ #include &lt;iostream&gt; * using...

Программе чего-то не хватает
Программа работает, но при копировании, допустим, на форму 3 кнопки «btn4» или добавлении любой другой графики и заходе на эту форму в уже...

Где ошибки в программе? Чего не хватает?
Здравствуйте,задали задание в универе: &quot;Заданные два одномерных массива {ai} и {bi} (i=1,2...n). Сформировать два новых массива {ci} и...

Подскажите чего-то не хватает?
Здравствуйте форумчане, хотел с Вами посоветоваться, такая проблема, есть сайт www.help-vet.ru запросы вызов ветеринара на дом ...

Подскажите, чего не хватает демоплате.
Здравствуйте. Делаю себе очередную демоплату, не делая ставок на размеры, т.к. место на столе вроде есть и планируется замена ноутбука на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Основы OpenGL 3.3 и Qt 6.9. Трансформированный треугольник
8Observer8 27.06.2025
На русском https:/ / rutube. ru/ video/ e424497dd6b7ae7e11494027c4b31a54/ https:/ / vkvideo. ru/ video-231040171_456239019 https:/ / www. youtube. com/ watch?v=mfD-ZL7wa_4 Bastyon
Федерация аутентификации на основе JWT-токенов с Keycloak и .NET в гетерогенных инфраструктурах
ArchitectMsa 27.06.2025
Тот самый момент, когда впервые столкнулся с проблемой интеграции десятка разрозненных систем аутентификации в одной корпоративной экосистеме. Кажый сервис жил своей жизнью - тут Basic Auth, там. . .
Гайд по современным СУБД (небесспорный)
Codd 26.06.2025
Когда я только начинал свой путь в IT как рядовой программист, база данных казалась мне чем-то простым и понятным. Ну, серьезно — это же просто место, где лежат данные, верно? Напиши SELECT * FROM. . .
Использование C# с AWS S3: Примеры с AWS SDK для .NET
stackOverflow 26.06.2025
Amazon S3 (Simple Storage Service) уже давно стал стандартом де-факто в мире облачного хранения данных. Особенно приятно, что для разработчиков . NET предусмотрен отличный SDK, который значительно. . .
Веб-автоматизация с Python и Selenium
AI_Generated 25.06.2025
Selenium с Python — это комбинация, которая выдержала проверку временем. Несмотря на появление новых инструментов вроде Playwright или Puppeteer, связка Python-Selenium остаётся золотым стандартом. . .
CQRS и Event Sourcing на C#
ArchitectMsa 25.06.2025
За последние несколько лет сложность корпоративных приложений выросла в геометрической прогрессии. Простые монолитные системы уступили место распределенным микросервисам, а нагрузка на корпоративные. . .
Хак домофона или как открыть дверь по номеру
yariko 25.06.2025
Забыли дома ключ. Не проблема. Можно открыть дверь домофона, просто позвонив на свой номер квартиры. Идея состоит в следующем. Внутрь трубки абонента встраивается контроллер, который по звонку сам. . .
Как украсить новогоднюю елку с Q# и Qiskit
EggHead 24.06.2025
Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .
Системы нулевого доверия на C#
UnmanagedCoder 24.06.2025
Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .
Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку.
Hrethgir 24.06.2025
Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
OSZAR »