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

Перевод - C++

Восстановить пароль Регистрация
 
Ctudent
Сообщений: n/a
27.05.2010, 20:08     Перевод #1
Здравствуйте.
Пожалуйста помогите перевести программы с языка программирования Паскаль на язык Си.

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
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
program zad_1;
const n = 10;
var
dy, dx : array [1..n] of real;
min,m1:real;
i,j,k:integer;
function st(x1,x2,x3,y1,y2,y3:real):real;
     begin
     st:=(abs(x1*(y2-y3)+x2*(y3-y1)+x2*(y1-y2)))/2;
     end;     
function det (x1,x2,x3,y1,y2,y3:real):real;
     var
          h1, h2, h3 :real;
     begin
          h1 := (sqr(x1)+sqr(y1));
          h2 := (sqr(x2)+sqr(y2));
          h3 := (sqr(x3)+sqr(y3));
          det := (h1*(y2-y3)-y1*(h2-h3)+(h2*y3-h3*y2));
     end;
function x0 (x1,x2,x3,y1,y2,y3:real):real;
     var a:real;
     begin
          a := st(x1,x2,x3,y1,y2,y3);
          x0 := (1/(4*a))*det(x1,x2,x3,y1,y2,y3);
    end;
function y0 (x1,x2,x3,y1,y2,y3:real):real;
     var a:real;
     begin
          a := st(x1,x2,x3,y1,y2,y3);
          y0 := -(1/(4*a))*det(x1,x2,x3,y1,y2,y3);
    end;
function so(x1,x2,x3,y1,y2,y3:real):real;
     var
     r,x,y:real;
     begin
     x:=x0(x1,x2,x3,y1,y2,y3);
     y:=y0(x1,x2,x3,y1,y2,y3);
     r:=sqrt(sqr(x1-x)+sqr(y1-y));
     so:=3.14*sqr(r);
     end; 
begin
randomize;
min:=32467;
Writeln('vvodite koordinati tochek') ;
for i := 1 to n do
 Readln(dx[i], dy[i]);
 for i:=1 to n do
    for j := 1 to n do
        if(i <> j) then
            for k := 1 to n do
                if((i <> k) and (j <> k)) then
begin
m1:= so(dx[i],dx[j],dx[k],dy[i],dy[j],dy[k]) - st(dx[i],dx[j],dx[k],dy[i],dy[j],dy[k]); 
     writeln('S',i,'=',m1:7:2);
     if (min < m1) then
        min:=m1;
end; 
writeln(min:7:2);
readln;
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
PROGRAM BALANS ;
TYPE
     Tipelem=char;
     Link=^zveno;
     Zveno=record
          elem: tipelem;
          sled: link
                 end;
VAR sym:char; s:link; b:Boolean;
      str:string; i,l:integer;
Procedure VSTEK(var st:link; newelem:tipelem);
VAR q:link;
     BEGIN
    NEW(q);
    q^.elem:=newelem;
    q^.sled:=st;
    st:=q;
    End;
Procedure IZSTEK (VAR ST:link);
     var q:link;
     BEGIN
          if st<>nil
          then
          begin
               q:=st;
               st:=st^.sled; dispose(q)
          end
     END;
BEGIN
     s:=NIL;
     writeln('введите текст формулы');
     readln(str); b:=true; i:=1;
     while b and (i<=length(str)) do
          begin
               sym:=str[i];
               write(sym);
               if sym in ['(','[','{']
                    then  VSTEK(S,SYM)
                    else
                         if sym in [')', ']', '}']
                              then
                                   begin
                                        case s^.elem of
                                        '(': b:=sym=')';
                                        '{': b:=sym='}';
                                        '[': b:=sym=']'
                                   end;
                         if b then izstek(s);
          end;
          i:=i+1;
          sym:=str[i]
end; 
     writeln;
     if  not b or (s<>nil) 
     then writeln ('баланса скобок нет')
     else writeln ('баланс скобок есть')
end.
Добавлено через 11 часов 49 минут
Прошу помочь естественно за вознаграждение...
Предлагаю желающим обсудить всё лично со мной( адрес sata_dan@mail.ru ).
либо через скайп, ник satadan
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2010, 20:08     Перевод
Посмотрите здесь:

Перевод на С++ C++
C++ перевод в С
Перевод из 2 в 10 сс C++
C++ перевод из с++ в с
C++ Перевод
C++ Перевод из C в С++
Перевод с С на С++ C++
Перевод из C# в С++ C++

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

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

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