Здравейте . Общо взето ми трябва програма на паскал която да изчислява числата на Фибоначи, всмисъл Юзъра въвежда кое число на фибоначи иска, а програмата трябва да го изчисли. И още една по възможност е max от n числа. Благодаря ви предварително. Ако може без масиви :Х Имам много да уча и нямам време апък и незнам как. Пак благодаря

Здравейте . Общо взето ми трябва програма на паскал която да изчислява числата на Фибоначи, всмисъл Юзъра въвежда кое число на фибоначи иска, а програмата трябва да го изчисли.

И още една по възможност е max от n числа.

Благодаря ви предварително. Ако може без масиви :Х Имам много да уча и нямам време апък и незнам как. Пак благодаря

Има 2 ученбика на Магдалина Тодорова. Оранжеви са на цвят. Там има тази задача.Материала е доста лек с доста примерни задачи. Вярно,че Паскал вече е мъртъв език. Изисквайте да ви учат на C++ например. Но трябва и да се учи.

Има 2 ученбика на Магдалина Тодорова. Оранжеви са на цвят. Там има тази задача.Материала е доста лек с доста примерни задачи. Вярно,че Паскал вече е мъртъв език. Изисквайте да ви учат на C++ например. Но трябва и да се учи.

Е хубаво де , но откъде да го изнамеря в 6 часа като ми трябва за утре :? Затова моля за помощ книгите са лесни

Какво сложно има? Виж какво пише в Уикипедия: "Числата на Фибоначи в математиката образуват редица, която се дефинира рекурсивно по следния начин: F(0) = 0 F(1) = 1 F(n) = F(n-1) + F(n-2) " Това са ти готови формули. Трябва само да въведеш n , да направиш един цикъл от 1 до n , и да отпечаташ резултата. Е, без масив няма да стане. Може, но ще е по-сложно. А за втората задача - може ли по-точно формулиране?

http://progopedia.com/example/fibonacci/58/

Вярно,че Паскал вече е мъртъв език. Изисквайте да ви учат на C++ например.

Мъртъв, мъртъв колко да е мъртъв, щом човек може да си изкарва хляба с него.

Какво сложно има? Виж какво пише в Уикипедия:

"Числата на Фибоначи в математиката образуват редица, която се дефинира рекурсивно по следния начин:

F(0) = 0

F(1) = 1

F(n) = F(n-1) + F(n-2) "

Това са ти готови формули. Трябва само да въведеш n , да направиш един цикъл от 1 до n , и да отпечаташ резултата. Е, без масив няма да стане. Може, но ще е по-сложно.

А за втората задача - може ли по-точно формулиране?

Разбирам , но си нямам грам понятие от програмиране на Паскал. Иска се без масиви ... Поредната глупост от МОН . Ако можеш помагай . Мерси предварително .(bow)

Намиране на максималното число от N числа юзъра ти казва колко числа ще въведе после ги въвежда едно по едно и му казваш кое му е най-голямото

Редактирано 26 ноември 201015 г. от EmBlaNce (преглед на промените)

var n,a,i:integer; begin writeln('vuvedete N'); readln(n); while n<1 do begin writeln('Vuvedete otnovo n'); readln(n); end; i:=1 max:=a while n>=1 do begin writeln('vuvedi chislo'); readln(a); if max<a then max:=a; begin i:=i+1; end; end; writeln('Nai golqmoto e ' max); readln; end. Това ми е макса от н числа . Остава фибоначито. Би трябвало function fib(n:integer): integer; begin if (n <= 2) then fib := 1 else fib := fib(n-1) + fib(n-2); end; var i:integer; begin for i := 1 to 16 do write(fib(i), ', '); writeln('i taka natatuk'); end. Да се превърне с readln помагайте

program fibonacci;

function fib(n:integer): integer;
begin
    if (n <= 2) then
        fib := 1
    else
        fib := fib(n-1) + fib(n-2);
end;

var
    i:integer;

begin
   write('Въведете номер на число на Фибоначи:');
   readln(i);
   writeln(fib(i));
end.

Благодаря на всички за оказаното съдействие. Затваряйте темата :)

Здравейте, имам задача да съставя програма на Паскал, но чесно казано не вдявам особено.. знам, че задачата може да е елемнтарна и все пак не разбирам как се решава. Надявам се да ми помогнете!

Да се състави програма за въвеждане на стойност на променливата Х (Х - от тип REAL) от клавиатурата и намиране на схемата на първите 20 члена на редиците:

а) S=1.х + 2.х + 3.х +...+20.х

б) Да се сумират първите 20 члена - S= х¹ + х² + х³..х²⁰

в) Намерете сумата на първите 20члена от редицата - S = 1/1 + 1/2 +1/3 + ...1/20

д) Съставете програма, която да изчислява произведението на първите N-цели числа (N-1)

Моля за помощ спешно ми трябват 3 задачи по информатика за понеделник! Те са:
-Намиране координатите на средата на отсечка.
-Намиране на числа в интервала [a, b], които удовлетворяват зададено свойство.
-Алгоритъм на Евклид (намиране на НОД на две естествени числа)
Благодаря предварително..... много моля за понеделник

За отсечката. 

 

Ако краищата на отсечката имат координати

 

1. х1,у1

2. х2,у2

 

То в такъв случай координатите на средата на отсечката се намират по формулите

 

1. х = (х1 + х2)/2

2. у = (у1 + у2)/2

 

Не веднъж съм казвал, че малко се чете Декарт в тази държава.

За НОД

 

1) За делимо се взима по-голямото число, а за делител - по-малкото число.
2) Делителя от предишната стъпка се разделя на получения остатък.
3) Това се повтаря дотогава, докато получим остатък 0.
Този делител, при който частното няма остатък е НОД.

 

https://bg.wikipedia.org/wiki/%D0%9D%D0%B0%D0%B9-%D0%B3%D0%BE%D0%BB%D1%8F%D0%BC_%D0%BE%D0%B1%D1%89_%D0%B4%D0%B5%D0%BB%D0%B8%D1%82%D0%B5%D0%BB

А средното условие изобщо не мога да го разбера.

Редактирано 20 юни 201510 г. от Реджеп Иведик (преглед на промените)

program zad 8 ;

var xa,ya,xb,yb:real ;

BEGIN

write('xa,ya,xb,yb=') ;

readln (xa,ya,xb,yb) ;

xc:= (xa+xb)/2

yc:= (ya+yb)/2

Нещо такова ли трябва да е обаче незнам как накрая да изведа xc и yc

Ето на С++

 

Не знам Паскал.

#include <iostream>
using namespace std;

int main()
{
	float x1,x2,y1,y2,xmiddle,ymiddle;
	cout << "x1 = ";
	cin >> x1;
	cout << "x2 = ";
	cin >> x2;
	cout << "y1 = ";
	cin >> y1;
	cout << "y2 = ";
	cin >> y2;
	xmiddle = (x1+x2)/2;
	ymiddle = (y1+y2)/2;
	cout << "\n\n" << "xmiddle = " << xmiddle << "\t ymiddle = " << ymiddle;
	return 0;
}

var a, b:integer;

function nod(a, b:integer):integer;
begin
    while a<>b do
        if a<b then dec(b,a)
        else dec(a,b);
    nod := a;
end;

begin
    write('a = ');
    readln(a);
    write('b = ');
    readln(b);
    writeln('NOD = ', nod(a, b));
end.

Редактирано 20 юни 201510 г. от ined (преглед на промените)

Тва за отсечката ми остана но няма идея как да стане