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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Оформить программу в виде подпрограмм http://www.cyberforum.ru/cpp-beginners/thread28294.html
Программа вставляет введенные элементы после максимального элемента и перед ним #include <iostream.h> #include <math.h> void main() {int n; cout<< "Введите n = "; cin>>n; double *x = new...
C++ Поможите обработать текст хотелосьбы чтоб С++ из текста выбирало цыфры и вставляло в массив. цыфры идут после слдущей последовательности alt='Поставлено $ например если alt='Поставлено $200 то в массив нада вписать 200 а... http://www.cyberforum.ru/cpp-beginners/thread28289.html
Подпрограммы с++ действия по убыванию C++
Составить программу решения задачи с использованием подпрограмм. Из заданного числа отняли сумму его цифр. Из результата опять отняли сумму его цифр и т.д. Через сколько таких действий получится...
C++ Подпрограммы и массивы
Товарищи! необходимо решить задачи по массивам (и подпрограммами) Надо Составить программу решения задачи на С + + и Паскале, использовать процедуры ввода и вывода массивов, выделить в задаче...
C++ Алгоритмы сортировок http://www.cyberforum.ru/cpp-beginners/thread28269.html
Недавно была необходимость сравнить некоторые алгоритмы сортировок... Если кому-нибудь понадобятся... вообщем вот... Алгоритмы реализованы ввиде функций, с передачей парметров: Массива A и кол-ва...
C++ Програмки на cpp для вещественных массивов Пожалуйста помогите написать пару программ на языке cpp: 1. Даны вещественные массивы D, A. Для каждого массива определить среднее арифметическое наибольшего и наименьшего значений массива 2. Даны... подробнее

Показать сообщение отдельно
Антоха-C++
0 / 0 / 0
Регистрация: 28.03.2009
Сообщений: 1

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

01.04.2009, 00:11. Просмотров 685. Ответов 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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.