Форум программистов, компьютерный форум, киберфорум
C++
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 81
1

из паскаля в си_1

28.04.2010, 13:57. Просмотров 1131. Ответов 3
Метки нет (Все метки)


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 (((a+5)*(a+5)+b*b<r*r) and not((a-5)*(a-5)+b*b<r*r)) then
 begin
  writeln('Точка попадает в область!');
  z:=a*a-3*b;
 end
else
 begin
  writeln('Точка не попадает в область!');
  if (a<0)and(b<0) then z:=25+a+b
  else z:=a-b;
 end;
write('Z=',z:0:2);
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2010, 13:57
Ответы с готовыми решениями:

Закрыть вкладки Паскаля при исполнении Паскаля
В Паскаль АВС.Нет открыто несколько вкладок. Запускается следующая программа (вкладка). Как в нее...

Построить треугольник Паскаля. Используя треугольник Паскаля, вычислить 𝑘−ое число Фиббоначчи. Нумерация чисел Фиббона
#include &lt;iostream&gt; using namespace std; int main() { setlocale(LC_ALL, &quot;Russian&quot;); ...

с паскаля на с++
Program z1; uses crt; const n=10; type matr = array of integer; var ...

Из Паскаля на СИ
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x +...

3
Отдыхающий:)
94 / 91 / 22
Регистрация: 05.04.2009
Сообщений: 188
28.04.2010, 22:06 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
#include <stdio.h>
 
int main()
{
    float a, b, r, z;
    printf("a=");
    scanf("%f", &a);
    printf("b=");
    scanf("%f", &b);
    printf("r=");
    scanf("%f", &r);
    if ((((a-5)*(a-5)+b*b<r*r) && \
       !((a+5)*(a+5)+b*b<r*r)) || \
       (((a+5)*(a+5)+b*b<r*r) &&  \
       !((a-5)*(a-5)+b*b<r*r))){
        printf("The point is in the area!\n");
        z = a*a-3*b;}
    else{
        printf("The point isn\'t in the area\n");
        if ((a<0) && (b<0))
            z = 25+a+b;
        else
            z = a-b;}
    printf("Z=%.2f\n", z);
    return 0;
}
1
14 / 7 / 0
Регистрация: 20.09.2009
Сообщений: 89
28.04.2010, 23:50 3
Зачем делать лишние посты?
Чтоб рейтинг набивать? Я же дал ссылку на нормальные трансляторы Транслятор с паскаля на С
2
Отдыхающий:)
94 / 91 / 22
Регистрация: 05.04.2009
Сообщений: 188
29.04.2010, 09:51 4
NightmareCode, извините... Хотел просто человеку помочь.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2010, 09:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

с паскаля на Си++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat...

Из Паскаля в C#
y0:=K0l; m0:=0; n0:=2*(n0-n0l)/(2*K-1); R0:=round((w0r-w0l)/w0); Помогите перевести в С# K0l...

из паскаля в С++
Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++: Program Example; uses...

С паскаля на С++
Всем добрый вечер!! Вот сама задача.....Дана квадратная матрица порядка M. Обнулить элементы...

из паскаля в с++
товарищи помогите плиз перевести код из паскаля в с++))) program fg; var A:array of integer; ...

с паскаля в с++
помогите перевести с код паскаля в с++ program MYstring; var len1, len2:byte; s1, s2:...


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

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

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