Переведите с Pascal на С++ пожалуйста

@sseeddooyy · Регистрация: 27.06.2013

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
program asd;
var r,V:real; 
begin
  write(‘введите радиус r’); 
  readln(r);
  V:=4/3*3.14*sqr(r)*r; 
  write(‘объем равен’,v:4:2);  
  readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
program z6;
var a:integer;
begin
  writeln ('Введите число'); 
  readln (b);
  if a mod 2 =0 then  /
  writeln ('Число - четное') else
  writeln ('Число нечетное');
  readln;
end.

@newyork7776 · 27.06.2013, 15:02

okey

Добавлено через 2 минуты
1

Кликните здесь для просмотра всего текста

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
    double r,V;
    setlocale(LC_ALL, "Russian");
    cout <<"Bведите радиус  = "; cin >> r;
     V=((4/3)*(3.14)*(pow(r,2))*r); 
    cout << "Oбъем равен = " << V;  
    cout << "\n";
    system("pause");
}

@henecs · 27.06.2013, 15:02

это стёб такой?

@newyork7776 · 27.06.2013, 15:07

2

Кликните здесь для просмотра всего текста

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
    int n;
    setlocale(LC_ALL, "Russian");
    cout << "Введите число = ";cin >> n;
    if (((n%2)==0) && (n!=0)) cout << "Число - четное";
    else cout << "Число - нечетное";
    cout << "\n";
    system("pause");
}

Добавлено через 55 секунд

Сообщение от henecs

это стёб такой?

Не понял???

@henecs · 27.06.2013, 15:10

@newyork7776, я у автора темы спросил...

@sseeddooyy · 27.06.2013, 15:18 **[ТС]**

почему стеб?

@Joker_vad · 27.06.2013, 15:36

потому что ваша лень не знает границ

!!! Или правда стеб

@sseeddooyy · 27.06.2013, 15:45 **[ТС]**

ребят, это не лень.это сумасшедший преподаватель на практике задал 15 программ на паскале, делфи и с++. я второй курс, а у нас только паскаль был... извиняюсь за свою не грамотность и не знание.

@Joker_vad · 27.06.2013, 15:53

Достаточно достать описание лабораторной работы №1 где будут описаны функции. Программу сложения двух цифр под силу написать любому, практически на каждом языке. Достаточно потратить на это минут 20

Добавлено через 6 минут
Мне бы таких преподавателей) Мб людей из вас сделает

@henecs · 27.06.2013, 15:55

Сообщение от sseeddooyy

ребят, это не лень.это сумасшедший преподаватель на практике задал 15 программ на паскале, делфи и с++. я второй курс, а у нас только паскаль был... извиняюсь за свою не грамотность и не знание.

дык это же основы основ, смысл тогда учиться?

@sseeddooyy · 27.06.2013, 17:24 **[ТС]**

Сообщение от henecs

дык это же основы основ, смысл тогда учиться?

Я понимаю что основы основ. Но обещали начать обучение в следующем году этих двух языков. А тут такие новости, за 10 дней до конца практики. Напишите и все тут...

@henecs · 27.06.2013, 18:45

@sseeddooyy, обещали не обещали.... какая разница вы сами должны учить ... или вы думаете что когда будете работать вам хватит знаний приобретенных за время обучения в вузе?

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@henecs 18 / 18 / 11 Регистрация: 19.05.2013 Сообщений: 135
	27.06.2013, 15:02
	это стёб такой? 0

@henecs 18 / 18 / 11 Регистрация: 19.05.2013 Сообщений: 135
	27.06.2013, 15:10
	@newyork7776, я у автора темы спросил... 0

@sseeddooyy 0 / 0 / 0 Регистрация: 27.06.2013 Сообщений: 6
	27.06.2013, 15:18 [ТС]
	почему стеб? 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	27.06.2013, 15:36
	потому что ваша лень не знает границ!!! Или правда стеб 0

@sseeddooyy 0 / 0 / 0 Регистрация: 27.06.2013 Сообщений: 6
	27.06.2013, 15:45 [ТС]
	ребят, это не лень.это сумасшедший преподаватель на практике задал 15 программ на паскале, делфи и с++. я второй курс, а у нас только паскаль был... извиняюсь за свою не грамотность и не знание. 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	27.06.2013, 15:53
	Достаточно достать описание лабораторной работы №1 где будут описаны функции. Программу сложения двух цифр под силу написать любому, практически на каждом языке. Достаточно потратить на это минут 20 Добавлено через 6 минут Мне бы таких преподавателей) Мб людей из вас сделает 0

@henecs 18 / 18 / 11 Регистрация: 19.05.2013 Сообщений: 135
	27.06.2013, 18:45
	@sseeddooyy, обещали не обещали.... какая разница вы сами должны учить ... или вы думаете что когда будете работать вам хватит знаний приобретенных за время обучения в вузе? 1