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

В одномерном массиве,состоящем из... - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Удаление элементов массива http://www.cyberforum.ru/cpp-beginners/thread126391.html
Добрго времени суток! Задача : Дан целочисленный массив Х размера Н. Удалить из массива все элементы,встречающиеся более двух раз. Вот собственно что у меня получилось. Трабла с самим удалением. помогите пожалуйста!! #include <stdio.h> #include <conio.h> #define p 10 void main() { clrscr();
C++ Ф-ция * Написать ф-цию get_int(filename,k) целого типа, возвращающую k-й элемент файла целых чисел с именем filename(эл-ты нумеруются от 0). Если файл несуществует или несодержит k-го элемента, то ф-ция возвращает 0. С помощью этой ф-ции вывести пять элементов данного файла с указанными номерами. http://www.cyberforum.ru/cpp-beginners/thread126369.html
Написать прогу с элементарной функцией y=x*x C++
Написать прогу с элементарной функцией y=x*x.
Дано предложение. Сколько слов является перевертышами C++
Дано предложение. Сколько слов является перевертышами и будет ли это число четным.
C++ Посчитать количество слов в предложении http://www.cyberforum.ru/cpp-beginners/thread126364.html
Дано предложение заканчивающееся '.' '!' '?'. Разделитель слов - пробел. Посчитать кол-во слов и определить есть ли слова перевертыши.
C++ Предложение Дано предложение, определить кол-во слов в нем и к-во слов "кот". подробнее

Показать сообщение отдельно
winelove
1 / 1 / 0
Регистрация: 10.05.2010
Сообщений: 71
10.05.2010, 23:18     В одномерном массиве,состоящем из...
мне только 4 пункт задачи не нужен
пишет ошибку не хватает точки с запятой, фигурной скобки
еще
call to undefined function 'rand'
declaration syntax error

Добавлено через 2 минуты
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
uses crt;
const NMax=100;
Type MyArr=array[1..NMax] of integer;
 
procedure InputMassive(var ar:myarr; var n:byte);
var i:byte;
   { ch:char; }
begin
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..NMax];
for i:=1 to n do
 ar[i]:=random(20)-10;  {
i:=0;
repeat
i:=i+1;
Writeln('Vvedite a[',i,'] element');
Readln(ar[i]);
Writeln('Prodolzhat? enter\n');
ch:=ReadKey;
until ch in ['n','N'];  }
end;
 
procedure OutputMassive(var ar:myarr; n:byte);
var i:byte;
begin
 for i:=1 to n do
  Write(ar[i],'  ');
Writeln;
end;
 
procedure MinCMassive(var a:myarr; n:byte);
var c,k,i:integer;
begin
Writeln('Vvedite C ');
Readln(c);
k:=0;
 for i:=1 to n do
  if a[i]<c then
   k:=k+1;
Writeln('K= ',k);
end;
 
procedure ProizMaxMassive(var a:myarr; n:byte);
var p:longint;
    max,imax:integer;
    i:byte;
begin
p:=1;
max:=1;
 for i:=1 to n do
  if abs(a[i])>max then
   begin
    max:=abs(a[i]);
    imax:=i;
   end;
 for i:=imax+1 to n do
  p:=p*a[i];
Writeln('P= ',p);
end;
 
procedure SortMassive(var a:myarr; n:byte);
var x,k:integer;
    i,j:byte;
begin
Writeln;
for i:=1 to n do
 for j:=i to n do
  if a[i]>=0 then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
for i:=1 to n do
 Write(a[i],'  ');
end;
 
var a:myarr;
    i,x:byte;
begin
ClrScr;
InputMassive(a,x);
OutputMassive(a,x);
MinCMassive(a,x);
ProizMaxMassive(a,x);
SortMassive(a,x);
ReadKey;
end.
вот эта задача в Паскале, а мне надо в с++
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru