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

Перевести из паскаля нахождение строк с наибольшим количеством нулей - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Перевести из паскаля в с (подсчет отрицательных элементов) http://www.cyberforum.ru/cpp-beginners/thread1182998.html
Const n=6;m=5; Var A:array of real; B:array of byte;//для подсчёта кол-ва отрицательных i,j,imax:byte; Begin For i:=1 to n do Begin For j:=1 to m do Begin A:=random*10-5;
C++ Структура данных, запись в файл, её считывание помогите срочно, данные не записываются в файл, ну и темболее не считываются #include <vcl.h> #pragma hdrstop #include <iostream.h> #include <fstream.h> #include <stdlib.h> #include <stdio.h> #include "Unit1.h" #include <string.h> http://www.cyberforum.ru/cpp-beginners/thread1182977.html
Угадать число методом половинного деления C++
Загадывается число от 1 до 1000 и компьютер его угадывает согласно подсказкам больше или меньше. Используем метод половинного деления.
C++ Переделать в классе-календаре функцию нормализации дней в месяце.
В общем, нужно было написать календарь. Сделал я это, мягко говоря, не самым лучшим образом. А именно: #include <iostream> #include <conio.h> #include <time.h> #include <math.h> using namespace std; class Date { //Класс "Дата" int year; //Год int month; //Месяц
C++ Поиск числа в файле, открытым в бинарном режиме http://www.cyberforum.ru/cpp-beginners/thread1182955.html
Здравствуйте уважаемые дамы и господа, возник вопрос по поводу поиска числа в бинарном файле. Допустим имеется код: #include <iostream> #include <conio.h> using namespace std; void main(){ int t = 247; t = t - 246; cout << t << endl;
C++ Упаковка std :: vector <bool> в байты Добрый Вечер! возникла проблема: нужно элементы std::vector<bool> упаковать в байты для последующей записи в файл собственно, вопроса два: 1. как это сделать? 2. как потом нужно поступить с файлом (какие функции использовать и открывать ли файл в бинарном режиме для этого?) подробнее

Показать сообщение отдельно
Nikkel
0 / 0 / 0
Регистрация: 19.02.2014
Сообщений: 3
21.05.2014, 04:41     Перевести из паскаля нахождение строк с наибольшим количеством нулей
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
Var i,j,n,m,max,imax:integer;
    A:array[1..20,1..20] of integer;
Function Kol(i:integer):byte;
Var j,k:integer;
Begin
    k:=0;
    For j:=1 to m do
     if A[i,j]=0 then inc(k);
    Kol:=k;
End;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов ');readln(m);
    max:=0;
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=random(10)-5;
        write(A[i,j]:3);
       End;
      writeln;
      if Kol(i)>max then 
       Begin
        max:=Kol(i);
        imax:=i;
       End;
     End;
    if max<>0 then 
     Begin
      write('Строки с наибольшим кол-ом нулей: ',imax);
      For i:=1 to n do
       if (Kol(i)=max)and(i<>imax) then write(i:3);
     End
      else writeln('Нет строк содеражащих нули');
    readln;
End.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 22:32. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru