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

@АНАСТАСИЯ 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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

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

	по массивам с использованием процедур 17.10.2009, 15:00. Показов 904. Ответов 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