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

С Pascal(я) на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Разработка программ из многофайловой структурой http://www.cyberforum.ru/cpp-beginners/thread32701.html
Очень прошу помощи в следующем задании (сам сделать не могу, а лабораторную сдавать надо. P.S: препод внимания на эту тему вообще не уделял, так что помогите кто соображает на С++): Составить проект для многофайловой структуры программы. Разработать заглавных файл содержащий глобальные данные и объявления внешних функций. Разработать вспомогательный файл содержащий определение внешних...
C++ Работа с объектами классов Всем здраствуйте. Помогите если вам не так сложно :) Вот сейчас я поясню, то что не могу сделать: В соответствии с написанной программой разработать алгоритм работы с объектами базовых и производных классов с использованием указателей на базовые и производные классы Вообщем, помогите сделать эту программу с использованием виртуальных указателей для работи с объектами классов Эта... http://www.cyberforum.ru/cpp-beginners/thread32525.html
C++ Целочисленная матрица
Ни могу решить........помогите кто может. Упорядочить строки целочисленной прямоугольной матрицы по возрастоянию количества одинаковых элементов в каждой строке.
В поисках совершенных абстракций C++
Для C++ существует огромное множество библиотек выполненных в различных техниках исполнения. Программисты создавшие их следовали разным ментальным моделям. К сожалению лично мне использование этих творений неудобно, хотя они и предоставляют весь нужный функционал. Похоже проблема в том, что сами программисты создавая свои творения мыслили в парадигме обобщённого функционального, вместо...
C++ Совместное использование классов http://www.cyberforum.ru/cpp-beginners/thread32413.html
Здравствуйте, возник такой вопрос, как следует писать код, чтобы 2 не зависимых класса могли использовать друг друга? Вот к примеру код #include <iostream.h> #include "2.h" #include "1.h" int main() { one o;
C++ Шашки Вкратце опишу суть проблемы. Препод задал лабу делать что-то на подобии шашек. Только само задание состоит в том что, на доске появляется рандомное кол-во шашек на рандомных клетках. Пользователю дается возможность выбрать одну из шашек и сделать ей 1 ход. Задача состоит в том, чтобы проверить существует ли этот ход. по заданию - все. Возникшие вопросы: 1. Как осуществить рандомное... подробнее

Показать сообщение отдельно
XperT-AsT
0 / 0 / 0
Регистрация: 31.03.2009
Сообщений: 7
05.05.2009, 16:50     С Pascal(я) на C++
в С++ сосем "профан", да и паскаль толком не знаю
задачи частенько делаю с помощью вашего форума

Суть.
Имеются две задачи на Паскале, которые прошу Вас переделать под С++

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
//Определить сумму элементов массива N кратных трём
Program Project;
uses crt;
Var
    k,i,q,s:integer;
    N:array [1..40] of integer;
Begin
clrscr;
    writeln('naxojdenie summy elementov massiva kratnyx 3');
    writeln('vvedite kol-vo elementov v vektore: ');
    readln(q);
    k:=0;
    S:=0;
    writeln('teper vvedite elementy 4erez ENTER');
    for i:= 1 to q do
     begin
         write('N[',i,'] = ');
         read (N[i]);
         if N[i] mod 3=0 then
           begin
            k:=k + 1;
            S:=S+N[i];
           end;
        end;
     if k = 0 then writeln('Elementov kratnyx 3 NET!')
       else begin
            writeln('       Vektor N');
            for i:=1 to q do
            write (N[i]:4);
            writeln();
            writeln('Summa elementov massiva kratnyx 3: ',s:4);
            end;
End.
и ВТОРАЯ
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
//Dlya celo4islennoi matricy naiti dlya kajdoi stroki 4islo elementov kratnyx pyati i naibol'wii iz polu4ennyx rezul'tatov
program kratnye_pyati;
uses crt;
var a:array[1..20,1..20] of integer;
    n,i,j,k,max,imax:integer;
begin
clrscr;
writeln('Naxoldeie 4isla el-ov stroki kratnyx 5!');
write('Vvedite razmer matricy n=');
readln(n);
{vvod massiva}
for i:=1 to n do
for j:=1 to n do
   begin
    write('a[', i, ',', j, '] = ');
    readln(a[i,j]);
   end;
{vyvod massiva}
writeln;
writeln('   Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
  writeln;
{max-eto kol-vo elementov kratnyx 5.
imax-eto nomer stroki v kotoroi naibol'wee kol-vo nujnyx elementov}
max:=0;
imax:=1;
for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do
   {proverka KRATNOSTI 5ti}
   if a[i,j] mod 5=0 then
   k:=k+1;
   writeln('V stroke # ',i,'  ',k,' elementov');
   {proverka na max}
   if k>max then
     begin
       max:=k;
       imax:=i;
     end;
  end;
writeln;
writeln('Naibolshae kolichestvo elementov = ',max,'   v stroke # ',imax);
readln
end.
прошу не оставлять без внимания
Заранее Всем СПОСИБО!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 23:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru