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

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

Войти
Регистрация
Восстановить пароль
 
Infikkk
0 / 0 / 0
Регистрация: 11.04.2011
Сообщений: 12
#1

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

07.05.2011, 23:22. Просмотров 392. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2011, 23:22
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переписать з паскаля на С (C++):

Переписать с паскаля на С++ - C++
Переведите плиз вт это в С++ Заранее Сапасибо!!!! var ms:array of integer; max,s,k,i:integer; begin

Переписать из паскаля - C++
Здравствуйте помогите пожалуйста переписать на с++:) var a,b:array of integer; n,i,c,d,mind:integer; begin read(n); for...

Переписать с Паскаля на C++ - C++
Все доброго времени суток. Нужно переписать программу с паскаля на плюсы. Смысл программы в том, что она расставляет скобки приоритета для...

Переписать с Паскаля на С++ - C++
Ребят, можете переписать с Паскаля на С++ program PROGRAMMA7; uses crt, graph; const n=100; m=100; h=1; dt=0.2; var ...

Переписать с паскаля на С - C++
Помогите переписать на язык С program tabul; uses crt,graph; const a1=6;b1=14;h1=0.25; label metka; var a,b,h,x1,y1:real; ...

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

1
Nursik77
273 / 233 / 21
Регистрация: 05.04.2011
Сообщений: 645
07.05.2011, 23:42 #2
2.
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <stdio.h>
#include <math.h>
#include <conio.h>
void main ()
{     
int x,i,n;
float y;
clrscr();
printf("Vvedite x,n: ");
scanf("%d%d",&x,&n); 
y=0;
for (i=0;i<=n;i++) 
{y=y+cos(pow(x,i));}
printf ("\ny=%6.3f\n",y);
getch ();
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2011, 23:42
Привет! Вот еще темы с ответами:

Переписать с Паскаля на С++ - C++
program ClassificationYard; const Nmax = 100; type TRailroadCars = (TypeA, TypeB); TArray = array of TRailroadCars; ...

Переписать с Паскаля в с++ - C++
Помогите пожалуйста - переделать программу на с++ с использованием структур - очень прошу всех откликнуться... type student=record ...

переписать из паскаля в с++ - C++
var n, i, max, cnt : Integer; a : array of Integer; begin ReadLn (n); for i := 1 to n do Read (a);

Переписать программу из паскаля в с++ - C++
program laba52; uses crt; VAR a:array of real; s:real; i:integer; begin s:=1; randomize; for i:=1 to 10 do


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

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

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