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

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

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

Нужно перевести программы из Pascal в C - C++

01.06.2011, 01:12. Просмотров 446. Ответов 1
Метки нет (Все метки)

1. Дано трехзначное число. В этом числе зачеркнуть первую цифру справа и приписать его слева. Вывести полученное число.
Pascal
1
2
3
4
5
6
7
8
9
10
 var
    a,x,y,z : integer;
 begin
   write('Введіть тризначне число  ');
   readln (a);
   x:=a div 10 div 10;
   y:=a div 10 mod 10;
   z:=a mod 10;
   writeln ('Нове число =',y,z,x);
end.
2. Найти максимальное значение среди выражений (a*4; a^2+c; b+c)
Числа a,b,c вводятся с клавиатуры.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program N2_1;
var x,y,z,a,b,c,max: real;
begin
     write('введыть a=');
     readln(a);
     write('введыть b=');
     readln(b);
     write('введыть c=');
     readln(c);
     x:=4*a;y:=sqr(a)+c;z:=b+c;
     if x>y then max:=x else max:=y;
     if z>max then max:=z;
     writeln('Найбільше значення =',max:5:2);
end.
3.Найти значение Х.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program N2_2;
var x,a,b,x1,x2,x3:real;
   begin
     write('введіть a=');
     readln(a);
     write('введіть b=');
     readln(b);
     x1:=sqrt(a)*b-1;x2:=8;x3:=a*3+b;
     if a=b then x:=x1;
     if a<b then x:=x2;
     if a>b then x:=x3;
     writeln('X=',x:6:1);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2011, 01:12     Нужно перевести программы из Pascal в C
Посмотрите здесь:

нужно перевести с pascal на c++ - C++
Пусть N – натуральное число. Вычислить: y=1*2+2*3*4+3*4*5*6+...+N*(n+1)(n+2)*…*2n pascal не знаю....помогите пожалуйста var ...

Нужно Перевести программу с Turbo pascal на C++ - C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt; const nmax=10; var a:array of...

Перевести синтаксис программы с Delphi в C++, очень нужно - C++
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2...

Перевести с Pascal на C++ - C++
Была цепь длиной L, N рыбин. Зная координаты головы и хвоста каждой из них, подсчитайте, на какие сутки у собаки появится голод, если он...

Перевести из Pascal в C++ - C++
procedure RectPS(x1,x2,y1,y2: real); var p,s: real; begin begin P := (abs(x2-x1) + abs(y2-y1)) * 2; S := abs(x2-x1) *...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести с Pascal на C++ - C++
Каково содержание задачи? var a:array of integer; i,j,k,l,q,w,e:integer; begin // Randomize; for i:=1 to 10 do begin...

Перевести с pascal в C++ - C++
Помогите кто знает, вот код program pop; uses crt; label 10; var y,xn,xk,dx:real; begin clrscr; xn:=6;

Перевести с pascal на С++ - C++
const n=30; var c,a:array of integer; i,k,max:integer; begin {ввод массива c} for i:=1 to n do read(c); ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
diagon
Higher
1928 / 1194 / 49
Регистрация: 02.05.2010
Сообщений: 2,925
Записей в блоге: 2
01.06.2011, 06:14     Нужно перевести программы из Pascal в C #2
1(не переписывал с быдлокода, написал сам)
C++
1
2
3
4
5
6
7
8
9
10
#include <stdio.h>
int main(){
    int a,temp;
    printf("number:\n");
    scanf("%d",&a);
    temp=a%10;
    a/=10;
    printf("%d%d",temp,a);
    return 0;
}
Добавлено через 6 минут
2(переписал с паскаля)
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <stdio.h>
int main(){
    double a,b,c,x,y,z,max;
    printf("a, b, c:\n");
    scanf("%lf%lf%lf",&a,&b,&c);
    x=4*a;
    y=a*a+c;
    z=b+c;
    max=(x>y)?x:y;
    if (z>max) max=z;
    printf("max-%lg",max);
    return 0;
}
Добавлено через 5 минут
3(также перевел)
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include <stdio.h>
#include <math.h>
int main(){
    double a,b,x1,x2,x3,x;
    printf("a, b:\n");
    scanf("%lf%lf",&a,&b);
    x1=sqrt(a)*b;
    x2=8;
    x3=a*3+b;
    if (a ==b) x=x1;
    if (a < b) x=x2;
    if (a > b) x=x3;
    printf("X-%lg",x);
    return 0;
}
Ответ Создать тему
Опции темы

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