С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

Войти
Регистрация
Восстановить пароль
 
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
#1

Перевод из Pascal на язык С. - C++

14.11.2010, 17:32. Просмотров 307. Ответов 0
Метки нет (Все метки)

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

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
uses Crt;
const
  k=4; a1=3.7718; a2=5,5168; a3=3,5245; f=1;
  n=3; h=0.05; w1=0.5; w2=7.5;
var
  x,m1:real;
  i,j,m:integer;
  y,p,g:array[0..3] of real;
 
procedure pr_1;
begin
  p[1]:=y[2];
  p[2]:=y[3];
  p[3]:=(k*f-y[1]-a1*y[2]-a2*y[3])/a3;
end;
BEGIN
  ClrScr;
  y[1]:=0; y[2]:=0; y[3]:=0; x:=0;
  writeln('  x      y  ');
  writeln('------------');
  REPEAT
    m1:=int(w1/h);
    m:=trunc(m1);
    for j:=1 to m do
      begin
        pr_1;
        for i:=1 to n do
          begin
            g[i]:=y[i]+h*p[i]/4;
            y[i]:=y[i]+2*h*p[i]/3;
          end;
        pr_1;
        for i:=1 to n do
          y[i]:=g[i]+3*h*p[i]/4;
        x:=x+h;
      end;
    writeln(x:4:2,'  ',y[1]:5:3);
  UNTIL x>w2;
  readln;
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2010, 17:32
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Pascal на язык С. (C++):

Перевод из Basic на язык С. - C++
Помогите пожалуйста кто-нибудь, переведите с Basic на язык С READ n, x DIM p(20), z(20) m0=0: m1=0: m2=0: m3=0 PRINT "s1 ...

Перевод дроби на язык СИ - C++
Помогите пожалуйста!!!!

Перевод формулы на язык C++ - C++
Здравствуйте! Прошу помочь мне с переводом формулы на язык c++ . Сам пробовал, но постояно выходят ошибки. С виду программа несложная, но...

Перевести с Borland Pascal на язык С++ - C++
Помогите пожалуйста )))) uses Crt; const n=16; x=0.5; p:array of...

Нужно перевести на язык Pascal - C++
Помогите перевести на язык Pascal, заранее благодарен! struct PRICE { char tovar; char mag; int cena; }; ...

переделать программу из Pascal в язык С - C++
Дано натуральное число n, равное выраженной в копейках цене некоторого товара, например, 317, 5005, 100 и т. д. Выразить цену в рублях и...

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

Перевод текста в формальный язык - C++
Доброго дня вопрос даже не столько по с++ а скорее общий, необходимо написать программу, на вход которой подается текст логической задачи,...

Перевести код с языка Pascal на язык C++ - C++
Необходимо переписать данный код на C++. const eps = 1e-4; function pow(x : Real; k : Integer) : Real; var r : Real; begin ...

Перевести код с языка Pascal на язык С++ - C++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter count = ');readln(n); rez:=1; ...

Перевод из Pascal в C++ - C++
Добрый день, дорогие форумчане) Буду благодарен за перевод) uses crt; const nmax = 20; type mtr = array of integer;


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

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

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