Форум программистов, компьютерный форум, киберфорум
C++
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Динамические потоки c обрабатываемой памятью https://www.cyberforum.ru/ cpp/ thread123061.html
Нужна ваша помощь. #include "WinThread.h" LPVOID hf1,hf2,hf3; iXml* Tr; AnsiString str; std::vector<GraphObj *> *GNO; typedef struct Params
C++ из паскаля в си_1
program kontrolnaya; uses crt; var a,b,z,r:real; begin clrscr; write('a=');readln(a); write('b=');readln(b); write('r=');readln(r); if (((a-5)*(a-5)+b*b<r*r) and not((a+5)*(a+5)+b*b<r*r)) or...
C++ из паскаля в си_2 https://www.cyberforum.ru/ cpp/ thread122999.html
пожалуйста, помогите переписать на с++(((((((((((((( program kontr; uses crt; const nmax=100; type mas=array of integer; procedure Vvod(var v:mas;var x:byte); var i:byte; begin
C++ В каком SDK находятся библиотечные файлы Urlmon.lib winmm.lib https://www.cyberforum.ru/ cpp/ thread122899.html
В каком SDK находятся библиотечные файлы Urlmon.lib winmm.lib? Я предполагал что в Direct SDK(у меня DirectX SDK 2006), однако там не нашел. Может кто подскажет где находятся и какую...
Транслятор с паскаля на С C++
Салют! Можете привести самый простой пример транслятора с паскаля на С, заранее спасибо
C++ Програмирование С (без (++)) Помогите с решением и если это важно работаем с программой Borland ++++++++++++++++++++++ 1. Дайте определение строки. Чем строка отличается от символьного массива? Приведите пример. 2. Какие... https://www.cyberforum.ru/ cpp/ thread122194.html
C++ Сгенирировать тест на stamina https://www.cyberforum.ru/ cpp/ thread122001.html
Дело в том, что мне надо давать слепой набор, для этого хотчу сгенерировать последовательность слов, впихнуть их в stamina и тренироваться. Вот только самому их прибумывать не охота, да и я хочу...
Чем мне лучше заниматся C++
На какой программе мне лучше учится, что-бы в будущем я смог себе заработать на хлеб! Borland C++ или Visual C++! Подскажите пожалуйста!
C++ Игра Сапер https://www.cyberforum.ru/ cpp/ thread121845.html
Выложите кто-нибудь текст игры САПЁРА, программированый на языке С++.-------очень нужно------. Заранее большое Вам спасибо!!!
C++ Переписать в С++ Помогите перевести в С++ немогу перевести. Перемножение 2-х прямоугольных матриц. Program PP_2; uses crt; type matr = array of real; procedure UmnMatr(x,y:integer;m1,m2:matr;var m3:matr);... https://www.cyberforum.ru/ cpp/ thread121790.html
C++ нужно перевести на С++
uses crt; const n=4; type rec=record name,str:string; oc1,oc2:integer; sum:integer; end; var x:array of rec; i:integer; max:integer;
C++ Не запускается в консоли!!!(А VS2008 компилирует и запускает)... В чем дело??? Доброго времени суток... у меня совершенно не понятная для меня проблема... причем проблема не в написании кода, а в том как запустить програмку... дело вот в чем ... пишу в VS2008 на Visual C++...... https://www.cyberforum.ru/ cpp/ thread121736.html
3 / 3 / 2
Регистрация: 22.01.2010
Сообщений: 89
0

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

29.04.2010, 20:36. Показов 11441. Ответов 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 минут
Никто не поможет что ли???

Вернуться к обсуждению:
Перевод из Паскаля в СИ. C++
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2010, 20:36
Готовые ответы и решения:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр ...

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

Перевод из Паскаля в С
const a=-pi; b=pi; h=pi/10; var x,y:real; begin writeln('----------------');...

Перевод из паскаля в c#
var A: array of integer; X: integer; i, j, count, n, m: byte; begin repeat ...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2010, 20:36
Помогаю со студенческими работами здесь

Перевод с Паскаля на C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var...

Перевод из Паскаля в Си++
program p1; var a,k:string; mas:array of string; b,c,i,nu:integer; begin nu:= 0;...

Перевод из Паскаля в C/C++
Перевести Все программы в файле

Перевод из Паскаля в С#
const eps=1e-6; var s,s1:real; n:uint64; t:integer; begin n:=1; t:=1; s:=0.0;...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru