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

Перевести из паскаля в с (подсчет отрицательных элементов) - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Структура данных, запись в файл, её считывание http://www.cyberforum.ru/cpp-beginners/thread1182977.html
помогите срочно, данные не записываются в файл, ну и темболее не считываются #include <vcl.h> #pragma hdrstop #include <iostream.h> #include <fstream.h> #include <stdlib.h> #include <stdio.h> #include "Unit1.h" #include <string.h>
C++ Угадать число методом половинного деления Загадывается число от 1 до 1000 и компьютер его угадывает согласно подсказкам больше или меньше. Используем метод половинного деления. http://www.cyberforum.ru/cpp-beginners/thread1182969.html
C++ Переделать в классе-календаре функцию нормализации дней в месяце.
В общем, нужно было написать календарь. Сделал я это, мягко говоря, не самым лучшим образом. А именно: #include <iostream> #include <conio.h> #include <time.h> #include <math.h> using namespace std; class Date { //Класс "Дата" int year; //Год int month; //Месяц
Поиск числа в файле, открытым в бинарном режиме C++
Здравствуйте уважаемые дамы и господа, возник вопрос по поводу поиска числа в бинарном файле. Допустим имеется код: #include <iostream> #include <conio.h> using namespace std; void main(){ int t = 247; t = t - 246; cout << t << endl;
C++ Упаковка std :: vector <bool> в байты http://www.cyberforum.ru/cpp-beginners/thread1182954.html
Добрый Вечер! возникла проблема: нужно элементы std::vector<bool> упаковать в байты для последующей записи в файл собственно, вопроса два: 1. как это сделать? 2. как потом нужно поступить с файлом (какие функции использовать и открывать ли файл в бинарном режиме для этого?)
C++ Проблема с перегрузкой операторов "+" и "+=" для классов Point и Circle Есть класс Point (элементы данных x,y) и класс Circle (элементы данных р(типа Point),r). Их заголовочные файлы: class Point { private: double x, y; public: Point(); Point(double a, double b); Point(const Point &obj); Point move(double a, double b); подробнее

Показать сообщение отдельно
Nikkel
0 / 0 / 0
Регистрация: 19.02.2014
Сообщений: 3
21.05.2014, 04:38     Перевести из паскаля в с (подсчет отрицательных элементов)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const n=6;m=5;
Var A:array[1..n,1..m] of real;
    B:array[1..n] of byte;//для подсчёта кол-ва отрицательных
    i,j,imax:byte;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random*10-5;
        write(A[i,j]:6:2,' ');
        if A[i,j]<0 then inc(B[i]);
      End;
      writeln;
    End;
    imax:=1;
    For i:=2 to n do
     if B[i]>B[imax] then imax:=i;
    writeln('Max кол-во отрицательных в ',imax,' строке их там = ',B[imax]);
    readln;
End.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 12:42. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru