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

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

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

переделать программу из Pascal в язык С - C++

16.01.2010, 21:39. Просмотров 505. Ответов 5
Метки нет (Все метки)

Дано натуральное число n, равное выраженной в копейках цене некоторого товара, например, 317, 5005, 100 и т. д. Выразить цену в рублях и копейках, согласовав окончания, например, 3 рубля 17 копеек, 50 рублей 5 копеек, 1 рубль (рубли и копейки могут не указываться, если их число равно 0)..

Вот програмка.
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
uses crt;
var n,r:longint;
k:integer;
 
begin
 clrscr;
 write('-> ');
 readln(n);
 r:=n div 100;
 k:=n mod 100;
 
 if r>0 then
 case r mod 100 of
 11..19:write(r,' рублей ');
 else case r mod 10 of
   1:write(r,' рубль ');
   2..4:write(r,' рубля ');
   else write(r,' рублей ');
   end;
 end;
 
 if k>0 then
 case k mod 100 of
 11..19:write(k,' копеек');
 else case k mod 10 of
   1:write(k,' копейка');
   2..4:write(k,' копейки');
   else write(k,' копеек');
   end;
 end;
 
 readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2010, 21:39     переделать программу из Pascal в язык С
Посмотрите здесь:

переделать программу из pascal в C++ - C++
Ребят помогите пожалуйста переделать программу в с++ вот ссылка на прогрумму тут просто не все формулы открывает ...

Переделать программу написанную на Pascal в С++ - C++
Задание Вариант 1 Вычислить определенный интеграл от функции f(x) на промежутке методом прямоугольников. f(x) = 2sin x cos x + sin...

переделать программу Pascal -> C++ (Восстановить исходную матрицу и напечатать ее по строкам) - C++
с паскаля на с++...буду очень признателен. вот текст задачи. Квадратная матрица, симметричная относительно главной диагонали, задана своим...

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

Перевести с Borland Pascal на язык С++ - C++
Помогите пожалуйста )))) uses Crt; const n=16; x=0.5; p:array of...

Перевести код с языка Pascal на язык С++ - C++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter count = ');readln(n); rez:=1; ...

Перевести код с языка Pascal на язык C++ - C++
Необходимо переписать данный код на C++. const eps = 1e-4; function pow(x : Real; k : Integer) : Real; var r : Real; begin ...

Переделать код с Pascal на С++ - C++
uses crt; const n1='Name1.txt'; n2='Name2.txt'; n3='Name3.txt'; var f1,f2,f3:text; s1,s2:string; begin clrscr; ...

Переделать код с Pascal на С++ - C++
Имеется данный код: uses crt; var f,h,g:text; s:arrayof string; n,i:integer; begin clrscr; assign(f,'file_ob.txt'); ...

Переделать из Pascal в C++. Сумма ряда - C++
Program besconecs; uses crt; var n,k:integer; S,elem,e:real; begin clrscr; e:=0.0001; S:=0; n:=0; elem:=1;

Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) - C++
Всем привет. Вот необходимо переписать этот код на С++ помогите плз: Задание 1. Найти максимальную цифру в тексте строки. uses...

Нужно программу на Паскале переделать в программу на С++ - C++
Помогите, пожалуйста!!! У меня есть программа на Паскале , а нужно ее переписать, чтобы она была на С++ (windows консоль). Текст...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
easybudda
Эксперт С++
9458 / 5471 / 927
Регистрация: 25.07.2009
Сообщений: 10,495
16.01.2010, 22:02     переделать программу из Pascal в язык С #2
вроде не ошибается... проверьте:
C
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
48
49
50
51
52
53
54
#include <stdio.h>
 
/*
    Дано натуральное число n, равное выраженной в копейках цене некоторого товара, например, 317, 5005, 100 и т. д. 
    Выразить цену в рублях и копейках, согласовав окончания
*/
 
int main(void){
    int rub, kop;
    
    printf("Цена в копейках: ");
    if ( scanf("%d", &kop) != 1 || kop < 1 )
        return 1;
    rub = kop / 100;
    kop %= 100;
    printf("%d ", rub);
    if ( rub > 10 && rub < 15 )
        printf("рублей ");
    else {
        switch ( rub % 10 ){
            case 1 :
                printf("рубль ");
                break;
            case 2:
            case 3:
            case 4:
                printf("рубля ");
                break;
            default :
                printf("рублей ");
                break;
        }
    }
    printf("%d ", kop);
    if ( kop > 10 && kop < 15 )
        printf("копеек\n");
    else {
        switch ( kop % 10 ){
            case 1 :
                printf("копейка\n");
                break;
            case 2 :
            case 3 :
            case 4 :
                printf("копейки\n");
                break;
            default :
                printf("копеек\n");
                break;
        }
    }
    
    return 0;
}
kazak
3034 / 2355 / 155
Регистрация: 11.03.2009
Сообщений: 5,401
16.01.2010, 22:06     переделать программу из Pascal в язык С #3
C
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
#include <stdio.h>
#include <conio.h>
 
int main(int argc, char* argv[])
{
   int accaunt, rubl, kop;
 
   printf("Vvedite kolichestvo kopeek: ");
   scanf("%i", &accaunt);
   rubl = accaunt / 100;
   kop = accaunt % 100;
 
   if ((rubl %100) >= 5)
      printf("%i rublei ", rubl);
   else if ((rubl % 100) >= 2)
      printf("%i rublya ", rubl);
   else if ((rubl % 100) == 1)
      printf("%i rubl' ", rubl);
   if ((kop % 100) >= 5)
      printf("%i kopeek\n", kop);
   else if ((kop % 100) >= 2)
      printf("%i kopeiki\n", kop);
   else if ((kop % 100) == 1)
      printf("%i kopeika\n", kop);
 
   getch();
   return 0;
}
valeriikozlov
Эксперт C++
4669 / 2495 / 321
Регистрация: 18.08.2009
Сообщений: 4,550
16.01.2010, 22:14     переделать программу из Pascal в язык С #4
Например rubl равен 21, то будет выполнено
Цитата Сообщение от kazak Посмотреть сообщение
if ((rubl %100) >= 5)
printf("%i rublei ", rubl);
то же самое с kop
kazak
3034 / 2355 / 155
Регистрация: 11.03.2009
Сообщений: 5,401
16.01.2010, 22:17     переделать программу из Pascal в язык С #5
Мда.. немнога лиха хватил
extazzy
1 / 1 / 0
Регистрация: 02.12.2009
Сообщений: 19
16.01.2010, 22:34  [ТС]     переделать программу из Pascal в язык С #6
Спасибо всем, буду должен
Yandex
Объявления
16.01.2010, 22:34     переделать программу из Pascal в язык С
Ответ Создать тему
Опции темы

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