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

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

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

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

01.06.2011, 01:12. Просмотров 450. Ответов 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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2011, 01:12
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужно перевести программы из Pascal в C (C++):

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

Нужно перевести на язык Pascal - C++
Помогите перевести на язык Pascal, заранее благодарен! struct PRICE { char tovar; char mag; int cena; }; ...

Нужно Перевести программу с 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++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then begin writeln('1'); ...

Перевести с Pascal в С++ - C++
var a,b:string; c,d,i:integer; begin readln(a); for i:=1 to pos(' ',a) do delete(a,1,1); for i:= length(a) downto pos(' ',a)...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
diagon
Higher
1929 / 1195 / 49
Регистрация: 02.05.2010
Сообщений: 2,925
Записей в блоге: 2
01.06.2011, 06:14 #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;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2011, 06:14
Привет! Вот еще темы с ответами:

перевести с Pascal на С++ - C++
переведите пожалуйста на С++ uses crt; var a,s,x:real; i:integer; eps:real; function fct(n:integer): real; var f: real;...

Перевести с Pascal на C++ - C++
Есть код на Паскале, хотел бы сам перевести его в С++, но подчистую забыл, что такое Паскаль. Помоги, люди добрые) procedure sort(var...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести из 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...


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

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

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