Паскал - Pascal

[Mr.HyPNoTiC]

Шо бидна имам ли 5тка ?

 

[DreamCoder]

А малце поубаво да ја поставеше задачата пошто бар мене не ми е разбирлива вака
До 10 само ќе иде?
Што имаш во именител што во броител?

Вака на прв поглед ти треба еден фор циклус кој ќе зголемува две променливи

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

ЗАДАЧАТА ГЛАСИ 1 ВРЗ 2 + 3 ЧЕТВРТИНИ(3 ЧЕТВРТИНИ ПРЕТСТАВУВА ИМЕНИТЕЛ ВО ИМЕНИТЕЛ) И ТАКА ПРОДОЛЖУВА ДО 10.

--- надополнето ---

n:=n+1 нека е под rez да да почнит од 1 програмава, вака почвит од 2. Не памтам точно во Паскал синтаксава ама во ваков фор вклучена е и 10ката?

И ЈАС ТАКА ПРОБАВ..НО НЕ БИЛА ТАКА...ВО ВЕРИЖНАВА ДРОПКА ИМА ИМЕНИТЕЛ ВО ИМЕНИТЕЛ , А ТОА ГО СТВАРА ПРОБЛЕМОТ..СЕПАК ФАЛА ЗА ПОМОШТА..ОВА ТИ ГО ЦЕНАМ

--- надополнето ---

Со FOR-TO-DO

PROGRAM Ubavina;
VAR n:integer;
   rez,m:real;
BEGIN
WriteLn('Presmetuvanje na verizna dropka od 1 do 10');
FOR n:=1 TO 10 DO
BEGIN
  n:=n+1;
  rez:= n / (n+1)+(n+2);
  m:=m+rez;
END;
 WriteLn('Rezultatot e:'m);
 ReadLn;
END.

Незнам што е тоа верижна дропка ... али според тоа што мислам еве

фала уште еднаш за обидот. и професор по математика се чудеше на ова..затоа побарав помош...сепак фала

--- надополнето ---

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

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

 

[zlxlclvlbln]

Вака е тоа задачата? Ако не е вака напиши ја во Word и дај сликче.

 

[bet]

Здраво, дали ќе сака некој да ми помогне????
Да се напише програма за пресметување на НЗД на два природни броја во паскал. . .

 

[redcherry]

Здраво!Дали ќе сака некој да ми помогне во врска со една задача?
Се мачам веќе 2 недели да ја решам....

Дали внесен збор е палиндром? (Палиндром е збор има исто значење кога го читаш и од напред и од позади)
abcde не е палиндром
kalabalak е палиндром

Да се направи програма што сама ќе увиди дали зборот е палиндром или не е.
Фала ви однапред.

 

[nelo]

program palindrom;
var a:string;
i,n,p:integer;
begin
p:=0;
readln(a);
n:=length(a);
for i:=1 to n do
if a <> a[n-i+1] then p:=1;

if p=1 then writeln('NE')
else writeln('DA');

readln;
end.

 

[redcherry]

Леле, фала ти.Должна сум ти:

 

[Coldplayer]

Знае ли некој како можам во турбо паскал, да направам вежба така што кога ќе напишам реченица, зборовите да бидат во обратен редослед?
Пример: „Денес надвор времето е сончево“ во „Сончево е времето надвор денес“.
Фала многу.

 

[Anthony Kiedis]

Treba da napravam programa vo pascal za Sortiranje na broevi(Na primer od vnesenite broevi 1,3,4,5,2- da se sortiraat i da se prikazat po redosled 1,2,3,4,5.) Moze nekoj da mi kaze kako se pravi toa? Fala odnapred

 

[jovce.]

Treba da napravam programa vo pascal za Sortiranje na broevi(Na primer od vnesenite broevi 1,3,4,5,2- da se sortiraat i da se prikazat po redosled 1,2,3,4,5.) Moze nekoj da mi kaze kako se pravi toa? Fala odnapred

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

 

[bet]

Dali ke saka nekoj da mi kaze kako da napravam programa vo PASCAL za presmetuvanje na NZS na 2 broja ?

 

[Iµµortal]

Dali ke saka nekoj da mi kaze kako da napravam programa vo PASCAL za presmetuvanje na NZS na 2 broja ?

PROGRAM Nzs_Na_Dva_Broja;
VAR a,b,nzs,p,delitel:integer;
BEGIN
writeln('vnesi dva broja');
write('a=');
read(a);
write('b=');
read(b);
nzs:=0;
delitel:=0;
begin
if a>b
then
begin
nzs:=a;
delitel:=b
end
else
begin
nzs:=b;
delitel:=a;
end;
p:=nzs;
while nzs mod delitel <> 0 do
nzs:=nzs+p
end;
writeln('najmal zaednicki sodrzatel na broevite',a,'i',b,'e brojot',nzs);
end.

 

[slavce10]

Здраво, ве молам помош за следнава задача:
Да се напише програма во Паскал со која ќе ги пронајде сите броеви близнаци ( прости броеви што се разликуваат за 2) во даден интервал...
Може да користите:
IF, FOR TO DO, WHILE DO...

 

[FeliXxX]

едноставна е дај кажи ми тексто поубаво..ваа е за втора година средно паскал

Здраво, ве молам помош за следнава задача:
Да се напише програма во Паскал со која ќе ги пронајде сите броеви близнаци ( прости броеви што се разликуваат за 2) во даден интервал...
Може да користите:
IF, FOR TO DO, WHILE DO...

 

[slavce10]

питај што сакаш поточно ке ти одговорам... Да за втора е ...