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

Перевод с паскаля на си - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Точка входа должна быть определена http://www.cyberforum.ru/cpp-beginners/thread722021.html
Всем привет. На YouTube нашел видео. Стало интересно. Там был приложен файл исходного кода .срр. Я скачал и попытался скомпилировать и у меня не получилось. Glut подключен. Я это же делал несколько месяцев назад и все получалось. Выкладываю исходный код, который там был приложен. IDE MSVS2010 C++; #include <time.h> #include <stdlib.h> #include <GL/glut.h>
C++ Десятичные числа начинающиеся нулем Кроме C функции printf(); подскажите как вывести число которое начинается с нуля ? Спасибо. http://www.cyberforum.ru/cpp-beginners/thread722015.html
Нужно написать прогу которая создаст в двух текстовых файлах А и В порядок числ до 17 C++
#include "stdafx.h" #include <iostream> #include <stdio.h> using namespace std; int _tmain(int argc, _TCHAR* argv) { double A, B; FILE *a, *b; a=fopen("A.txt.","w");
C++ Не запускается на других машинах
Суть такая. Экзешник не запускается на машине без Visual studio. Пишет что не найдено msvcp100.dll. Что делать? Заранее спасибо.
C++ Сравнение дат и плюсование/минусование времени http://www.cyberforum.ru/cpp-beginners/thread721992.html
Здравствуйте! У меня два вопроса. Первый: имеются две строки(тип AnsiString), они содержат какую-то дату(формат dd.mm.yy), как можно проверить больше ли первая строка(дата) второй? Равны ли они? Меньше? Интересует именно сравнение по дням, месяцам и годам сразу. Т.е. например строка s1="10.12.12" и строка s2="11.11.12", при сравнение строка s2 меньше s1(из-за месяца). Второй: имеются также две...
C++ В какой среде? В какой среде лучше начать осваивать оконное программирование? Консоль уже до дыр затёр хочу перейти к чему нибудь более привлекательному. подробнее

Показать сообщение отдельно
MS24
11 / 11 / 1
Регистрация: 22.02.2012
Сообщений: 115
Завершенные тесты: 1
06.12.2012, 21:09     Перевод с паскаля на си
Ребят помогите поджалуйста с переводом!
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
const r=10;
      n=100;
type mas=array[0..r] of byte;
var i,j,a:integer;
p,f,x0,x1,x2,x3,sm,sd:real;
u:array[1..10] of byte;
d:mas;
x:array[1..100] of real;
function ff(xf0,xf1,xf2,af:real) :real;
    var
    rez:real;
      begin
      rez:=abs(sin(af*xf0+xf1-xf0*xf2));
      ff:=rez;
      end;
procedure dz (rp:integer;xp:array [1..n]of real; var dp:mas);
var
kp,ip:integer;
begin
for kp:=0 to rp-1 do
begin
dp[kp]:=0;
write(kp/rp:0:3,'--',(kp+1)/rp);
for ip:=1 to n do
if (x[ip]>=kp/rp) and (x[ip]<(kp+1)/rp) then dp[kp]:=dp[kp]+1;
writeln(d[kp]:3);
end;
end;
 
 
 
 
begin
 
 
 
for a:=0 to 1 do
 
 
begin
x0:=0.025;x1:=0.211;x2:=0.714;
 
for j:=1 to n do
begin
     f:=ff(x0,x1,x2,a);
     for i:=10 downto 1 do
         begin
              f:=f*2;
              u[i]:=trunc(f);
              f:=f-u[i];
         end;
     p:=1;
     x[j]:=0;
     for i:=1 to 10 do
      begin
       p:=p/2;
        x[j]:=x[j]+u[i]*p;
      end;
      x0:=x1;x1:=x2;x2:=x[j];
end;
 
 
dz(r,x,d);
 
 
sm:=0;sd:=0;
for i:=0 to r-1 do
sm:=sm+(2*i+1)/2/r*d[i]/n;
for i:=0 to r-1 do
sd:=sd+sqr((2*i+1)/2/r-sm)*d[i]/n;
writeln('a=',a,' M=',sm,' D=',sd);
writeln;
end;//for a
end.
Замучался совсем! Я синтаксис знаю, но некоторые моменты во мне вызывают ужас.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 04:05. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru