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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Помогите с прогой к Госекзамену http://www.cyberforum.ru/cpp-beginners/thread191149.html
Класс "Число": количество цифр, основа системы исчисления. Производные: "целое" (наличие знакового разряда), "действительное" (наличие знакового разряда, длина дробной части, форма представления...
C++ Определить структуру "окружность". Определить структуру, описывающую окружность. Структура должна содержать информацию о четырех координатах на плоскости квадрата,в которой вписана эта окружность (X1, Y1, X2, Y2, X3, Y3, X4, Y4).... http://www.cyberforum.ru/cpp-beginners/thread191145.html
Лабораторные работы. C++
1. Програма обчислення радіуса круга з центром в (х0,у0), дотичного до прямої y=kx+b. 2. Програма, яка визначала б, чи є трикутник, заданий вершинами кутів A(xA,yA), B(xB,yB), C(xC,yC),...
C++ Решение системы уравнений методом Гаусса
Всем доброго времени суток. Нужно написать программу для решения СЛАУ методом Гаусса. #include <stdio.h> #include <stdlib.h> #define n 4 void check(float mass,float sc, int i) { int j,t=0; for...
C++ Кратные и не кратные числа http://www.cyberforum.ru/cpp-beginners/thread191123.html
Народ помогите пожалуйста надо из числовой последовательности чисел выбирать сначала кратные данному числу потом не кратные данному числу и все числа которые кратны первому но не кратны второму...
C++ Менеджер памяти Хочу написать свои аналоги malloc free. Загвоздка в том, что я не знаю как освобождать потом память, ведь VirtualFree не может освободить только n-ное кол-во байт.Как поступить ? Накидал... подробнее

Показать сообщение отдельно
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43

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

14.11.2010, 17:32. Просмотров 303. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru