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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Квадратная матрица и симметричная её часть http://www.cyberforum.ru/cpp-beginners/thread290853.html
Помогите решить задачу, пожалуйста: Написать функцию,которая вычисляет для заданной квадратной матрицы А симметричную её часть S(ij) = (A(ij)+A(ji))/2 и кососимметричную часть K(ij)=(...
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... главное - чтобы работало. Не могу нагуглить синтаксис такого объявления т. е....
C++ Вопрос по intel с++ copiler
Написал приложение, основная работа которого заключается в поиске по вектору и добавлению элементов вконец. Всё написано грамотно, четко резервируется место, чтобы переаллокации не происходили...
C++ Графы http://www.cyberforum.ru/cpp-beginners/thread290825.html
Помогите написать программу: Модель работы некоторой системы представлена ориентированным графом, где вершины – это состояния системы, а дуги – переходы между состояниями. Разработать программу,...
C++ вывод подстроки Дано строка, Вывести под строку розположену между концом и последнею точкою строки. Помогите пожалуйста, хотя бы алгоритм решения подскажите.Спасибо. подробнее

Показать сообщение отдельно
Infikkk
0 / 0 / 0
Регистрация: 11.04.2011
Сообщений: 12

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

07.05.2011, 23:22. Просмотров 388. Ответов 1
Метки (Все метки)

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