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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ некорректный вывод результата http://www.cyberforum.ru/cpp-beginners/thread120601.html
Суть программы: Пользователь вводит число (например 4), программа печатаем квадрат со сторонами соответственно 4*4 в виде * (звездочек). Теперь проблема: квадрат то выводит, а вот в конце еще символ лишний, которой там вообще не нужен. Может напутал что-то с типами переменных. Программу реализовать с помощью функции. (это сделано =)) #include<iostream.h> #include<conio.h> char side(int); ...
C++ Вывод текста на экран во время ожидания нажатия клавиши. Языс C, компилятор Borland C++ 3.1 for DOS. Прошу помочь и ответить на мой вопрос. Я пишу игру, управление в игре стрелками на клавиатуре - я это реализвал через функцию getc() - и там уже узнаю какая именно стрелка была нажата по её коду. Возникла такая проблема, когда функция getc() в ожидании - выполние кода приостанавливается. А мне необходимо сделать, чтобы на экране постоянно... http://www.cyberforum.ru/cpp-beginners/thread120600.html
C++ Сортировка структуры
Такая задача уже неоднократно была описана на вашем форуме но сортировки негде несмог найти: Написать функцию, которая читает данные о ноутбуках из файла note.txt (см. Задача 40) в структуру приведенного вида. Написать функцию, которая записывает содержимое структуры в конец бинарного файла. Структура бинарного файла: первые два байта (целое) число записей в файле; далее записи в формате...
C++ Найти произведение всех целых чисел в диапазоне от А до Б включительно
Помогите кто-нибудь пожалуйста я полный ноль в программировании... Нужно написать две простенькие програмки на С++. 1) Вводятся с клавиатуры координаты диагонали прямоугольника (типа "1 3 4 9"). Нужно найти площадь прямоугольника. Стороны параллельны осям координат. 2) С клавиатуры вводятся два целых числа А и Б (А<Б). Нужно найти произведение всех целых чисел от А до Б включительно. ...
C++ Консольное приложение начисления отпускных. http://www.cyberforum.ru/cpp-beginners/thread120567.html
Здравствуйте, пишу первый раз на данном форуме. Ищу помощь,в виде кода и коментариев к этой задачи. Программное обеспечение для начисления отпускных. Указание: При расчете суммы отпускных берутся все выплаты за последних 3 месяца предшествующих отпуску. В расчет среднего заработка входят: оклад + районный коэффициент+премии+сверхурочные +доплаты за совмещение: все выплаты, которые оговорены...
C++ Связный список Посчитать сколько слов, содержит текст поисзвольной длины. Разделителем между словами является символ пробела. Вывести на экран список всех встречающихся в тексте слов и их количество. Указание: использовать связный список. подробнее

Показать сообщение отдельно
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
22.04.2010, 20:32     с паскаля на Си++
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.
Добавлено через 18 секунд
помогите плиииз))))
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 22:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru