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

Переписать з паскаля на С - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Квадратная матрица и симметричная её часть http://www.cyberforum.ru/cpp-beginners/thread290853.html
Помогите решить задачу, пожалуйста: Написать функцию,которая вычисляет для заданной квадратной матрицы А симметричную её часть S(ij) = (A(ij)+A(ji))/2 и кососимметричную часть K(ij)=( A(ij)-A(ji))/2 . Помогите, пожалуйста. Не могу реализовать в Си++, хоть убейте меня.
C++ Поиск в массиве нашел код #include <iostream> using namespace std; int main( void ) { int index= -1, key, i; http://www.cyberforum.ru/cpp-beginners/thread290852.html
C++ const static vector<type>
Мне нужно создать внутри класса вектор цветов предлагаемых в конструкторе как дефолтные... лучше static, лучше const... главное - чтобы работало. Не могу нагуглить синтаксис такого объявления т. е. у меня конструктор с прототипом Graph::Graph(std::vector<PlotOnSteps>,const std::vector<QColor>& colors = stdColors) и требуется определить идентификатор stdColors. QColor - вразумительная структура...
C++ Вопрос по intel с++ copiler
Написал приложение, основная работа которого заключается в поиске по вектору и добавлению элементов вконец. Всё написано грамотно, четко резервируется место, чтобы переаллокации не происходили вообще. Не хватает производительности, когда вектор становится очень большой, поиск осуществлятеся очень медленно. Вектор несортированный, приходится перебирать все элементы. Но сортировать его при каждом...
C++ Графы http://www.cyberforum.ru/cpp-beginners/thread290825.html
Помогите написать программу: Модель работы некоторой системы представлена ориентированным графом, где вершины – это состояния системы, а дуги – переходы между состояниями. Разработать программу, которая находит все состояния, которые являются достижимыми из заданного состояния. Я так понял здесь нужно использовать обход графа, и если да то как?
C++ вывод подстроки Дано строка, Вывести под строку розположену между концом и последнею точкою строки. Помогите пожалуйста, хотя бы алгоритм решения подскажите.Спасибо. подробнее

Показать сообщение отдельно
Infikkk
0 / 0 / 0
Регистрация: 11.04.2011
Сообщений: 12
07.05.2011, 23:22     Переписать з паскаля на С
Нужно переписать две програми з Turbo pascal в Turbo C

1. Визначення, чи дорівнює сума цифр цілої частини дійсного числа сумі такої ж кількості цифр в дробовій частині.

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
program sd;
 
uses
  crt;
 
var
  s, s1: string;
  i, k, code, sum, i1, k1, code1, sum1, n, n1: integer;
 
begin
  sum := 0;
  writeln('Цiла частина числа : ');readln(s);
  writeln('Дробова частина числа: ');readln(s1);
  write('Число: ', s);
  write(',');
  writeln(s1);
  n := length(s); 
  n1 := length(s1); 
  begin
    if n = n1 then writeln('Кiлькiсть цифр спiвпадає')
    else
      writeln('Кiлькiсть цифр не спiвпадає');
  end;
  
  for i := 1 to length(s) do
  begin
    val(s[i], k, code);
    if code = 0 then sum := sum + k;
  end;
  
  if sum = 0 then writeln('В строке нет цифр');
  
  
  for i1 := 1 to length(s1) do
  begin
    val(s1[i1], k1, code1);
    if code1 = 0 then sum1 := sum1 + k1;
  end;
  
  if sum1 = 0 then writeln('В строке нет цифр');
  
  if sum = sum1 then 
    writeln('Cума цифр цiлої частини дiйсного числа дорiвнює сумi такоi ж кiлькостi цифр в дробовiй частинi')
  else
    writeln('Cума цифр цiлоi частини дiйсного числа  не  дорiвнює сумi такоi ж кiлькостi цифр в дробовiй частинi');  
  
end.
2. http://img12.imageshost.ru/img/2011/...35f14e3ac1.png

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
    n, i: word;
    sum: real;
 x:integer;
begin
 
    write ('n = '); readln (n);
 write ('x = '); readln (x);
    sum := 0;
 
    for i := 1 to n do
        sum := sum + exp(ln(cos(x))*i);
 
    writeln (sum:6:5);
 
readln
end.
правда не знаю правильно ли написано на паскале, так как писал сам.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:12. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru