Функция/процедура

29.12.2013, 23:48. Показов 1490. Ответов 0

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

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

Для заданного массива P из n элементов составить процедуру заменяющую нулями те его элементы, для который f(P_i) меньше заданной величины, и считающую число таких замен.
В каждой строке матрицы A заменить нулями все элементы, модуль которых меньше W. Определить среднее арифметическое измененной матрицы.

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
type arr=array[1..10]of real;
     arn=array[1..10,1..10]of real;
     fun=function (p:real):real;
function f1(p:real):real;
begin
f1:=abs(p);
end;
procedure pch(n:integer;r:real;var p:arr;var k:integer);
var i,j:integer;
begin
  k:=0;
  for j:=1 to n do
    if f1(p[j])<=r then begin
      k:=k+1;
      p[j]:=0;
    end;
  writeln;
  for i:=1 to n do begin
    for j:=1 to n do begin
      write(p[j]:6:1);
    end;
    writeln;
  end;
end;
var i,j,k,n:integer;
    w:real;
    a:arn; p:arr;
begin
  write('Размер квадратной матрицы: ');readln(n);
  write('Контрольная величина: ');readln(w);
  writeln('Заполните матрицу ',n*n,' размера');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random*8-3;
      p[j]:=(a[i,j]);
      write(a[i,j]:6:1);
    end;
    writeln;
  end;
  pch(n,w,p,k);
end.

проблема с выводом измененной матрицы(вывод исключительно измененную последнюю строку исходной матрицы)

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

29.12.2013, 23:48

Ответы с готовыми решениями:

Процедура и Функция
Всем привет, друзья! Имеется решенная задача. Вот условие: Даны натуральные числа а1, ..., a10. Предположим, что имеются 10 видов...

Ожидалась функция, встречена процедура
Возник такой вопрос: пишу программку в строке вычисления(строка 9) возникла ошибка "Ожидалась функция, встречена процедура fun". ...

Процедура, функция. Проверить, кратно ли P одиннадцати
Дано натуральное P. Проверить, кратно ли P одиннадцати, используя признак делимости на 11 (знакопеременная сумма его цифр делится на...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

29.12.2013, 23:48

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

Функция или процедура. Вычислить значение выражения
С помощью функции или процедуры. пс. заранее спасибо!

Найти ошибку в программе(ожидалась функция, встречена процедура)
Нужно найти ошибку, на этой строке if f(B)>v then Pp:=Pp*B; в процедуре выдает ошибку "Ожидалась функция, встречена процедура" ...

Ошибка (71 строка). Ожидалась функция, встречена процедура Invoke
Данная программа вычисляет четыре интеграла методом Гаусса. (ошибка в строке 71...

Процедура и функция. Даны четыре матрицы. Найти произведение минимальных элементов над побочной диагональю
Помогите,пожалуйста решить задачу. Даны четыре матрицы A(5,5), B(5,5), C(5,5), D(5,5). найти умножение минимальных элементов над побочной...

Процедура и функция. Даны четыре матрицы. Найти сумму элементов над побочной диагональю,не четных элементов
Процедура и функция.Даны четыре матрицы A(5,5), B(5,5), C(5,5), D(5,5). Найти сумму элементов над побочной диагональю,не четных элементов.И...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

Наверх