|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.02.2017, 14:10 | #1 |
Пользователь
Регистрация: 18.02.2017
Сообщений: 43
|
Перевод из Pascal в Си
Помогите пожалуйста перевести код из Pascal в Си:
Код:
Последний раз редактировалось Вадим Мошев; 19.02.2017 в 14:26. |
19.02.2017, 15:36 | #2 |
Новичок
Джуниор
Регистрация: 19.02.2017
Сообщений: 11
|
В
Код:
|
19.02.2017, 15:41 | #3 |
Пользователь
Регистрация: 18.02.2017
Сообщений: 43
|
|
19.02.2017, 15:42 | #4 |
Новичок
Джуниор
Регистрация: 19.02.2017
Сообщений: 11
|
Код:
Тут Код:
Последний раз редактировалось LexaTaHKuCT; 19.02.2017 в 15:56. |
19.02.2017, 15:57 | #5 | |
Пользователь
Регистрация: 18.02.2017
Сообщений: 43
|
Цитата:
|
|
19.02.2017, 15:59 | #6 | |
Новичок
Джуниор
Регистрация: 19.02.2017
Сообщений: 11
|
Цитата:
|
|
19.02.2017, 16:00 | #7 |
Пользователь
Регистрация: 18.02.2017
Сообщений: 43
|
Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры y_razrez, значения площадей фигуры слева и справа от линии разреза s_left, s_right, по значениям аргумента x, введенным с консоли:
|
19.02.2017, 16:02 | #8 | |
Новичок
Джуниор
Регистрация: 19.02.2017
Сообщений: 11
|
Цитата:
|
|
19.02.2017, 16:03 | #9 |
Пользователь
Регистрация: 18.02.2017
Сообщений: 43
|
У меня есть код для вот этого рисунка:
Снимок.JPG #include <stdio.h> #include <math.h> int main (int argc, char **argv) { double x, y1, y2; double S1, S2, sLeft, sRight, phi; printf ("Enter x: "); scanf ("%lf", &x); S1 = M_PI / 2; S2 = 2 - M_PI / 2; if ((x < 0) || (x > 2)) { printf ("X out of range\n"); return -1; } if (x == 1) { y1 = 1; y2 = -1; phi = M_PI; sLeft = S1; sRight = S2; } else if (x < 1) { y1 = sqrt(1 - (x - 1) * (x - 1)); y2 = -y1; phi = 2 * atan (fabs (y2 - y1) / 2 / (1 - x)); sLeft = (float) 1 / 2 * (phi - sin (phi)); sRight = S1 + S2 - sLeft; } else { y1 = sqrt(1 - (x - 2) * (x - 2)) - 1; y2 = -sqrt(1 - (x - 2) * (x - 2)) + 1; phi = 2 * atan (fabs (y2 - y1) / 2 / x); sRight = (float) 1 / 2 * (phi - sin (phi)); sLeft = S1 + S2 - sRight; } printf ("Length: %lf\n", fabs (y2 - y1)); printf ("S : %lf\n", S1 + S2); printf ("sLeft : %lf\n", sLeft); printf ("sRight : %lf\n", sRight); getch(); return 0; } А нужен для показанного выше |
19.02.2017, 16:08 | #10 | |
Новичок
Джуниор
Регистрация: 19.02.2017
Сообщений: 11
|
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перевод в C++ из Pascal | =IS= | Помощь студентам | 1 | 24.05.2012 00:37 |
Перевод с PasCal на Си | bodya00728 | Помощь студентам | 0 | 16.05.2012 15:03 |
перевод из Pascal в С++ | edise | Помощь студентам | 0 | 13.11.2010 16:01 |
Перевод из Pascal в С | Foxtrot_1 | Помощь студентам | 7 | 20.06.2009 19:00 |
Перевод кода из Pascal в Object Pascal | zemskov77 | Общие вопросы Delphi | 1 | 03.01.2009 09:37 |