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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Приведение указателя на void к другому типу? http://www.cyberforum.ru/cpp-beginners/thread32844.html
в поиске смотрел - не помогло! Возникла проблемка: В книге сказано, что указателю на void можно присваивать все типы указателей без приведения типа. Пока все понятно. Однако указатель на void не...
C++ Палиндром и автоморфное число Помогите в решении этих задач! В с++ вообще ничего не понимаю! 1. Дано четырехзначное число N. Выяснить, является ли оно палиндромом. 2. Дано натуральное число N. Определить, является ли оно... http://www.cyberforum.ru/cpp-beginners/thread32842.html
C++ процедуры
найдите все делители данных 10 чисел. Проверьте, у каких из них есть совпадающие делители; P.S. процедуры
C++ использование функций
данные 6 комплексных чисел упорядочить по возрастанию модулей;
C++ считать строки из файла и вывесте конечный результать.. http://www.cyberforum.ru/cpp-beginners/thread32824.html
Мне надо найти количество строк, заполенных значениями для матриц. Вот пример текстового файла: //matrice GHSERp pour ferrite //temperature i j l valeur 0 1 0 0 -99.808 //Мне нужно считать строки...
C++ Морской бой Написал морской бой. Просьба прокоменнтировать, улучшить где возможно и помочь написать ИИ. Вот исходники: #include <iostream> #include <iomanip> #include <cstdlib> using namespace std; ... подробнее

Показать сообщение отдельно
XperT-AsT
0 / 0 / 0
Регистрация: 31.03.2009
Сообщений: 7

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

05.05.2009, 16:50. Просмотров 821. Ответов 6
Метки (Все метки)

в С++ сосем "профан", да и паскаль толком не знаю
задачи частенько делаю с помощью вашего форума

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

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