Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Антоха-C++
Сообщений: n/a
#1

Надо программу с бэйсика на С++ переписать - C++

01.04.2009, 00:11. Просмотров 680. Ответов 1
Метки нет (Все метки)

В универе задали переписать программу с бэйсика на С++, а у меня с этим ну совсем плохо((( Если ктото может- сделайте пожалуйста, а то уже надежду теряю(

10 PRINT'ИНТЕРПОЛЯЦИЯ ПРИ H=CONST ПО ФОРМУЛАМ ЛАГРАНЖА'
20 INPUT'ЗАДАЙТЕ СТЕПЕНЬ ПОЛИНОМА M=1-5 M='M:LETN=M+1
30 INPUT'ВВЕДИТЕ X0,H 'Z,H:IF N=3 THEN 100
40 IF N=4 THEN 140
50 IF N=5 THEN 190
60 IF N=6 THEN 250
70 INPUT'ВВЕДИТЕ Y0,Y1 'A,B
80 INPUT'ВВЕДИТЕ X='X:LETP=(X-Z)/H
90 LETY=(1-P)*A+P*B:PRINT'Y='Y:GOTO 80
100 INPUT'ВВЕДИТЕ Y-1,Y0,Y1 'A,B,C
110 INPUT'ВВЕДИТЕ X='X:LETP=(X-Z)/H
120 LETY=P*(P-1)*A/2+(1-P*P)*B+P*(P+1)*C/2
130 PRINT'Y='Y:GOTO 110
140 INPUT'ВВЕДИТЕ Y-1,Y0,Y1,Y2 'A,B,C,D
150 INPUT'ВВЕДИТЕ X='X:LETP=(X-Z)/H:LETE=(P-2)/2
160 LETY=-P(P-1)*E*A/3+(P*P-1)*E*B
170 LETY=Y-P*(P+1)*E*C+P*(P*P-1)*D/6
180 PRINT'Y='Y:GOTO 150
190 INPUT'ВВЕДИТЕ Y-2,Y-1,Y0,Y1,Y2 'A,B,C,D,E
200 INPUT'ВВЕДИТЕ X='X:LETP=(X-Z)/H
210 LETF=(P*P-1)/2:LETK=(P*P-4)/2
220 LETY=F*P*(P-2)*A/12-(P-1)*P*K*B/3+F*K*C
230 LETY=Y-(P+1)*P*K*D/3+F*P*(P+2)*E/12
240 PRINT'Y='Y:GOTO 200
250 INPUT'ВВЕДИТЕ Y-2,Y-1,Y0,Y1,Y2,Y3 'A,B,C,D,E,F
260 INPUT'ВВЕДИТЕ X='X:LETP=(X-Z)/H:LETM=P*P-1
270 LETI=M/24:LETJ=-P*I*(P-3):LETK=M-3:LETL=K*(P-3)/12
280 LETY=J*(P-2)*A/5+L*P*(P-1)*B/2-M*L*C
290 LETY=Y+P*(P+1)*L*D+J*(P+2)*E+P*I*K*F/5
300 PRINT'Y='Y:GOTO 260:END
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2009, 00:11
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Надо программу с бэйсика на С++ переписать (C++):

Надо это программу переписать через do while - C++
Надо это программу переписать через do while: #include "stdafx.h" #include <iostream> #include <math.h> using namespace std; ...

Надо переписать код через оператор new - C++
Задание: Найти минимальный элемент матрицы и заменить им элементы которые находятся ниже главной диагонали. Надо переписать код...

Переписать программу из С++ на Си - C++
Задача: Из массива A(n) удалить m наудачу (случайно) выбранных элементов. Порядок следования оставшихся элементов сохранить. Программа: ...

Переписать программу на С++ - C++
перепишите пожалуйста на с++. очень надо Program massiv; Uses crt; Const n=5; m=5; Var a: array of integer; i, j, k,min,max,...

Переписать программу из C++ в С - C++
Надо переписать из C++ в С Avogar, пожалуйста, прочитайте правила форума. Особое внимание обратите на пункт 4.7 (как правильно...

Переписать программу с C# на C++ - C++
кто может переписать программный код задачи: Распечатать строку, которая получается из введенной строки следующим образом: каждая цифра...

1
NightmareZ
1358 / 563 / 37
Регистрация: 31.03.2009
Сообщений: 1,933
01.04.2009, 00:50 #2
Это на каком бейсике программа? Зверство. Могу сделать за 20 wmz.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2009, 00:50
Привет! Вот еще темы с ответами:

Переписать программу с C# на C++ - C++
ребят есть исходники программы написанной на с# я хочу ее переписать на с++ как это можно по проще осуществить :(

Переписать программу из С++ в Си - C++
Задача: Определить количество положительных элементов xk каждого столбца матрицы X и переписать их в одномерный массив (вектор) M. ...

Переписать программу из паскаля на с++ - C++
const n = 15; var a:array of integer; i,j,x:integer; begin randomize; writeln('Сфоромований масив:'); for i:=1 to n do ...

Переписать программу из Deiphi 7 в C++ - C++
Здравствуйте форумчане. Сразу скажу, это не заказ, программу переписывать должен я сам. Возникли некоторые вопросы, на которые ищу ответы,...


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

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

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