0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 18
1

Перевести код с Pascal в С++(и там одна ошибка есть)

20.05.2015, 21:01. Показов 491. Ответов 1
Метки нет (Все метки)

Program lab;
var
s,p,q,n,i: integer;
begin
s:=1;
p:=0;
q:=0;
for i:=1 to n do
begin
p:=p+cos(i:real);
q:=q+sin;
s:= s*p/q
end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2015, 21:01
Ответы с готовыми решениями:

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться....

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f ...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

1
15 / 15 / 21
Регистрация: 18.04.2015
Сообщений: 73
20.05.2015, 21:45 2
Ошибки.
1. Нету n;
2. Хоть даже будет значение n, по смыслу, счётчик в цикле for должен быть типа integer. В этом случае , sin и cos при любом значении по модулю меньше или равно 1, значит cos и sin в аргументе не имеют смысла содержать счётчик цикла. Тогда и S не определено ( деление на 0).
3. Ты, наверное, хотел, чтоб p и q суммировали числа, тогда cos и sin принимать должны радианы, градусы
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2015, 21:45
Помогаю со студенческими работами здесь

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru