Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 44

Дописать в программе,сколько выделилось памяти.На паре сижу,препод не принимает

16.05.2013, 07:27. Показов 757. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вот прога:


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..20,1..20] of integer;
  n,m,i,j,im,jm: byte;
begin
  write('Введите размеры матрицы n, m: ');
  readln(n,m);
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
 
  im:=1; jm:=1;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<a[im,jm] then
      begin
        im:=i;
        jm:=j;
      end;
  writeln('Минимум = a[',im,',',jm,'] = ',a[im,jm]);
 
  for i:=im to n-1 do
    for j:=1 to m do
      a[i,j]:=a[i+1,j];
  n:=n-1;
  for j:=jm to m-1 do
    for i:=1 to n do
      a[i,j]:=a[i,j+1];
  m:=m-1;
 
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.05.2013, 07:27
Ответы с готовыми решениями:

Не могу дописать программу, сижу с самого утра
Відомі дані про місткості (в мегабайтах ) і вартості (в гривні) кожного з 22 типів жорстких магнітних дисків (вінчестерів) надрукувати...

сижу на паре пишу окр
Вот условие: Выведите матрицу 5х5 случайных чисел. затем вывести сумму всех элементов.

Не могу дописать программу, сижу с самого утра
Реализовать игру &quot;Отгадай слово&quot; , которая происходит следующим образом. Машина загадывает слово (случайным образом выбирает его из...

4
 Аватар для Midian
606 / 388 / 198
Регистрация: 31.03.2013
Сообщений: 2,689
16.05.2013, 10:05
Цитата Сообщение от Levonchik Посмотреть сообщение
a: array[1..20,1..20] of integer;
* n,m,i,j,im,jm: byte;
Сложи выделенную память для каждой переменной
1
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 44
16.05.2013, 10:39  [ТС]
Да я в этой теме вообще плаваю,поможешь?
0
 Аватар для Midian
606 / 388 / 198
Регистрация: 31.03.2013
Сообщений: 2,689
16.05.2013, 10:54
Программно никак нельзя посчитать сколько выделилось памяти, могу только посоветовать как вариант самому посчитать исходя из таблицы:
Миниатюры
Дописать в программе,сколько выделилось памяти.На паре сижу,препод не принимает  
1
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 44
16.05.2013, 11:29  [ТС]
Препод сказал чтобы именно программно посчитано было,мне сказали что такое реальног

Добавлено через 4 минуты
но всё равно спасибо тебе

Добавлено через 5 минут
Ребят,может всё таки кто-нибудь знает,как сделать?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.05.2013, 11:29
Помогаю со студенческими работами здесь

мне нужно создать ползунок памяти, то есть что бы показывало сколько памяти свободно и сколько занято!
Ребят помогите пожалуйста!!! мне нужно создать ползунок памяти, то есть что бы показывало сколько памяти свободно и сколько занято! всего...

Материнка не принимает модули памяти
Приветствую! В чем может быть причина странного поведения материнки при определении модулей ОЗУ? Есть пожилой комп с материнкой...

Функция, которая принимает буфер памяти
Напишите функцию, которая принимает буфер памяти и возвращает число long. Известно, что передается некая структура и число, которое...

Дописать код в программе
Программа рисует линии 2-поряка. Нужно в коде Drawing.pas поменять процедуру рисования на MoveTo и LineTo. Пожалуйста кто сможет. Вот сама...

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


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru