MilkyWay3355
18.02.2023 15:50

Создать файл f вещественных чисел. все компоненты файла, начиная с последней и по максимальную включительно, увеличить на заданное число х и просуммировать. суммой заменить третью компоненту файла. на языке паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Delishte
22.04.2022 03:01
Будем считать, что числа n, m заранее известны.
Делать в Паскале динамические массивы - это очень большой геморрой.
1. PROGRAM Even
var i, j, P: integer;
var array A[1..n, 1..m] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i:=1 to n do // цикл по строкам
begin
  P:=1; // произведение четных чисел
  for j:=1 to m do // цикл по столбцам
  begin 
    if (A[i, j] mod 2 = 0) then P:= P*A[i, j]; // умножаем очередное четное число
  end; 
  A[i, m] := P; // вместо последнего числа записываем произведение четных
end; 
for i:=1 to n do
  for j:=1 to m do writeln (A[i, j]); // цикл вывода конечного массива 
END.

2.  PROGRAM MinMax
var i, j, Q, min, nmin, max, nmax: integer;
var array A[1..n, 1..m] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i:=1 to n do // цикл по строкам
begin
  min:=A[i, 1]; nmin:=1; max:=A[i, 1]; nmax:=1; // начальные значения
  for j:=1 to m do // цикл по столбцам
  begin  
    if (A[i, j] > max) then max:= A[i, j]; nmax = j;// устанавливаем максимум
    if (A[i, j] < min) then min:= A[i, j]; nmin = j;// устанавливаем максимум 
  end;
  Q:=A[i, nmin]; A[i, nmin]:=A[i, nmax]; A[i, nmax]:=Q; // меняем их местами
end;
for i:=1 to n do
  for j:=1 to m do writeln (A[i, j]); // цикл вывода конечного массива 
END.

3. PROGRAM Povorot 
var i, j, k, Q: integer;
var array A[1..n, 1..m], B[1..m, 1..n] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i=1 to m do // цикл по m строкам нового массива (их m, как столбцов в А)
begin
   for j:=1 to n do // цикл по n столбцам нового массива (как строк в А)
     B[i, j]:=A[j, n-i+1]; // формируем новый массив
end;
for i:=1 to m do
  for j:=1 to n do writeln (B[i, j]); // цикл вывода конечного массива 
END.
0,0(0 оценок)
Ответ:
карина5647
23.03.2020 14:49

Оперативная память (RAM, Random Access Memory, память произвольного доступа) - это энергозависимая среда, в которую загружаются и в которой находятся прикладные программы и данные в момент, пока вы с ними работаете. Когда вы заканчиваете работу, информация удаляется из оперативной памяти. Если необходимо обновление соответствующих дисковых данных, они перезаписываются. Это может происходить автоматически, но часто требует команды от пользователя. При выключении компьютера вся информация из оперативной памяти теряется.

В связи с этим трудно недооценить все значение оперативной памяти. Однако до недавнего времени эта область компьютерной индустрии практически не развивалась (по сравнению с другими направлениями). Взять хотя бы видео, аудиоподсистемы, производительность процессоров и. т. д. Усовершенствования были, но они не соответствовали темпам развития других компонентов и касались лишь таких параметров, как время выборки, был добавлен кэш непосредственно на модуль памяти, конвейерное исполнение запроса, изменен управляющий сигнал вывода данных, но технология производства оставалась прежней, исчерпавшей свой ресурс. Память становилась узким местом компьютера, а, как известно, быстродействие всей системы определяется быстродействием самого медленного ее элемента. И вот несколько лет назад волна технологического бума докатилась и до оперативной памяти. Быстрое усовершенствование оперативной памяти позволило кроме ее усовершенствования, значительно снизить цену на нее.

Но даже после падения цен, память системы, как правило, стоит вдвое дороже, чем системная плата. До обвального падения цен на память в середине 1996г. в течении многих лет цена одного мегабайта памяти держалась приблизительно на уровне 40 долларов. К концу 1996г. цена одного мегабайта памяти снизилась примерно до 4 долларов. Цены продолжали падать, и после главного обвального падения стоимость одного мегабайта не превышает доллара, или приблизительно 125 доларов за 128 Мбайт.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота