Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Перевести выражение из обычной формы записи в постфиксную и записать ее в текстовый файл https://www.cyberforum.ru/ turbo-pascal/ thread24607.html
Пожалуйста помогите написать л/р:umnik: Текстовый файл имеет выражение, что записан в обычной форме (инфиксной). Перевести выражение из обычной формы записи в постфиксную и записать ее в текстовый файл. Использовать стек. Инфиксная форма выражения: а-в, а*в . Постфиксная форма: ав-, ав*.:help: Добавлено через 2 часа 10 минут 48 секунд Люди помогите пожалуста, ситуация...
Turbo Pascal 3 задания по турбо паскалю
Люди я канешно понимаю что тут чутьли не каждый день создаются темы похожие на мою но всетаки: Очень нужна помошь в решеннии 3х задач по турбо паскалю, сам смог поработать только с 1ной и та сделана неправильно=( Собственно задачи: 1) 23. Даны действительные числа a,h, целое n. Вичислить: f(a) + f(a+h)+f(a+2*h)+...+ f(a+n*h), где f(x)=(x^2+1)/x Код: program lab4inf;
Turbo Pascal В тексте проверить все ли предложения начинаются с заглавной буквы https://www.cyberforum.ru/ turbo-pascal/ thread24379.html
помогите написать прогу плз! Условие: В тексте проверить все ли предложения начинаюстя с заглавной буквы, если есть предложения которые начинаюстся с маленькой буквы надо заменить их Заглавными буквами.
Turbo Pascal Составить программу для вычисления значений переменных https://www.cyberforum.ru/ turbo-pascal/ thread24121.html
Набрал, но при вводе больших чисел выдает ошибку! Составить программу для вычисления значений переменных. Вывести на экран значения исходных данных и результатов промежуточных и окончательных вычислений, сопровождая вывод именами переменных. y=arctgx+ln'корень из'((1+x)/(1-x))+e^x, где x=(1-sinm)/(a1^2), { |b|, если b<0
Turbo Pascal Файлы, записи: База данных Аптека
помогите с решением задачи плз!!!! в программу надо добавить процедуру которая при ее вызове выдает на экран "медикомент Германского производства (страна производитель мы указываем сами) с наименьшей ценой(цена за 1 упаковку). program ApTeKa; uses crt; TYPE medikomenti=Record name:string; kol:integer; cena:integer; proizvod:string;
Turbo Pascal Программа, которая оптимальным образом расставляет скобки при перемножении матриц Пожалуйста помогите написать программу, которая оптимальным образом расставляет скобки при перемножении матриц. Размерности матриц считать из файла. На экран вывести промежуточные вычисления и результат. М1, M2, M3, М4, M5, M6, M7, M8. https://www.cyberforum.ru/ turbo-pascal/ thread23926.html
Turbo Pascal Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы Имя матрицы и размеры: A(10,15) действие:вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. результаты отпечатать в виде двух строк. Условия и ограничения: a ij>0 https://www.cyberforum.ru/ turbo-pascal/ thread23880.html Получить минимальное из двух чисел Turbo Pascal
Даны Действительные числа a и b. Получить u=min (a,b), u=min (ab, a+b). это условие задачи.....недогоняю что сдесь сделать нужно(:(
Turbo Pascal Разработать программу вывода графика произвольной функции https://www.cyberforum.ru/ turbo-pascal/ thread23457.html
Задача №1 Разработать программу вывода графика произвольной функции. Поместите начало координат в левую нижнюю точку экрана. Задача №2 функциями модуля Graph, создать изображение по заданию преподавателя. Вариант задания: 9. Дом с трубой; помогите пожалуйста.......мне завтро сдать нужно.....хотя бы одну какую нибудь:help::help::help::wall::'(
Turbo Pascal На плоскости заданы своими координатами n точек https://www.cyberforum.ru/ turbo-pascal/ thread23147.html
На плоскости заданы своими координатами n точек.Создать массив размером n(n-1) элементами которого являются расстояния от каждой из точек до n-1 других
Файлы записей: База данных Напитки Turbo Pascal
помогите плз! Нужно переделать эту программу с использованием нетипизированных файлов.: Program MAGAZ; Uses crt; TYPE Napitok = Record name:string; kol:integer; gazirovanost:(s_gazom,bez_gaza); Cena:integer;
Turbo Pascal В двумерном массиве найти сумму элементов второго ряда Здравствуйте ув. программисты! Помогите, пожалуйста с решением простой задачки. В двумерном массиве найти сумму элементов второго ряда. Размер массива a:array of integer, где N - Любое число от 2 до 100. При изменении константы N, сумма элементов должна всё равно быть верной. Заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread22796.html
22 / 22 / 10
Регистрация: 26.02.2009
Сообщений: 49
02.03.2009, 22:44 0

Вычислить первые 20 членов последовательности чисел Фибоначчи - Turbo Pascal - Ответ 110355

02.03.2009, 22:44. Показов 11053. Ответов 10
Метки (Все метки)

Ответ

Проверяй. Но смотри, для слишком большого числа элементов это уже не прокатит, придётся длинную арифметику мутить!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const nmax = 20;
 
var i:integer;
    u:array[1..nmax] of integer;
    v:array[2..nmax] of real;
 
begin
u[1]:=1;
u[2]:=2;
for i:=3 to nmax do u[i]:=u[i-1]+u[i-2];
for i:=2 to nmax do v[i]:=u[i]/u[i-1];
writeln('u(1) = ',u[1]);
for i:=2 to nmax do writeln('u(',i,') = ',u[i],'   v(',i,') = ',v[i]:2:2);
readln;
end.


Вернуться к обсуждению:
Вычислить первые 20 членов последовательности чисел Фибоначчи Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2009, 22:44
Готовые ответы и решения:

Вычислить первые 20 членов последовательности
Последовательность Фибоначчи определяется следующими рекуррентными соотношениями: а1=а2=1, аk=аk-1=...

Вывести первые 10 членов последовательности и найти количество четных чисел
Задана последовательность формулой: an= n2-1. Вывести первые 10 членов последовательности и найти...

Посчитать и вывести первые 30 чисел последовательности Фибоначчи через массив
Всем привет. Не могу понять, где тут ошибка, может быть в компиляторе? Пытаюсь посчитать и вывести...

Получить первые n членов последовательности Фибоначчи.
Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1,...

10
02.03.2009, 22:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2009, 22:44
Помогаю со студенческими работами здесь

Получить первые n членов последовательности Фибоначчи
Последовательность Фибоначчи образуется так: первый и второй члены последовательности рав¬ны 1,...

Получить первые n членов последовательности фибоначчи.
Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1,...

Вывести первые 11 членов последовательности Фибоначчи
Доброго времени суток, уважаемые программисты. Хотел бы попросить Вас о помощи в решении программ...

Определите первые n членов последовательности Фибоначчи, начиная с третьего
Определите первые n членов последовательности Фибоначчи, начиная с третьего, число n задается...

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