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

Портация кода Pascal - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Работа с рядками http://www.cyberforum.ru/cpp-beginners/thread28448.html
Помогите пожалуйста сделать такое задание : Нада програма которая: - копирует рядок S в S1 N раз - отделяет первое слово с рядка S - сравнивает S и S1 c игнорированием отменностей в регистрах. - определяет тип рядка (Буквы, Десятковые числа, Двоичные, Шестнадцатеричные) - выводит количество слов с рядка S - Значения S, S1 и N вводит пользователь Стандартными функциями пользоваться...
C++ Нет инициализации графического режима в BorlandC++ под ДОС Привет всем,проблема такая после относительно долгих вычислений стараюсь инициализировать графический режим,но он выдает ошибку - Not enough memory to load driver (не хватает памяти для загрузки драйвера),хотя если закоментить эти вычисления все проходит нормально и gdriver возращает 9(вместо - 5). В чем проблема подскажите плиз smile smile smile Уже задолбался,ток эта проблема,ниже приведен... http://www.cyberforum.ru/cpp-beginners/thread28439.html
C++ Парность скобок
Суть заключается в том,чтобы прверить на парность 2 видов скобок(круглых и квадратных) рассмотреть не только случаи ((])),но и например ((())).
Поворот матрицы C++
Составить программу решения задачи на С + + и Паскаль. Вывод матрицы на экран оформить в виде процедуры. Дано квадратную матрицу. Превратить ее, повернув на 90 (против сторож стрелки относительно центра.
C++ Матрица с рисунком http://www.cyberforum.ru/cpp-beginners/thread28349.html
Вычислить сумму элементов матрицы в заштрихований области. Ввод и вывод матрицы оформить в виде процедур. Вычислить сумму элементов матрицы в заштрихований области. Ввод и вывод матрицы оформить в виде процедур. а задание делается просто #include <iostream.h> void main() { int a; int i,j,n; double mi,aij;
C++ Надо программу с бэйсика на С++ переписать В универе задали переписать программу с бэйсика на С++, а у меня с этим ну совсем плохо((( Если ктото может- сделайте пожалуйста, а то уже надежду теряю( 10 PRINT'ИНТЕРПОЛЯЦИЯ ПРИ H=CONST ПО ФОРМУЛАМ ЛАГРАНЖА' 20 INPUT'ЗАДАЙТЕ СТЕПЕНЬ ПОЛИНОМА M=1-5 M='M:LETN=M+1 30 INPUT'ВВЕДИТЕ X0,H 'Z,H:IF N=3 THEN 100 40 IF N=4 THEN 140 50 IF N=5 THEN 190 60 IF N=6 THEN 250 70 INPUT'ВВЕДИТЕ Y0,Y1... подробнее

Показать сообщение отдельно
feelossoff
0 / 0 / 0
Регистрация: 28.03.2009
Сообщений: 77

Портация кода Pascal - C++

02.04.2009, 12:50. Просмотров 660. Ответов 4
Метки (Все метки)

Нужно сжать массив в котором есть нулевые элементы выкинув их. вот пример на паскале
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
program noules;
uses wincrt;
type mas=array[1..100] of integer;
procedure Vvod(var x:byte;var ms:mas);
var i:byte;
begin
write('Vvedite razmer massiva: ');
readln(x);
for i:=1 to x do
  begin
    write('el mass[',i,']=');
    readln(ms[i]);
  end;
end;
procedure Vyvod(x:byte;var ms:mas);
var i:byte;
begin
for i:=1 to x do
write(ms[i],' ');
writeln;
end;
{Opredelenie pervoj cifry}
function Cifr(x:integer):byte;
var s:string;
    t,c:integer;
begin
str(x,s);
val(s[1],t,c);
Cifr:=t;
end;
{Udalenie nolej}
procedure UdalenieNolej(var x:byte;var ms:mas);
var
i,k:byte;
begin
for i:=x downto 1 do
if ms[i]=0 then
  begin
    for k:=i to x-1 do
    ms[k]:=ms[k+1];
    x:=x-1;
  end;
end;
{Sortirovka po pervoj cifre}
procedure Sort(x:byte;var ms:mas);
var i,k:byte;
    b:integer;
begin
for i:=1 to x-1 do
for k:=i+1 to x do
if Cifr(ms[i])>Cifr(ms[k])then
   begin
    b:=ms[i];
    ms[i]:=ms[k];
    ms[k]:=b;
   end;
end;
var a:mas;
    n:byte;
begin
clrscr;
Vvod(n,a);
clrscr;
writeln('Ishodnyj massiv:');
Vyvod(n,a);
UdalenieNolej(n,a);
Sort(n,a);
writeln('Rezultat:');
Vyvod(n,a);
readln
end.
nl:=n+2;{новая длина массива}
{posle}
for i:=nl-1 downto imax+1 do m[i]:=m[i-1];
m[imax+1]:=e1;
{pered}
for i:=nl downto imax do m[i]:=m[i-1];
m[imax]:=e2;
end;
var a:myarray;
   imax,n1:Integer;
begin
randomize;
Init2(A);
Max(A,imax);
writeln('number of max element=',imax);
writeln;
Insert(imax,n1,A);
Printl(n1,imax,A);
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:42. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru