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

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

Восстановить пароль Регистрация
 
extazzy
1 / 1 / 0
Регистрация: 02.12.2009
Сообщений: 19
16.01.2010, 21:39     переделать программу из Pascal в язык С #1
Дано натуральное число 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
easybudda
Модератор
Эксперт С++
 Аватар для easybudda
9373 / 5423 / 914
Регистрация: 25.07.2009
Сообщений: 10,423
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
 Аватар для kazak
3029 / 2350 / 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++
 Аватар для valeriikozlov
4660 / 2486 / 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
 Аватар для kazak
3029 / 2350 / 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 в язык С
Ответ Создать тему
Опции темы

Текущее время: 02:16. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru