Паскал - Pascal

[Intex]

Program BinarenVoDekaden;

Var b,c:array[1..1000] of integer;
Ncel,i,vrednostI,zbircel,stepen:longint;
ndecimalen,n.zbirdecimalen,zbir:real;

Writeln('vnesete go binarniot broj do 6 decimali');
Readln(n);
ncel:=trunc(n);
ndecimalen:=n-ncel;
i:=0;

REPEAT

B[i]:=ncel mod 10;
ncel:=ncel div 10;
I:=I+1;

Until Ncel=0;
VrednostI:=i-1;
zbircel:=0;

stepen:=1;
FOR i:=0 to vrednostI DO
BEGIN

Zbircel:=zbircel+B[i]*stepen;
stepen:=2*stepen;
END;

VrednostI:=-6;
i:=-1;
stepen:=10;

REPEAT

B[i]:=trunc(ndecimalen*stepen) mod 10;
stepen:=10*stepen;
i:=i-1;
UNTIL I < vrednostI;
zbirdecimalen:=0;
stepen:=2;

FOR I=-1 DOWNTO vrednostI DO

BEGIN

zbirdecimalen:=zbirdecimalen+B[i]/stepen;
stepen:=2*stepen;
END;

zbir:=zbircel+zbirdecimalen;
writeln(N:5:6,'[2]=',zbir:5:6,'[10]');
END.

Фала брат.

 

[Zodiac]

Молба

Може ли некој да го стави паскал да го симнам нигде неможам да го најдам... Благодарам однапред:smir:

 

[SkyDriver]

Може ли некој да го стави паскал да го симнам нигде неможам да го најдам... Благодарам однапред:smir:

Мислиш компајлер за паскал, така ?

Ако е така, незнам точно кој компајлер го бараш, ама еве ти два... па избери кој сакаш

Dev-Pascal

Free Pascal

 

[Бубо]

Јас имам една книга дома за Паскал..Книгата е Основи на програмските јазици и е фотокопирана од книгата за втора година средно во Јане Сандански - Информатика..Па некој што учи тамо да скенира тетратка да ми ја даде ако сака..!

 

[Fixen]

Сакам да почнам програмирање од нула, па од среда ќе почнам да одам во школото на дополнителни предавања по информатика каде што ќе учиме програмирање, паскал најверојатно. Па ако има некој да ми даде линк од некоја e-book на македонски/српски што би ми помогнала би бил многу благодарен. поз

 

[ElektriX]

Сакам да почнам програмирање од нула, па од среда ќе почнам да одам во школото на дополнителни предавања по информатика каде што ќе учиме програмирање, паскал најверојатно. Па ако има некој да ми даде линк од некоја e-book на македонски/српски што би ми помогнала би бил многу благодарен. поз

баце,ако сакаш да учиш програмирање тоа "македонски/српски" фрли го во вода у старт....џаст мај ту центс

 

[genius2]

Ме интересира каде има грешка во оваа програма
Кога ќе ја компајлирам ми дава погрешен резултат
Program Plostina;

var a,b,pi:real;


begin pi:=3.14;
writeln('Vnesete radius');
readln(a);
b:=a*pi;
writeln('Plostinata e ',b);
readln;
end.

 

[zlxlclvlbln]

Плоштина на круг: P=r²π = r*r*π

Значи b:=а*a*pi;

 

[genius2]

Плоштина на круг: P=r²π = r*r*π

Значи b:=а*a*pi;

Проблемот е што дава погрешни пресметки.
Пример
5*3.14=1.57

 

[SkyDriver]

Проблемот е што дава погрешни пресметки.
Пример
5*3.14=1.57

Хмм... пробај повеќе комбинации, пример...

var a,b,pi:real;

begin pi:=3.14;
writeln(pi);
writeln('Vnesete radius');
readln(a);
writeln(a);
b:=a*pi;
writeln(b);
writeln(a*pi);
writeln(a*3.14);
writeln(5.0*3.14);
writeln(5.0*pi);
writeln(b);
readln;
end.

... види ги излезите на сите комбинации и така би можел да утврдиш каде ти е грешката, иначе според кодов изгледа океј, едино ако прави разлика 5 и 5.0 што и не ми се верува баш дека е до тоа

 

[Jax Rebel]

Како во Паскал се запишува некој борј нa n-ти степен?

пример:

b:=a(na stepen n)????

 

[Intex]

Проблемот е што дава погрешни пресметки.
Пример
5*3.14=1.57

Оти ти е real дефинирана плоштината. Напишо го ова:
WriteLn (Plostina:8:2)
readln;


Сега имаш максимум 8 места за плоштина, од кои 2 ти се за децимални броеви и едно за запирката.

Како во Паскал се запишува некој борј нa n-ти степен?

пример:

b:=a(na stepen n)????

Пиши го овој код:

Program Brojnastepen;
Var A,B,N,Suma:integer;
Begin
WriteLn ('Vnesete go N');
readln (N);
WriteLn ('Vnesete go A');
readln (A);
Suma:=1;
For B:=1 to N do
Begin
Suma:=Suma*A;
END;
WriteLn (Suma)
readln;
END.

 

[Jax Rebel]

Пишувам програма за пресметување на неравенка (пр. ax+b>0). Како да ставам решението да го покажува како интервал. Јас работам преку нова променлива p која ја изразува вредноста -b/a и потоа решение за х од п до бесконечност. Еве:

program neravneka;
uses crt;
var a,b,x,p:real;
begin
     write('a=');readln(a);
     write('b=');readln(b);
     if a<>0 then
     begin
       p:=-b/a;
       writeln('p=',p:10:2);
       write('x pripaga od p do beskonecnost');
     end
     else write('nema resenie');
     readln;
end.

Може ли да се стави да го покажува како интервал?

 

[Intex]

Пишувам програма за пресметување на неравенка (пр. ax+b>0). Како да ставам решението да го покажува како интервал. Јас работам преку нова променлива p која ја изразува вредноста -b/a и потоа решение за х од п до бесконечност. Еве:

program neravneka;
uses crt;
var a,b,x,p:real;
begin
     write('a=');readln(a);
     write('b=');readln(b);
     if a<>0 then
     begin
       p:=-b/a;
       writeln('p=',p:10:2);
       write('x pripaga od p do beskonecnost');
     end
     else write('nema resenie');
     readln;
end.

Може ли да се стави да го покажува како интервал?

Еве ти ја решена, само наместо ова за помало, поголемо со стрингови со бројки го напишав.

Program Mirce;
Var A,B,C:integer;
X:real;
Begin
WriteLn ('Vnesete gi a i b');
readln (A,B);
WriteLn ('Vnesete 1 za pomalo ili 2 za pogolemo');
readln (C);
X:=-B/A;
If C=1
then
WriteLn ('Za x pripagaat od - beskonecnost do ', X);
If C=2
then
WriteLn ('Za x pripagat od ', X ,' do + beskonecnost');
readln;
END.

 

[Jax Rebel]

Еве ти ја решена, само наместо ова за помало, поголемо со стрингови со бројки го напишав.

фала за помошта, само испуштена е ситуацијата кога а=0. Доколку се вметне и таа би изгледало вака:

Program neravenka;
Var A,B,C:integer;
X:real;
Begin
     WriteLn ('Vnesete gi a i b');
     readln (A,B);
     WriteLn ('Vnesete 1 za pomalo ili za 2 pogolemo');
     readln (C);
     if a=0 then writeln('nema resenie')
     else
     begin
         X:=-B/A;
         If C=1
         then
         WriteLn ('Za x pripagaat od - beskonecnost do ', X:10:2);
         If C=2
         then
         WriteLn ('Za x pripagat od ', X:10:2 ,' do + beskonecnost');
         If a=0 then writeln('nema resenie');
     end;
     readln;
END.