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

Перевод - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Массивы http://www.cyberforum.ru/cpp-beginners/thread136381.html
нужна помощь с задачкой: Даны два одномерных массива А и В. Вычислить элементы массива С по правилу: если аi и bi различны, то сi присвоить их сумму.
C++ Функция chsize Доброе время суток. Как можно изменить размер файла не используя функцию chsize(handle, seek_w); // 7ps.cpp : Defines the entry point for the console application. // #include "stdafx.h" #include "io.h" http://www.cyberforum.ru/cpp-beginners/thread136376.html
Массив объектов C++
Можно так написать? class A {бла-бла-бла} void main() { int x=3; A *arr = new A; }
Отсортировать массив по возрастанию на интервале индексов от n1 до n2 (задаются пользователем) C++
только сортировка не встроеной функцией. Подскажите как сделать?
C++ Дешифратор кода картинки.. http://www.cyberforum.ru/cpp-beginners/thread136369.html
Здраствуйте. Как то я вводил гдето код з картинки и мне стукнуло в голову. А почему би не написать програму которая бы розшыфровывала б коди подтверждений на картинке. Кто чо знает насколько ето реально??? Или есть какието предположения?
C++ Дан массив указателей на кольца,элементов в этом массиве не более 50,последний элемент-указатель null.Элементами кольца являются указатель на Дан массив указателей на кольца,элементов в этом массиве не более 50,последний элемент-указатель null.Элементами кольца являются указатель на массив строк и число,задающее длину этого массива.в кольцах с четными номерами массив строк в элементах на четных местах рассматривать в пордке возрастания , а в кольцах с нечетными номерами массив строк в элементах на нечетных местах рассматривать в... подробнее

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

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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 21:06. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru