Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.07.2018, 20:14   #1
Z4belin
 
Регистрация: 21.06.2018
Сообщений: 3
По умолчанию Есть решение на паскале нужно перевести на с++ Помогите пожалуйста

program Proc18;

function CircleS(R: Real): Real;
begin
CircleS:=3.14*sqr(R);
end;

var
r1,r2,r3: real;
begin
Write('Введите радиус первой окружности: ');
Readln (r1);
Write('Площадь первой окружности равна: ');
Writeln(CircleS(r1));

Write('Введите радиус второй окружности: ');
Readln (r2);
Write('Площадь второй окружности равна: ');
Writeln(CircleS(r2));

Write('Введите радиус третьей окружности: ');
Readln (r3);
Write('Площадь третьей окружности равна: ');
Writeln(CircleS(r3));
Readln;
end.

program Proc19;

Function RingS(R1,R2:Real):Real;
begin
RingS:=3.14*(sqr(R1)-sqr(R2))
end;


var
R1,R2:Real;
i:integer;
begin
for i:=1 to 3 do
begin
Write('R1 :');
Readln(R1);
Write('R2 :');
Readln(R2);
Writeln(RingS(R1,R2));
end;
end.

program Proc20;
Function TriangleP(a,h:Real):Real;
begin
TriangleP:=2*sqrt(sqr(a/2)+sqr(h))+a
end;


var
a,h:Real;
i:integer;

begin
for i:=1 to 3 do
begin
Write('a :');
Readln(a);
Write('h :');
Readln(h);
Writeln(TriangleP(a,h));
end;
end.

program Proc21;

Function SumRange(A,B:Integer):Integer;
var
i,TempSum:Integer;
begin
TempSum:=0;
For i:=A to B do
begin
TempSum:=TempSum + i;
end;
SumRange:=TempSum;
end;

var
A,B,C:Integer;

begin
Write('A :');
Readln(A);
Write('B :');
Readln(B);
Write('C :');
Readln(C);

Writeln(SumRange(A,B));
Writeln(SumRange(B,C));
Z4belin вне форума
Старый 16.07.2018, 20:17   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Есть код на С/С++, но нужно написать аналог на ассемблере, пожалуйста помогите!!! Неlp!!! Ivan Fakov Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 17.12.2015 10:38
помогите пожалуйста написать решение задачи и блок схему к ней очень нужно( Alexandr1806 Помощь студентам 1 16.06.2014 22:31
помогите пожалуйста очень нужно решение задачки Satenka Microsoft Office Excel 4 28.05.2014 21:57
Помогите пожалуйста решить задачи на Паскале(очень нужно) cabasik Помощь студентам 1 05.06.2009 05:53
Задача в Паскале компилируется но не запускается(((...Помогите пожалуйста,на завтра нужно! zhavadik Паскаль, Turbo Pascal, PascalABC.NET 2 07.04.2009 00:44