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

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

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

Показать сообщение отдельно
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97

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

22.04.2010, 20:32. Просмотров 292. Ответов 0
Метки (Все метки)

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 секунд
помогите плиииз))))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru