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

с паскаля на Си++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ RSA шифрование http://www.cyberforum.ru/cpp-beginners/thread120057.html
Народ кому не жалко выложите алгоритм шифрования методом RSA нужен самописный а не с помощью библиотек
C++ Проверить, является ли четырехугольник ромбом помогите ребята,ужас как срочно надо,пожалуйста 1. составить программу, которая определяет, можно ли построить треугольник со следующими сторонами а) 3, 7, 9; б) x, y, z; в) 2x, 3y, x+y. Для проверки, существует ли треугольник с данными сторонами,использовать функцию treugolnik. В роли аргументов функции выступають стороны, результат логичного типа. // функция определяет может ли существовать... http://www.cyberforum.ru/cpp-beginners/thread120031.html
C++ сумма цифр
Дано натуральное число n (n > 9). Определить сумму цифр в первой половине числа (старшие разряды). Пример. n = 12345678. Сумма составляет 1 + 2 + 3 + 4 = 10. помогите пожалуйста:)
записать в файл с помощью датчика случайных чисел N натуральных чисел C++
записать в файл с помощью датчика случайных чисел N натуральных чисел а1.а2...аn.Сформировать новый файл. элементами которого являются числа а1, а1*a2 ,a1*a2*a3, a1*a2*a3*...an
C++ Ошибка при работе с реестром http://www.cyberforum.ru/cpp-beginners/thread120005.html
#include <Registry.hpp> ... void __fastcall TForm1::FormCreate(TObject *Sender) { TRegistry *Reg = new TRegistry; Reg->RootKey=HKEY_LOCAL_MACHINE; try {
C++ Разработать программу, моделирующую обстановку у киоска от момента начала образования очереди ЗАДАЧА 7 В газетный киоск стоит очередь желающих купить популярные издания «Караван» и «Казахстанская правда». Каждый из стоящих имеет намерение купить один или несколько экземпляров интересующих его изданий, но продавец продает только по одному экземпляру каждого издания. Издания подвозят двумя партиями по М штук, причем в каждой партии издания только одного наименования. Разработать функцию... подробнее

Показать сообщение отдельно
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
21.04.2010, 17:47     с паскаля на Си++
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
var a:array[1..100] of integer;
    i,n,max,min:integer;
    c:char;
 
begin
ClrScr;
repeat
writeln('Выберите действие:');    {меню}
writeln('1-ввод массива целых чисел');
writeln('2-вывод массива в строку');
writeln('3-минимальный элемент.замена отрицательных чисел этим мин.элементом');
writeln('4-формирование массива');
writeln('другое - выход');
readln(c);
case c of
'1':begin            {Ввод массива}
ClrScr;
Write('Введите размерность массива=');
Readln(n);
    for i:=1 to n do
     begin
     Writeln ('Введите ',i,' элемент массива');
     Readln(a[i]);
     Writeln;
     end;
   end;
 
'2':begin         {вывод массива в строку}
ClrScr;
  if n=0 then Writeln('следуйте пунктам меню!!!')
  else
    for i:=1 to n do
     Write(a[i],' ');
     Writeln;
     Writeln;
    end;
'3':begin         {Поиск минимального элемента среди положительных элементво массива}
ClrScr;
  if n=0 then Writeln('следуйте пунктам меню!!!')
  else
    min:=32767;
      for i:=1 to n do
        if a[i]>0 then
          begin
             if a[i]<min then
             min:=a[i];
          end;
      Writeln('Min= ',min);
   end;
'4':begin        {Замена минимальным элементов всех отрицательных чисел массива}
ClrScr;
  if n=0 then Writeln('следуйте пунктам меню!!!')
  else
    for i:=1 to n do
      if a[i]<0 then
      a[i]:=min;
      Writeln('Полученный массив: ');
        for i:=1 to n do
          Write(a[i],'  ');     {полученный массив}
          Readln;
       end;
    end;
until not(c in ['1'..'4']);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 15:00. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru