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

Транслит) - C++

Восстановить пароль Регистрация
 
Физие
0 / 0 / 0
Регистрация: 09.02.2011
Сообщений: 6
21.03.2011, 18:45     Транслит) #1
Помогите пжлста перевести из паскаля в Borland c++
Только нужно тютелька в тютельку, и чтоб работало)
огромное пасяб)
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
program p1;
 uses crt;
 var Rmatrix:array[1..10,1..11] of real;
 Rconst:array[1..10] of real;
 x:array[1..10] of real;
 n,i,j,k:integer;
 Rcoef,rXcoef:real;
    begin
        clrscr;
        write('Vvedite razmer matritsi:=');
        readln(n);
        for i:=1 to n do
            for j:=1 to n+1 do
                begin
                    gotoxy(1,2);
                    write('Vvedite koefitsent #',j,', dlez stroki: #',i,'');
                    write(rMatrix[i,j]:6:2);
                    readln(rMatrix[i,j]);
                    gotoxy(j*8,i+2);
write(rMatrix[i,j]:8:2);
                end;
            readln;
            writeln('Razmeri Sistemi ',n);
for i:=1 to n do
                begin
                    for j:=1 to n+1 do
                    write(rMatrix[i,j]:8:2);
                    writeln;
                end;
            readln;
            for i:=1 to n do
            rConst[i]:=rmatrix[i,n+1];
                for k:=1 to n do
                    begin
                        for j:=k+1 to n do
                            begin
                            rCoef:=rMatrix[j,k]/rMatrix[k,k];
                            for i:=k to n do
begin
                            rMatrix[j,i]:=rMatrix[j,i]-rCoef*rMatrix[k,i];
end;
rConst[j]:=rConst[j]-rCoef*rConst[k];
end;end;
writeln('Treugolinaia Forma:');
for i:=1 to n do
begin
for j:=1 to n do
write(rMatrix[i,j]:8:2);
write(rConst[i]:8:2);
writeln;
end;
readln;
for k:=n downto 1 do
begin
rCoef:=0;
for j:=k+1 to n do
begin
rXcoef:=rMatrix[k,j]*x[j];
rCoef:=rCoef+rXcoef;
end;
x[k]:=(rConst[k]-rCoef)/(rMatrix[k,k]);
end;
writeln('Rezultat:');
for i:=1 to n do
writeln('Zna4enie #',i,'',x[i]:8:2,' ');
readln;end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2011, 18:45     Транслит)
Посмотрите здесь:

C++ перевод русских букв в транслит
C# Транслит
C++ транслит
Транслит в программах
C# Транслит
Delphi Транслит
Транслит в кириллицу C++ Qt
Написать программу перекодировки текстового файла в транслит и наоборот C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 01:14. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru