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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Задержать закрытие окна консоли после выполнения программы http://www.cyberforum.ru/cpp-beginners/thread86556.html
Какой командой задержать экран C++ после выполнения программы, а то он сразу исчезает.
C++ стандартные функции подскажите кто знает где можно почитать про стандартные функции типа Sleep() setTikccount() beep() http://www.cyberforum.ru/cpp-beginners/thread86554.html
C++ Шифрование и кодирование (lz77)
помогите написать програму!!!! метод шифрования LZ77
C++ Двумерные массивы, надо написать программу по целочисленной прямоугольной матрице
Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента; 2) максимальное из чисел, встречающихся в заданной матрице более одного раза Добавлено через 57 секунд нужно очень срочно бы
C++ Матрици!!! Почему не вводится 5 строка матрици и невыводится сумма? http://www.cyberforum.ru/cpp-beginners/thread86531.html
Задана матрица квадратная А действительных чисел. Найти сумму элементов тех строк матрици, в которых элемент главной диагонали отрицательный. #include "stdafx.h" #include "iostream" #include "conio.h" const int column=5; const int row=5; using namespace std; int main() {int array ;
C++ считать из файла и определить является прочитанное числом Здравствуйте. В общем нужно произвести чтение из файла и определить является ли прочитанное числом в общем случае и целым в частности. погуглив наткнулся на функцию isdigit с помощью которой это можно сделать, но не работает. А как определить целое или нет даже не знаю. #include<iostream.h> #include <stdio.h> #include <stdlib.h> #include<windows.h> #include<ctype.h> int main () { ... подробнее

Показать сообщение отдельно
extazzy
1 / 1 / 0
Регистрация: 02.12.2009
Сообщений: 19

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

16.01.2010, 21:39. Просмотров 507. Ответов 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.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru