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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Программой, содержащая класс, структуры и функции работы с файлами. Синтаксических ошибок нет, но работа прерывается и ничего не выводится на экран. http://www.cyberforum.ru/cpp-beginners/thread182651.html
#include "stdafx.h" #include <iostream> #include <iomanip> #include <conio.h> #include <string.h> #include <fstream> using namespace std; void Choice(); int c=0; //Глобальная переменная с - для количества элементов структуры int k=0; //Глобальная переменная к - для номера удаляемого элемента
C++ Ввод чисел неограниченное количество раз здравствуйте! нужно составить прогу: нужно сделать, чтобы можно было вводить числа неограниченное кол-во раз то есть не пойдёт такое int a,b,c...z,ab,ac... подскажите! понимаю легкО, но в голову никак не приходит как написать http://www.cyberforum.ru/cpp-beginners/thread182646.html
C++ Стек
помогите реализовать стек через структуру.....тоесть мне надо забить данные и вывести их читал в книгах понял мало #include <iostream> using namespace std; struct Data{ char a; Data *pNext;
Задача на Делфи C++
Пользователь должен ввести в Edit1 и Edit2 свой рост и вес соответственно, и хотябы в ShowMessage должно вывестись соотношение между ними, т е нормальная ли масса тела, избыточная или дефицит.Норма-это От роста отнять 110 =вес..Помогите пожалуйста..
C++ Работа с матрицами! http://www.cyberforum.ru/cpp-beginners/thread182623.html
Дана действительная матрица размерности n-n. 5. Если максимальные элементы строк находятся на главной диагонали и образуют не возрастающую последовательность, то транспонировать матрицу. В противном случае матрицу оставить без изменения. 6. Определить количество строк, не содержащих ни одного нулевого элемента. 7. Найти сумму элементов в тех столбцах, которые содержат элементы большие s....
C++ "Читатели-Писатели" Необходимо решение данной проблемы. Приоритет у читателей. Способ синхронизации - Event. Вот к чему дошел: #include "stdafx.h" #include <iostream> #include <windows.h> using namespace std; int RDcnt=0; int WRflag=0; HANDLE MayRead,MayWrite; подробнее

Показать сообщение отдельно
Nyto4ka
0 / 0 / 0
Регистрация: 10.05.2010
Сообщений: 22
27.10.2010, 23:08     кто может программу на паскале переписать на С или С++
если можно, код из паскаля в си перепишите...пожалуйста)

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