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

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

Войти
Регистрация
Восстановить пароль
 
Ctudent
Сообщений: n/a
#1

Перевод - C++

27.05.2010, 20:08. Просмотров 309. Ответов 0
Метки нет (Все метки)

Здравствуйте.
Пожалуйста помогите перевести программы с языка программирования Паскаль на язык Си.

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++):

Перевод из 16 в 2 - C++
char* DecToBin(int x, char* str) { int i; for (i = sizeof(x)*8-1; i&gt;=0; i--) { str = (x&amp;1 == 1) ? '1' : '0'; x = x &gt;&gt; 1;...

Перевод - C++
program NoName; var x1, y1, x2, y2, x3, y3, x4, y4: integer; begin readln(x1, y1); readln(x2, y2); readln(x3, y3);...

Перевод if(n*n+m*m=i) then if(i<>a[c-1]) на с++ - C++
if(n*n+m*m=i) then if(i&lt;&gt;a)

перевод из с++ в с - C++
Задано целое число. Используя средства стандартного ввода-вывода, изобразить на экране ромб, меньшая диагональ которого равна заданному...

Перевод - C++
Может кто на С++ перевести? uses crt; const t=0.01;//точность сравнения вычисленных величин var a,b,c,u,mx,mn,sr:real; begin ...

Перевод с С на С++ - C++
Добрый вечер. Хочу перевести код с использованием pHash алгоритма с &quot;C&quot; на &quot;C++&quot;. Возникли некоторые проблемы при переводе. В частности,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2010, 20:08
Привет! Вот еще темы с ответами:

Перевод с с++ на c# - C++
Как можно перевести С++ на С# ?вообще реально ли это ?

Перевод в 8-ю ЧС - C++
Здраствуйте! Написал программу для перевода 10-го числа в в ССч 8. Наведу пример того что не работает: число 1234 в 8 ССч имеет форму...

Перевод - C++
Помогите перевести в C++ const n=5; m=5; var b:arrayof integer; i,j,jmx,jmn,t:integer; begin randomize; for i:=1 to...

Перевод - C++
HELP!!!! Добавлено через 36 секунд Люди пожалуйста помогите написать на си ++ программу Перевод из CMYK в YUV и обратно.... ...


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

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

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