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

кто может программу на паскале переписать на С или С++ - C++

Восстановить пароль Регистрация
 
Nyto4ka
0 / 0 / 0
Регистрация: 10.05.2010
Сообщений: 22
27.10.2010, 23: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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
program Lagrang;
const
   Nmax = 8;
 
type
    massiv = array[0..Nmax] of real;
    matrica = array[0..Nmax,0..Nmax] of real;
 
var
    X,Y: massiv;
    M: matrica;
    Z: Real;
     i,j,n,r : integer;
     h: real;
 
function PX(i,j:Integer):Real;
var P:Real;
   begin
      if M[i,j]=1 then
          P:=M[i,j]
          else begin
             if j-i=1 then begin
                P:=(Y[i]*(X[j]-Z)-Y[j]*(X[i]-Z))/(X[j]-X[i]);
                R:=Trunc(P*100);
                Writeln(R,'  ');                     
                 end
           else begin
                 P:=(PX(i,j-1)*(X[j]-Z)- PX(i+1,j)*(X[i]-Z))/(X[j]-X[i]); 
                 R:=Trunc(P*100);
                 Write(R,'  ');                 
                 end;
                 M[i,j]:=P;
                 M[j,i]:=1;
 {   
     Writeln('M[',i,',',j,']= ',trunc(M[i,j]*100));  
}
                end;
   PX:=P;
  {
Write('M[',i,',',j,']= ',trunc(M[i,j]*100),'  ');
}
end;
 
begin
   n:=7;
   x[0]:=1;
   h:=1;
   for i:=0 to n do begin
      x[i]:=x[0]+i*h;
      y[i]:=x[i]*x[i]*x[i]-20;
      Writeln('x',i,'= ',x[i]:3:3);
      Writeln('y',i,'= ',y[i]:3:3);
      end;
      repeat                                                        
      Write('x= ');
      ReadLn(Z);
      if Z=0 then
      begin  
         for i:=0 to n do
         begin
         for j:=0 to n do
         begin
         Write('M[',i,',',j,']= ',trunc(M[i,j]*100),'  ');
         end;
         writeln('');              
         end;
         readln(Z);
    end;
    for i:=0 to n-1 do
      if ((Z>X[i])and(Z<X[i+1]) or (Z<X[i])and(Z>X[i+1]) or (Z=0))
      then 
      break;
      WriteLn('y= ',PX(0,n):3:3);
      until 0>1;
  
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2010, 23:08     кто может программу на паскале переписать на С или С++
Посмотрите здесь:

C++ Массив на практике кто бы помог решить может хоть кто то
Кто может написать программу для разложения числа N на множители? C++
Кто может помочь написать программу на с++ C++
Помогите найти ошибку или переписать программу! C++
переписать на С++ задачи на паскале (12 штук) C++
Кто может написать программу на с++ C++
Кто может написать программу? visual c++ 2008 C++
C++ Кто может проверить программу?

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
egorikem
 Аватар для egorikem
7 / 7 / 1
Регистрация: 05.10.2010
Сообщений: 137
28.10.2010, 15:33     кто может программу на паскале переписать на С или С++ #2
Ты скажи по русски что надо! В паскале я ноль!
Nyto4ka
0 / 0 / 0
Регистрация: 10.05.2010
Сообщений: 22
28.10.2010, 17:11  [ТС]     кто может программу на паскале переписать на С или С++ #3
нужно реализовать схему Эйткена (Лагранжа). Входные данные программы: n-количество узлов интерполяции, h - постоянный шаг, х0, xi=x0+ih, i=0..n, yi=F(xi), F(x)=1+cos(Пи*х)
Yandex
Объявления
28.10.2010, 17:11     кто может программу на паскале переписать на С или С++
Ответ Создать тему
Опции темы

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