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

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

Войти
Регистрация
Восстановить пароль
 
Физие
0 / 0 / 0
Регистрация: 09.02.2011
Сообщений: 6
#1

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

21.03.2011, 18:45. Просмотров 435. Ответов 0
Метки нет (Все метки)

Помогите пжлста перевести из паскаля в 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++
ни как не пойму , как сделать чтобы к руской букве приделать другой синвол.ну типа там A=$ ну чтоб получилось когда я ввожу синволы на...

перевод русских букв в транслит - C++
Задача: Перевести русские буквы в транслит, с ведением протокола.

Написать программу перекодировки текстового файла в транслит и наоборот - C++
Мне нужно написать программу перекодировки текстового файла в транслит и наоборот, я все написал только ни как не получается профести...

Транслит - C#
У меня есть слово на русском, а мне нужно это-же слово на англ-яз... типа(Ящик-yachik) как это сделать?

Транслит - Delphi
Здравствуйте! Скажите компонент или как сделать транслит кириллицы в латынь. Пример: Привет! - Privet!

Транслит - C#
Привет люди,срочно нужна поммощь. Нужно написать программу ,которая переводит русский текст на транслит.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2011, 18:45
Привет! Вот еще темы с ответами:

Транслит в ЧПУ - PHP
В проекте используется транслит. Но некоторые знаки в нем не убираются (например, пропущена замена Ё, № и др.) Само исправление проблем...

Транслит с исключением - PHP
Всем привет! имею вот такой транслитератор $translit = array( 'а' => 'a', 'б' => 'b', 'в' => 'v', 'г' => 'g', 'д' =>...

Урл в транслит - PHP
Всем привет. Пытаюсь на сайте сделать ЧПУ В .htaccess все настроено и работает нормально, кроме: Есть такая ссылка...

транслит переводчик - JavaScript
1. создать текстовое поле "Russian", создать текстовое поле "English", создать кнопку "Rus->Lat", создать кнопку "Lat->Rus", ...


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

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

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