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

Переписать проги с Pascal на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ МЕТОД ХОРД И КАСАТЕЛЬНЫХ http://www.cyberforum.ru/cpp/thread121493.html
Господа программисты, очень нужна ваша помощь. Нужно написать программу на C++, в ней решить любое уравнение от балды методом хорд и касательных. Сделайте пожалуйста кто знает и напишите сюда. Иначе могу потерять оценку автоматом по численным методам (((
C++ Линейная программа Всем привет! прошу помощи: Целой переменной S присвоить сумму цифр трехзначного целого числа k. http://www.cyberforum.ru/cpp/thread121318.html
C++ Поля на С++
Дана задача: надо ввести поле на C++, потом поделить его на 4-ре квадрата, потом поделить эти квадраты, каждый еще на 4, потом еще и еще... делить надо 4 раза. люди помогите хотя бы советом как это надо реализовывать... заранее спасибо откликнувшимся
C++ Собственное значение матрицы
Привет всем!Помогите пожалуйста написать прогу, вычисляющую наибольшее собственное значение матрицы размером 4*4.Заранее спасибо.
C++ Из ООП - динамическая структура через агрегацию http://www.cyberforum.ru/cpp/thread120941.html
Всем привет! Помогите реализовать динамическую структуру через агрегацию. есть абстрактный класс class iXml { public: virtual AnsiString TypePrint()=0;
C++ "я" это EOF?! У меня получился такой прокол - прога читает текст из файла, циклом, посимвольно, и букву "я" принимает за EOF! Догадываюсь, это идёт от того, что Ctrl+Z символ EOF. Как это обойти, подскажите, плз! подробнее

Показать сообщение отдельно
amsterdam22rus
29 / 29 / 2
Регистрация: 23.02.2010
Сообщений: 104

Переписать проги с Pascal на С++ - C++

25.04.2010, 10:46. Просмотров 384. Ответов 2
Метки (Все метки)

Помогите.
1# Переварачивает число.
Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var a: word; 
begin
clrscr;
write('Vvedite 4rehzna4noe 4islo: ');
readln(a);
write(a mod 10 * 1000 + a mod 100 div 10 * 100 + a div 100 mod 10 * 10 + a div 1000);
readkey;
end.
2# Считает числа в массиве, одинаковые числа учитываются один раз.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
   b:set of char;
   i,k:integer;
   a:string;
begin
     clrscr;
     write('Vvedite 4islo '); readln(a);
     b:=['0'..'9'];
     for i:=1 to length(a) do
     if  (a[i] in b)  then
      begin;
       k:=k+1;
       b:=b-[a[i]];
      end;
     write('Koli4estvo raznih simvolov ',k);
     readkey;
end.
3# Определяет правильность числа в плавающем формате.
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
uses crt;
var
   a:string;
   b:set of char;
   d,c,i:integer;
begin
     clrscr;
     write('Vvedite 4islo '); readln(a);
     b:=['0'..'9'];
     if a[1] in b then c:=c+1 else writeln(a[1],' ne yavlyaetsya 4islom 1 mesto');
     if a[2]='.' then c:=c+1 else writeln('net znaka "."');
     for i:=3 to length(a) do
     if a[i]='E'then d:=i;
     for i:=3 to d-1 do
     if a[i] in b then c:=c+1 else writeln(a[i], ' ne yavlyaetsya 4islom ', i, ' mesto ');
     if d<4 then
        begin
             c:=c-1; writeln('net pokazatelya stepeni')
        end
     else if (a[d+1]<>'-') and (a[d+1]<>'+') then
          begin
          writeln('posle E otsutstvuet znak');
          c:=c-1;
          end
     else if a[d+2] in b then c:=c+2 else writeln('net 4isla stepeni');
     if d>3 then
     for i:=d+2 to length(a) do
     if a[i] in b then c:=c+1 else writeln(a[i], ' ne yavlyaetsya 4islom ', i, ' mesto ');
     if c=length(a) then writeln('4islo pravelno');
     readkey;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 13:58. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru