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

C++

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 60, средняя оценка - 4.73
Максим_Лост
3 / 3 / 1
Регистрация: 22.01.2010
Сообщений: 89
#1

Перевод из Паскаля в СИ. - C++

29.04.2010, 20:36. Просмотров 9118. Ответов 2
Метки нет (Все метки)

Доброго времени суток. Помогите перевести программу из паскаля в СИ.

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
Program oblast;
uses crt;
var a,b,z:real; c:boolean;
begin
clrscr;
write('Введите a=');
readln(a);
write('Введите b=');
readln(b);
c:=(a>=-10)and(a<=10)and(abs(b)<=sqrt(400-a*a));
if c
then
 begin
  writeln('Точка попадает в область');
  z:=(a+b)/2;
 end
else
 begin
  writeln('Точка не попадает в область');
  if a>b then z:=0.1*a
  else z:=0.1*b;
 end;
write('Z=',z:0:2);
readln
end.
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
program massiv;
uses crt;
type mas=array[1..100] of integer;
function Min(v:mas;x:byte):byte;
var i,imn:byte;
begin
imn:=1;
for i:=1 to x do
if v[i]<v[imn] then imn:=i;
Min:=imn;
end;
var a:mas;
    i,n,k:integer;
begin
clrscr;
writeln('введите количество элементов массива');
readln(n);
writeln('введите элементы массива');
for i:=1 to n do
readln( a[i] );
k:=Min(a,n);
writeln( 'наименьший элемент =  ', a[k]);
writeln( 'первый элемент =  ', a[1] );
for i:=n+1 downto k+2 do
a[i]:=a[i-1];
a[k+1]:=a[1];
writeln('Вставка первого элемента после минимального:');
for i:=1 to n+1 do
write(a[i],' ');
readln
end.

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
uses crt;
const n=1;
type rec=record         //описываем переменные
      name,coun:string;
      stp,std:integer;
     end;
var x:array[1..n] of rec;
    i:integer;
begin
ClrScr;
for i:=1 to n do
 with x[i] do        //сокращаем обращение к записи через with;  x[i]-имя записи(обьекта)
 begin
  Write(' Name: ');                 //вводим данные
  Readln(name);
  Write(' Country: ');
  Readln(coun);
  Writeln(' St.putevki: ');
  Readln(stp);
  Write(' St.dorogi: ');
  Readln(std);
 end;
Writeln('Table: ');
Writeln('----------------------------------------------');       //внешнее оформление
Writeln('||  Name  | Country | St.put | St.dor | Sum ||');
Writeln('----------------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].name:8,'|',x[i].coun:9,'|',x[i].stp:8,'|',x[i].std:8,      //вывод параметров, которые мы ввели раньше+
         '|',x[i].stp+x[i].std:5,'||');                                       //считаем сумму стоимости пути и проживания
Writeln('----------------------------------------------');
Readln;
end.
Добавлено через 23 часа 28 минут
Никто не поможет что ли???
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2010, 20:36
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Паскаля в СИ. (C++):

Перевод паскаля в с++ - C++ Builder
Кто разбирается в паскале помогите переделать на с++: KeyExpansion(byte key, word w, Nk) begin word temp i = 0; ...

Перевод с Паскаля в С++ - C++
uses crt; function rec(n:integer):real; var z:integer; begin z:=1; if n=0 then begin z:=1; rec:=1 end

Перевод с паскаля на С++ - C++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin HexValue := ''; write( 'Введите целое...

Перевод с Паскаля в С++ - C++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод с Паскаля на С++ - C++
Кому не трудно. Помогите перевести пару задач несложных. 1 var a,b,c,tmp:real; begin write('Введите три числа A,B,C='); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Vorona
Peace 2 all shining faces
668 / 530 / 45
Регистрация: 05.03.2010
Сообщений: 1,283
30.04.2010, 03:27 #2
Транслятор с паскаля на С
smolian4ik
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 1
20.04.2017, 11:38 #3
Помогите перевести плиз из Паскаля в СИ. - C++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program jj;
var n, kol, i:integer;
a, sum:real;
begin
read(n);
i:=1;
kol:=0;
sum:=0;
while(i<=n) do
begin
read(a);
if ((i mod 3)=0) and (a>0) then
begin
kol:=kol+1;
sum:=sum+a;
end;
i:=i+1;
end;
writeln(kol, ' ', sum:0:2);
end.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.04.2017, 11:38
Привет! Вот еще темы с ответами:

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

Перевод с Паскаля на C++ - C++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. var z,x,v: text; st: string; begin ...

Перевод с паскаля на с++ - C++
С Паскаля на С++ var n: Integer; d: Longint; begin repeat Write('Введите N : '); ReadLn(n); until n in ; n:=n div 2*2; ...

Перевод из паскаля в с ++ - C++
Ребят помогите перевести в с ++ var p:array of integer; c,c1:char; i,j,N,K:integer; name:string; time1,time2:integer; ...


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

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

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