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

из паскаля в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Рисования графика http://www.cyberforum.ru/cpp-beginners/thread124143.html
Есть функция y=x, надо построить график функции интервал например
C++ Формулы Гаусса и Ньютона-Котеса Всем тем кто читает мою тему!!! Привет!!! Я очень надеюсь на вашу помощь,и искренне верю что кто-нибудь мне поможет!!! Народ выручайте,я совсем не понимаю С++ и Визуал Студио,а мне вот через 1... http://www.cyberforum.ru/cpp-beginners/thread124136.html
Вставка в линейный список C++
Привет всем, не пойму почему функция insert не правильно работает(, а в частности, установление нового узла с предыдущим. После вставки нового узла у меня указатель на предыдущий элемент содержит...
C++ Построить Х из *
Добый день господа программисты! Пожалуста, помогите решить задачу... у меня нет даже малейшей идеи как ее решить:( Собственно, задача такая: Необходимо построить из * букву Х, причем если введена...
C++ Метод половинного деления...(непонятная функция) http://www.cyberforum.ru/cpp-beginners/thread124124.html
Программка, для реализации численного метода половинного деления СЛАУ а^x-b - c - x = 0 а , b , c - вводятся!!! Что то сколько не просмотрел уравнений нигде в уравнениях, я не увидел что бы...
C++ Написать программу, которая находит сумму строк матрицы Привет всем! Помогите мне пожалуйста: Написать программу, которая находит сумму строк матрици. В функцию передается парам. матрици. Этот массив передается через указатель. подробнее

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

из паскаля в С++ - C++

01.05.2010, 16:35. Просмотров 430. Ответов 3
Метки (Все метки)

Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++:
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
Program Example;
uses crt;
Type mas=array [-100..50] of Integer;
var a,m: mas;
    n,s,k,mini: Integer;
Procedure Vvod(var a: mas);
var i: Integer;
begin
   Writeln('Введите количество элементов');
   Readln(k);
   Writeln('Введите элементы');
   For i:=1 to k do
   Readln(a[i]);
end;
 
Procedure Vivod(a: mas);
var i: Integer;
begin
   For i:=1 to k do
   Write(a[i]:3);
   Writeln;
end;
 
Function min(a:mas): Integer;
Var i, mini,nomer : Integer;
Begin
mini:=a[2];
FOR i:= 2 TO k  do
    begin
    IF (i MOD 2 = 0) AND   (a[i]<mini) THEN mini:= a[i];
    end;
  min:=mini;
End;
 
Begin
writeln('Начало программы');
writeln('Ввод целочисленного массива Х');
Vvod(a); {обращение к процедуре формирования}
Vivod(a);
s:=min(a);
writeln('минимальный чётный элемент массива = ', s);
writeln('Ввод целочисленного массив Y ');
Vvod(a); {обращение к процедуре формирования}
Vivod(a);
s:=min(a);
writeln('минимальный чётный элемент массива = ', s);
Readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru