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

Программу в JS или С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Деление числа http://www.cyberforum.ru/cpp-beginners/thread526985.html
Извините за дубляж темы, это уже много раз было, но такая задача: 1) от многозначного числа отделить последнюю цифру, например 123456, чтобы было 12345 2) отдклить от многозначного чила...
C++ Поток,дисковый файл,добовление битов Всем привет! Сталкнулся с такой проблемой как отсутствие в номом стандарте ios::nocreate. Полазив в инете нашел мнение что мол сначало надо открывать файл на чтрение если не получается открыть то... http://www.cyberforum.ru/cpp-beginners/thread526984.html
изучение языка C++
у меня специальность прикладная математика и информатика курс второй ,мне придется изучить язык С++ ? Все ли программисты вузов России должны изучать С++ ?
Оценка сходства текстов C++
Добрый день. Тема моей курсовой - "Оценка сходства текстов". Какую литературу можете посоветовать, чтоб реализовать данную программу? Главное условие - использование и сравнение в программе 3...
C++ Преобразование из double в строку http://www.cyberforum.ru/cpp-beginners/thread526959.html
Здравствуйте, в общем такое дело, есть winapi приложение с подключаемой .dll, при подсчёте функция должна вывести в эдит дробный результат, вот мой пример с интовым результатом,подскажите...
C++ Многократное объявление. Есть файл propertygrammar.h : #pragma once #include <string> using namespace std; #define COUNT_RULES 23 struct line { char *value; подробнее

Показать сообщение отдельно
G0DE][

Программу в JS или С++ - C++

24.03.2012, 16:40. Просмотров 261. Ответов 0
Метки (Все метки)

Нужно программу перевести JS или С++ я так понял это паскаль, или дельфи, простите не сильно, так как не учил. Помогите пожалуйста, буду весьма благодарен
Если не в тот дозрел форума простите)
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
program rgr;
uses crt;
type vec=array [0..20] of real;
var i,k,n:integer;
    x1,x0,x9,h,p:real;
    x,y:vec;
procedure tab(n:integer; var x,y:vec);
var i:integer;
begin
     for i:=0 to n do
     begin
          write ('x',i:1,',y',i:1,'= ');
          readln(x[i],y[i]);
     end
end;
procedure pl(n:integer; var x,y:vec; var x1,p:real);
var i,j:integer;
    r,r1,r2,q,s:real;
begin
     p:=0.0;
     for i:=0 to n do
         begin
              r:=1.0;
              r1:=0.0;
              r2:=r1;
              for j:=0 to n do
                  if i<>j then
                     begin
                          q:=x[i]-x[j];
                          s:=x1-x[j];
                          r2:=(r2*s+2*r1)/q;
                          r:=r*s/q;
                     end;
                     p:=p+r*y[i];
         end;
end;
BEGIN
clrscr;
writeln;
repeat write('n,x0,x9,h= ');
readln (n,x0,x9,h);
tab (n,x,y);
k:=round((x9-x0)/h+1.0);
x1:=x0;
for i:=1 to k do
    begin
         pl(n,x,y,x1,p);
         writeln(x1:2:7,' ',p:2:7);
         x1:=x1+h;
    end;
until false;
readln;
END.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru