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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
ZayacV
2 / 2 / 2
Регистрация: 27.10.2013
Сообщений: 72
#1

Помогите переписать из Паскаля на С++ - C++

03.05.2014, 20:43. Просмотров 157. Ответов 1
Метки нет (Все метки)

Помогите переписать из Паскаля на С++
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
var
j,i:integer;
N:integer;
Max:real;
a,b:real;
Mas: array [1..100] of real;
begin
 write('Введите N ( N < 100):'); readln(N);
 write('Введите a:'); readln(a);
 write('Введите b:'); readln(b);
 
for i:=1 to N do
  begin
  write('Mas[',i,']=');
  read(Mas[i]);
  end;
writeln('Результат');
max:=Mas[1];
for i:=2 to N do
  begin
  if Mas[i]>Max then max:=Mas[i];
  end;
j:=1;
for i:=1 to N do
  begin
    mas[j]:=mas[i];
  if (Mas[i]>=a)and(mas[i]<=b) then dec(j);
    inc(j);
 end;
for i:=j to N do mas[i]:=0;
writeln;
for i:=1 to N do writeln('mas[',i,']=',mas[i]);
writeln;
writeln('Max=',Max);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2014, 20:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Помогите переписать из Паскаля на С++ (C++):

переписать из паскаля в с++ - C++
var n, i, max, cnt : Integer; a : array of Integer; begin ReadLn (n); for i := 1 to n do Read (a);

Переписать из паскаля - C++
Здравствуйте помогите пожалуйста переписать на с++:) var a,b:array of integer; n,i,c,d,mind:integer; begin read(n); for...

Переписать с Паскаля на С++ - C++
Ребят, можете переписать с Паскаля на С++ program PROGRAMMA7; uses crt, graph; const n=100; m=100; h=1; dt=0.2; var ...

Переписать с Паскаля в с++ - C++
Помогите пожалуйста - переделать программу на с++ с использованием структур - очень прошу всех откликнуться... type student=record ...

Переписать с паскаля на С - C++
Помогите переписать на язык С program tabul; uses crt,graph; const a1=6;b1=14;h1=0.25; label metka; var a,b,h,x1,y1:real; ...

Переписать с Паскаля на C++ - C++
Все доброго времени суток. Нужно переписать программу с паскаля на плюсы. Смысл программы в том, что она расставляет скобки приоритета для...

1
Goido Kodaka
0 / 0 / 0
Регистрация: 08.04.2014
Сообщений: 16
03.05.2014, 20:56 #2
C++
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
#include <stdio.h>
 
void main()
{
  int i,j,N;
  float a,b,Max;
  float Mas[100];
  printf("Введите N ( N < 100): "); scanf("%d",&N);
  printf("Введите a: "); scanf("%f",&a);
  printf("Введите b: "); scanf("%f",&b);
  for (i = 0; i < N; i++)
  {
    printf("Mas[%f]=",i);
    scanf("%f",&Mas[i]);
  }
  printf("Результат\n ");
  Max = Mas[0];
  for (i = 1; i< N; i++)
    if (Mas[i] > Max) Max = Mas[i];
  j = 0;
  for (i = 0; i<N; i++)
  {
    Mas[j] = Mas[i];
    if (Mas[i]>=a && Mas[i]<=b)
      j--;
    j++;
  }
  for (i = j; i<N; i++)
    Mas[i] = 0;
  printf("\n");
  for (i = 0; i<N; i++)
    printf("Mas[%f]=",Mas[i]);
  printf("\n");
  printf("Max=%f\n,Max");  
}
Как-то так)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2014, 20:56
Привет! Вот еще темы с ответами:

Переписать с Паскаля на С++ - C++
program ClassificationYard; const Nmax = 100; type TRailroadCars = (TypeA, TypeB); TArray = array of TRailroadCars; ...

Переписать з паскаля на С - C++
Нужно переписать две програми з Turbo pascal в Turbo C 1. Визначення, чи дорівнює сума цифр цілої частини дійсного числа сумі такої ж...

Переписать из Паскаля в С++ - C++
Суть в том, что есть программы написанные на Паскале, их нужно написать на С++. а я вообще не дружу с этим языком. Дорогие умельцы, если не...

Переписать с паскаля на С++ - C++
Переведите плиз вт это в С++ Заранее Сапасибо!!!! var ms:array of integer; max,s,k,i:integer; begin


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

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

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