|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.02.2014, 15:55 | #1 (permalink) | ||
Member
Регистрация: 28.12.2012
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Перевести с Паскаля на Си
var x, y, a, b, s_left, s_right:real; begin WriteLn('laboratornya rabota №2'); WriteLn('variant №8'); WriteLn; Write('x='); ReadLn(x); if (x>0) and (x<2) then begin if(x<1.0) then begin a:=sqrt(1.0-x*x); b:=2*arctan(a/x); s_right:=2.0*(1.0-x)-(1.0/2.0)*(b-sin(b))+pi/2.0; s_left:=2.0-s_right; y:=2.0*(1.0-a); end else if x=1 then begin y:=2; s_right:=(1.0/2.0)*pi; s_left:=2.0-s_right; end else begin y:=2.0*sqrt(1.0-(1.0-x)*(1.0-x)); B:=2*arctan(sqrt((1.0-(1.0-x)*(1.0-x))/(x-1.0))); s_right:=(1.0/2.0)*(B-sin(B)); s_left:=2.0-s_right; end; writeln('s_right=', s_right:0:2); writeln('s_left=', s_left:0:2); writeln('y=', y:0:2); end else writeln('x vne vichisleniy'); readln; end.
|
||
12.02.2014, 15:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обращаю ваше внимание на то, что на нашем форуме уже были похожи темы Данный код выводит треугольник Паскаля. Передалайте пожалуйста Как перевести *.cdr в другой формат? Пожалуйста, помогите написать программу для Паскаля, строящую график функции e^x Пожалуйста, помогите написать программу для Паскаля АВС, строящую график функции e^x |
14.02.2014, 10:41 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
14.02.2014, 20:15 | #7 (permalink) |
Специалист
Регистрация: 13.08.2007
Сообщений: 4,159
Записей в дневнике: 5
Сказал(а) спасибо: 41
Поблагодарили 16 раз(а) в 8 сообщениях
Репутация: 23496
|
Вот честно скажу - ни в С ни в С++ не шарю. И в паскале тоже. Знаю Бэйсик, на уровне бэйсик. Но например вижу, что код вставлен косячный. Видимо пропущен if x>1 then. Условие задачи какое? Мне Сишку ставить даже лень, что бы попробовать написать, на столько это просто. А что значит вот это "s_left:0:2"? s_left переменная которую мы ввели, в вот это :0:2 это зачем? округление?
|
14.02.2014, 20:23 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Нет, всё правильно. Структура:
Код:
if x=1 then begin ... end else begin ... end; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|