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

переписать из Pascal в C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ ошибка http://www.cyberforum.ru/cpp-beginners/thread216187.html
#include "stdafx.h" #include "string.h" int _tmain(int argc, _TCHAR* argv) { struct propushenniye { int no;
C++ cout выводит сообщение один раз..больше не хочет.... 13 и 14 строки выполняются только один раз при запуске программы. Почему? Все вроде правильно сделал :( #include "stdafx.h" #include <conio.h> #include <iostream> using namespace std; int check (int exit, int number); // в этой функции выполняются почти все действия программы int main() { http://www.cyberforum.ru/cpp-beginners/thread216184.html
C++ Определить количество столбцов матрицы, эквивалентных заданному.
Определить количество столбцов матрицы, эквивалентных заданному, и вывести их номера. Столбцы считать эквивалентными, если равны множества их элементов. #include <stdio.h> #include <time.h> #include <stdlib.h> #define LINE 3 #define COLUMNS 3 int main() {
Заменить элементы в матрице на наименьшие. C++
В заданной матрице каждый элемент Aij заменить минимальным среди всех элементов Apq таких, что p ≤ i и q ≤ j. (т.е. каждый элемент заменить на наименьший из тех индексы которых меньше или равны) Вот пока, то что написала... # include <stdio.h> # include <math.h> # include <stdlib.h> int random(int N)
C++ Динамическая память http://www.cyberforum.ru/cpp-beginners/thread216176.html
Как создать массив A через динамическую память ???
C++ надо написать программу на С++ и на Pascal ABC Привет! Помогите мне пожалуйста написать программу на С++ и на Pascal ABС Задание: Заполнить файл f натуральными числами, полученными с помощью генератора случайных чисел. Найти количество квадратов нечетных чисел среди компонентов. Заранее огромное спасибо:) подробнее

Показать сообщение отдельно
Darrius
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 18
20.12.2010, 20:07     переписать из Pascal в C++
Помогите пожалуйста переписать из 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program P1;
    uses crt;
 
  var f,g:file of integer;
  n,i,a,b,c:integer;
 
      begin
 
assign(f,'f');
rewrite(f);
assign(g,'g');
rewrite(g);
 
writeln('Введите количество чисел');
readln(n);
 
    for i:=1 to n do
  begin
a:=random(100);
write(f,a);
 end;
reset(f);
writeln('Содержание файла f:');
  while not eof(f) do
 begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
reset(f);
  for i:=0 to filesize(f)-2 do
 begin
seek(f,i);
read(f,a);
seek(f,i+1);
read(f,b);
c:=a*b;
write(g,c);
end;
reset(g);
writeln('Содержание файла g:');
  while not eof(g) do
 begin
read(g,a);
write(a,' ');
end;
close(g);
close(f);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 06:49. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru