Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Silva
0 / 0 / 0
Регистрация: 30.09.2009
Сообщений: 27
#1

Массивы (из паскаля в с++) - C++

26.10.2009, 19:18. Просмотров 424. Ответов 0
Метки нет (Все метки)

Здравствуйте!Помогите пожалуйста решеные задачи на паскале оформить в С++!

Постановка задачи 2:
В одномерном массиве В состоящем из N целых элементов, вычислить:
a) количество элементов, равных по значению первому элементу;
b) произведение элементов из промежутка [-8;3].[/I]

Вот программа к задачи1:

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
Program zadach2;
uses crt;
Const n=10;
Var B:array[1..n] of integer;
     i,k,p:integer;
Begin
clrscr;
    writeln('Vvedite ',n,' elementov massiva:');
    for i:=1 to n do
    readln(b[i]);
clrscr;
    Writeln('Ishodnyj massiv:');
    for i:=1 to n do
    write(b[i],' ');
    writeln;
    k:=0;
        for i:=2 to n do
        if b[i]=b[1] then k:=k+1;
        writeln('Kol. ravn. perv.=',k);
        P:=1;
            For i:=1 to n do
            If (b[i]>=-8)and(b[i]<=3) then P:=P*B[i];
            Writeln('Proizvedenie v int.[-8,3]=',p);
            Readln;
End.
Постаноска задачи 2:
Дана прямоугольная матрица размером N×M. Составить программу, которая преобразует матрицу следующим образом: поэлементно вычитает последнюю строку из всех строк, кроме последней.
Программа:
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
program k; 
uses crt; 
const n=10; 
var m:array[1..n,1..n]of integer; 
    i,j:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do 
  begin
   for j:=1 to n do
     begin
      m[i,j]:=random(20);
      write(m[i,j]:4);
     end;
    writeln;
  end;
for i:=1 to n-1 do 
for j:=1 to n do
m[i,j]:=m[i,j]-m[n,j];
writeln('Rezultat:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(m[i,j]:4);
  writeln;
 end;
readln
end.
Постановка задачи 3:
Дан одномерный массив А, состоящий из N целых чисел. Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a,b]. Освободившиеся в конце массива элементы заполнить нулями.

Программа:
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
program zadachа4;
uses crt;
type vector = array[1..1000] of integer;
var
 a,b,c:vector;
 i,l,m,n:integer;
 procedure ShowVector(const a:vector;n:integer);
var
 i:integer;
begin
        for i := 1 to n do
        write(a[i]:6);
writeln;
end;
procedure ReadVector(var a:vector;n:integer);
var
 i:integer;
begin
        writeln('Vvedite elementi massiva');
        for i := 1 to n do
        begin
                write('a[',i,']=');readln(a[i]);
        end;
writeln;
end;
procedure InitVector(var a:vector;n:integer);
var
 i:integer;
begin
        randomize;
        for i := 1 to n do
        begin
                a[i] := random(100) - 50;
        end;
writeln;
end;
procedure CompressVector(var ar:vector;n,a,b:integer);
var
 i,j:integer;
 temp : vector;
begin
    i:=1;
    j:=0;
        for i := 1 to n do
    begin
                if (abs(ar[i])<=a)or (abs(ar[i])>=b) then
                 begin
         j := j+1;
                        temp[j] := ar[i];
                 end;
          end;
     writeln(j);
 for i:=1 to n do
         ar[i] := temp[i];
end;
begin
clrscr;
writeln('Vvedite razmer massiva');
write('n=');readln(n);
InitVector(a,n);
ShowVector(a,n);
writeln('Vvedite interval dlia zgatia massiva');
write('a=');readln(l);
write('b=');readln(m);
CompressVector(a,n,l,m);
writeln('Sgatii massiv');
ShowVector(a,n);
readln;
end.


За ранее огромное спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2009, 19:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Массивы (из паскаля в с++) (C++):

Массивы. Циклические алгоритмы (Заполнить массивы случайными числами, лежащими в интервале 0 до 100) - C++
Доброго дня, уважаемые форумчане, помогите пожалуйста решить задание. Заполнить массивы случайными числами, лежащими в интервале 0 до...

Указатели и массивы. Индексация с помощью указателей. Передача массивов в функции. Динамические массивы (обработка матриц) - C++
Для каждого элемента , bij, i= 1,...,n , j=1,...,n определяется свой многоугольник местонахождением соответствующего элемента aij (см....

Попадание точки. Массивы чисел. Массивы записей. - C++
Всем привет. По языкам задали три контрольные на си. Я сам си не знаю, даже не представляю, поэтому очень нужна ваша помощь. ...

Многомерные массивы, как перебирать внутренние массивы - C++
Здравствуйте. Такой учебный код и плохо понимаю как перебираются внутренние массивы, может кто пояснит подоходчивее. Именно внутренний...

Массивы структур и массивы строк - C++
Здравствуйте. Возникла проблема с одной работой: Постановка задачи: 1. Сформировать динамический массив из элементов структурного типа....

Массивы структур и массивы строк - C++
1. Сформировать динамический массив из элементов структурного типа. Структурный тип определен в варианте. 2. Распечатать...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2009, 19:18
Привет! Вот еще темы с ответами:

массивы указателей,указатели на массивы - C++
Понимаю что тема эта изжевана, но я ещё жую.Хочу, чтобы усвоилось. допустим есть QStringList a; a.append(&quot;мамa&quot;); ...

массивы указателей,указатели на массивы - C++
Понимаю что тема эта изжевана, но я ещё жую.Хочу, чтобы усвоилось. допустим есть QStringList a; a.append(&quot;мамa&quot;); ...

Массивы структур, массивы векторов - C++
Разработайте тип данных «Вектор в трехмерном пространстве» в виде структуры, поля которой — координаты вектора. Напишите следующие функции:...

индексные массивы и адресные массивы - C++
погитите решить задачу c массивами двумя способами {индексные и адресные} { Вычислить суммы элементов каждой строки матрицы Х(20х20),...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru