Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
1

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

21.04.2010, 17:47. Просмотров 763. Ответов 2
Метки нет (Все метки)

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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2010, 17:47
Ответы с готовыми решениями:

Закрыть вкладки Паскаля при исполнении Паскаля
В Паскаль АВС.Нет открыто несколько вкладок. Запускается следующая программа (вкладка). Как в нее...

Построить треугольник Паскаля. Используя треугольник Паскаля, вычислить 𝑘−ое число Фиббоначчи. Нумерация чисел Фиббона
#include &lt;iostream&gt; using namespace std; int main() { setlocale(LC_ALL, &quot;Russian&quot;); ...

из паскаля в С++
Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++: Program Example; uses...

С Паскаля на С++
Дана целочисленная матрица размера M × N. Найти количество ее строк, все элементы которых различны....

2
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
22.04.2010, 20:11  [ТС] 2
помогите пожалуйста...на си не работаем,все на паскале,а тут выдали-давайте делайте...и особо то про Си ничяего не рассказывали((((
0
2341 / 497 / 22
Регистрация: 01.04.2009
Сообщений: 2,200
23.04.2010, 13:26 3
"помогите пожалуйста" - это значит "сделайте за меня"?
тема висела два дня, значит ее решение для вас - не вопрос жизни и смерти.

а если вы знаете паскаль, значит умеете программировать.
лень поизучать часок семантику с/с++?
радикальных различий между этими языками нет, это вам не Prolog и не Lisp.

делайте программу на с/с++ как получается, и если что не идет - задавайте конкретные вопросы.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2010, 13:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

С Паскаля на С++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных ...

с Паскаля на Си
Здравствуйте. Очень прошу помощи. есть код на паскале, нужно его на си переписать, буду благодарна...

с паскаля на C++
кто может перевести из Pascal в C++? uses crt; var x,e,t,s:real; n:integer; begin...

С паскаля в С++
{task array6} const maxSize=100; type Tarr=array of integer; var m:Tarr; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.