по массивам с использованием процедур

@АНАСТАСИЯ 567 · Регистрация: 17.10.2009

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

1.Дан одномерный массив вывести все неотрицательные элементы.
2.Найти сумму всех элементов о.м.кратных а или b/
3.НЕайти количество min элементов массива.
4.Из элементов массива "M" сформулировать массив "B" такого же размера по правилу ;неотрицательные элементы массива "M" уменьшить в 3 раза, а остальные возвести в квадрат.(без процедуры)
5. Даны стороны двух треугольников .найти сумму их периметров и сумму их площадей.
В се задачи надо решить с использованием процедуры........
ПОЖАЛУЙСТА ПОМОГИТЕ ,А ТО В ПОНЕДЕЛЬНИК УРОК А Я НЕ ФИГА НЕ РЕШИЛА

@tururui · 17.10.2009, 16:59

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
46
47
48
49
50
51
52
53
54
55
const n=10;
 Type
 Mass=array[1..n] of integer;
 var m:Mass;
Procedure Fillarray(var m:Mass);
var i: integer;
Begin
  for i:=1 to n do
  begin
  m[i]:=random(11)-5;
  write(m[i]:3);
   end;
   writeln;
end;
Procedure Neotrelem(var m:Mass);
var i:integer;
Begin
writeln('Neotr elementi');
  for i:=1 to n do
  begin
  if m[i]>=0 then
  write(m[i]:3);
  end;
  readln;
End;
Procedure Kratnie(var m:Mass);
var a,b,i:integer;
Begin
writeln('Vvesti a,b');
readln(a,b);
writeln('Cisla, kratnie',a,' ',b);
 for i:=1 to 10 do
   if ((m[i] mod a)=0) or ((m[i] mod b)=0) then write(m[i]:3);
   writeln;
  end;
Procedure Kolvomin(var m:Mass);
var min,k,i:integer;
begin
k:=1;
writeln('kol-vo min elementov');
min:=m[1];
for i:= 2 to n do
if min<m[i] then
min:=m[i];
for i:=1 to n do
if min=m[i] then k:=k+1;
write(k);
end;
Begin
Fillarray(m);
Neotrelem(m);
Kratnie(m);
Kolvomin(m);
readln;
end.

Исправьте, если что. Буду благодарен

Добавлено через 48 минут
Четвертое задание:

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
const n=10;
Type Mass=array[1..n] of real;
var m,b:Mass;
i:byte;
Procedure Fillarray(var m:Mass);
Begin
  for i:=1 to n do
  begin
  m[i]:=random(11)-5;
  write('  ',m[i]:3:2);
   end;
   writeln;
end;
Procedure Deistvie(var m,b:Mass);
begin
for i:=1 to n do
  begin
  if m[i]>=0 then m[i]:=m[i]/3
  else m[i]:=sqr(m[i]);
  b[i]:=m[i];
  write('  ',b[i]:3:2);
  end;
end;
Begin
writeln('Ishodnii massiv');
Fillarray(m);
writeln('Novii massiv');
Deistvie(m,b);
readln;
end.

@S2dent · 17.10.2009, 17:01

Насколько я понял здесь должно быть 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
uses crt;
const Max=100;
var Mas:array[1..Max] of integer;
    i,n:integer;
 
procedure FindNegativeElements(n:integer);
var i:integer;
begin
  for i:=1 to n do
    if Mas[i]<0 then
      write(Mas[i],' ');
end;
 
begin
  repeat
    writeln('Введите размерность массива ');
    readln(n);
  until n in [1..Max];
  for i:=1 to n do
    begin
      writeln('Введите элемент №',i);
      readln(Mas[i]);
    end;
  clrscr;
  writeln('Неотрицательные элементы этого массива: ');
  FindNegativeElements(n);
  readln;
end.

@tururui · 17.10.2009, 17:05

Все может быть. Зато у Анастасии появился выбор.

@S2dent · 17.10.2009, 17:41

Вот вторая:

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
uses crt;
const Max=100;
var Mas:array[1..Max] of integer;
    i,n,Sum,a,b:integer;
 
procedure FindMultipleElements(n,a,b,Sum:integer);
var i:integer;
begin
  Sum:=0;
  for i:=1 to n do
    if (Mas[i] mod a=0) or (Mas[i] mod b=0) then
      Sum:=Sum+Mas[i];
    write(Sum);
end;
 
begin
  repeat
    writeln('Введите размерность массива ');
    readln(n);
  until n in [1..Max];
  for i:=1 to n do
    begin
      writeln('Введите элемент №',i);
      readln(Mas[i]);
    end;
  writeln('Введите число a ');
  readln(a);
  writeln('Введите число b ');
  readln(b);
  clrscr;
  writeln('Сумма чисел кратных ',a,' и ',b,' равна');
  FindMultipleElements(n,a,b,Sum);
  readln;
end.

Добавлено через 1 минуту

Не по теме:

Вот пусть сама и выбирает:)

Добавлено через 43 секунды

Не по теме:

Кстати Вы во второй задачи сумму забыли посчитать;)

Добавлено через 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
uses crt;
const Max=100;
var Mas:array[1..Max] of integer;
    i,n,Min,Count:integer;
 
procedure FindQuantityMinElements(n,Min,Count:integer);
var i:integer;
begin
  Count:=0;
  Min:=maxint;
  for i:=1 to n do
    if Mas[i]<Min then
      Min:=Mas[i];
  for i:=1 to n do
    if Min=Mas[i] then
      inc(Count);
  write('Минимальный элемент равен ',Min, ' Количество минимальных элементво равно ',Count);
end;
 
begin
  repeat
    writeln('Введите размерность массива ');
    readln(n);
  until n in [1..Max];
  for i:=1 to n do
    begin
      writeln('Введите элемент №',i);
      readln(Mas[i]);
    end;
  clrscr;
  FindQuantityMinElements(n,Min,Count);
  readln;
end.

Добавлено через 25 минут
Вот пятая как-то так получилась..

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a,b,c,a1,b1,c1,Per1,Per2:integer;
    PolPer1,PolPer2,Pl1,Pl2:real;
 
procedure CalculationPerimetrAndArea(Per1,Per2:integer; PolPer1,PolPer2,Pl1,Pl2:real); //забыл как площадь по английски, если что переименуй
begin
  Per1:=a+b+c; Per2:=a1+b1+c1;
  PolPer1:=Per1/2; PolPer2:=Per2/2;
  Pl1:=sqrt(PolPer1*(PolPer1-a)*(PolPer1-b)*(PolPer1-c));
  Pl2:=sqrt(PolPer2*(PolPer2-a1)*(PolPer2-b1)*(PolPer2-c1));
  writeln('Сумма периметров равна ',Per1+Per2);
  writeln('Сумма площадей равна ',Pl1+Pl2:2:2);
end;
 
begin
  writeln('Введите строны первого треугольника через пробел ');
  readln(a,b,c);
  writeln('Введите строны второго треугольника через пробел ');
  readln(a1,b1,c1);
  CalculationPerimetrAndArea(Per1,Per2,PolPer1,PolPer2,Pl1,Pl2);
  readln;
end.

@АНАСТАСИЯ 567 · 18.10.2009, 22:46 **[ТС]**

СПАСИБКИ ВСЕМ

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@АНАСТАСИЯ 567 0 / 0 / 0 Регистрация: 17.10.2009 Сообщений: 9

	по массивам с использованием процедур 17.10.2009, 15:00. Показов 893. Ответов 5 Метки нет (Все метки) 1.Дан одномерный массив вывести все неотрицательные элементы. 2.Найти сумму всех элементов о.м.кратных а или b/ 3.НЕайти количество min элементов массива. 4.Из элементов массива "M" сформулировать массив "B" такого же размера по правилу ;неотрицательные элементы массива "M" уменьшить в 3 раза, а остальные возвести в квадрат.(без процедуры) 5. Даны стороны двух треугольников .найти сумму их периметров и сумму их площадей. В се задачи надо решить с использованием процедуры........ ПОЖАЛУЙСТА ПОМОГИТЕ ,А ТО В ПОНЕДЕЛЬНИК УРОК А Я НЕ ФИГА НЕ РЕШИЛА 0

@tururui 32 / 32 / 19 Регистрация: 06.10.2009 Сообщений: 108
	17.10.2009, 17:05
	Все может быть. Зато у Анастасии появился выбор. 1

@АНАСТАСИЯ 567 0 / 0 / 0 Регистрация: 17.10.2009 Сообщений: 9
	18.10.2009, 22:46 [ТС]
	СПАСИБКИ ВСЕМ 0