PDA

View Full Version : Помощ ! Блок схема и програма на Паскал



connected
06-08-2011, 21:51
Еми по информатика ни дадоха проект . Моя е следния : Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на триъгълник по зададени 3 страни и да се провери дали отсечките образуват триъгълник. Който с каквото може да помогне , ще ми е от полза . 8-[

Chacho
06-09-2011, 10:14
http://prikachi.com/images/534/3431534n.jpg


program triygylnik_p;

var

a,b,c,p: real;

begin

write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);

if (a<b+c) and (b<a+c) and (c<b+a) then
begin
p:=(a+b+c)/2;
writeln('P=',2*p:2:2);
write('S=',sqrt(p*(p-a)*(p-b)*(p-c)):2:2);
end
else

write('Ne sushtestvuva takuv triygylnik');
readln;
end.

Praskovka95
06-14-2011, 12:03
Госпожата ни даде проект по информатика
Искам ако може да ми помогнете това е задачата ми :
Да се състави блок-схема и програ на Паскал за размяна на стойностите на две променлими х и у .
Моля помогнете ми че ми трябва спешноо .
благодаря предварителноо . :P :P :P

Chacho
06-14-2011, 16:42
Начало->Въвеждане на стойностите на a,b->Запаметяване на стойността на а в с->a:=b->b:=c->Изход на а и с->Край



program razm;

var

a,b,c: real;

begin

write('a='); readln(a);
write('b='); readln(b);

c:=a;
a:=b;
b:=c;

writeln('a=',a:2:2);
writeln('b=',b:2:2);

readln;

end.

narkobs
06-14-2011, 19:59
Ще можели малко помощ че и на нас ни дадоха да правим проект задачата ми е: да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на правоъгълник по зададени страни и да се провери дали страните са положителни числа. Предварително благодаря 8-[

Chacho
06-14-2011, 21:50
Начало->Въвеждане на а и b->Проверка дали а и b са положителни->Ако не, връщаме се на стъпка 2 - въвеждането (това връщане ще го нарисуваш със стрелка от 3 към 2 и пишеш до нея "НЕ", аз не мога тук във форума да направя такава); а ако да, правиш стрелка напред и пишеш до нея "ДА"->Извеждане на 2(a+b) и a.b->Край


program rect;

var

a,b:real;

begin

write('a='); readln(a);
write('b='); readln(b);

while (a<=0) and (b<=0) do
begin
writeln('Vuvedete polojitelni stoinosti!!!');
write('a='); readln(a);
write('b='); readln(b);
end;

writeln('P=',2*(a+b):2:2,' S=',a*b:2:2);
readln;
end.

maistorabs
06-15-2011, 17:12
Явно на доста хора им дават такава домашна на края на годината, затова и аз ще помоля ако е възможно някой да помогне защото... :shock: :D "Да се състави блок-схема и програма на Паскал за решаване на квадратно уравнение." Ако не е голям проблем, мерси предварително 8-)

Chacho
06-15-2011, 17:52
Блок схема: http://prikachi.com/images/104/3456104A.jpg

http://prikachi.com/images/104/3456104A.jpg






program quadr;

var

a,b,c, x1, x2, D: real;

begin

writeln('Programa za reshavane na kvadratno uravnenie ax2+bx+c=0');
writeln;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);

if a=0 then
begin
if b=0 then
begin
if c=0 then
begin
writeln('Vsqko x');readln
end
else
begin
writeln('Nqma reshenie');readln;
end
end
else
begin
writeln('x=',(-c/b):2:2);
readln;
end;
end

else

D:=b*b-4*a*c;

if D>=0 then

begin

x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);

writeln('x1=',x1:2:2);
writeln('x2=',x2:2:2);

end

else
writeln('Nqma realni koreni');
readln;

end.

maistorabs
06-15-2011, 19:39
Благодаря много, радвам се че има такива хора като вас 8-)

mirkata31
06-15-2011, 19:52
Ако може малко помощ и за мен :( Моята задача е следната : Да се състави блок- схема и програма на Паскал за обмяна на лева в евро. Благодаря предварително ! :)

Chacho
06-15-2011, 19:59
Начало->Въвеждане на сумата в лева->Извеждане на сумата в евро->край.




program change;

var

l:real;

begin

write('Vuvedete sumata v leva:');
readln(l);

writeln('Sumata v evro:', l*0.511280616:2:2);

readln;
end.


Малко й е идиотско закръглянето и поддържа само лева->евро (без евро->лева).

mirkata31
06-15-2011, 20:01
мерсиии мерси ! :) :)

tomass995
06-16-2011, 22:20
ето моето условие предварително благодаря
Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на правоъгълник по зададени две страни и се провери дали страните са полойителни числа.

Chacho
06-16-2011, 22:53
Е добре, бе, tomass995, точно в тази тема е написана задачата ти. Прегледай малко!




Начало->Въвеждане на а и b->Проверка дали а и b са положителни->Ако не, връщаме се на стъпка 2 - въвеждането (това връщане ще го нарисуваш със стрелка от 3 към 2 и пишеш до нея "НЕ", аз не мога тук във форума да направя такава); а ако да, правиш стрелка напред и пишеш до нея "ДА"->Извеждане на 2(a+b) и a.b->Край


program rect;

var

a,b:real;

begin

write('a='); readln(a);
write('b='); readln(b);

while (a<=0) and (b<=0) do
begin
writeln('Vuvedete polojitelni stoinosti!!!');
write('a='); readln(a);
write('b='); readln(b);
end;

writeln('P=',2*(a+b):2:2,' S=',a*b:2:2);
readln;
end.

Plunkata
06-19-2011, 12:00
Моето е: Да се състави блок-схема и програма на паскал за изчисляване на периметър лице и средна осножа на трапец по зададени a,b,h,c и d и се провери дали страните са положителни числа. Мерси предварително :)

Chacho
06-20-2011, 11:53
Начало->Въвеждане на а,b,c,d,h->Условие: Някое от числата да е отрицателно->Ако да: Стъпка 2. Ако не->Извеждане на P=a+b+c+d и S=(a+b)*h/2->Край.




program rect;

var

a,b,c,d,h:real;

begin

write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
write('h='); readln(h);

while (a<=0) or (b<=0) or (c<=0) or (d<=0) or (h<=0) do
begin
writeln('Vuvedete polojitelni stoinosti!!!');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
write('h='); readln(h);

end;

writeln('P=',(a+b+c+d):2:2,' S=',((a+b)*h/2):2:2);
readln;
end.

qwerty0611
06-20-2011, 12:42
и моята домашна е подобна и ще съм благодарна ако ми помогнете
ето я : Да се състави блок-схема и програма на паскал за решаване на линейно уравнение .

infamous333
06-21-2011, 22:27
Нуждая се от спешна помощ.Ето домашната :Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на квадрат по зададена страна и да се провери дали страната е положително число.
Ще съм много благодарен ,ако някой ми помогне :)))

Chacho
06-22-2011, 00:18
Начало->Въвеждане на а ->Проверка дали а е положително->Ако не, връщаме се на стъпка 2 - въвеждането (това връщане ще го нарисуваш със стрелка от 3 към 2 и пишеш до нея "НЕ", аз не мога тук във форума да направя такава); а ако да, правиш стрелка напред и пишеш до нея "ДА"->b:=a->Извеждане на 2(a+b) и a.b->Край




program kvadrat;

var

a,b:real;

begin

write('a='); readln(a);

while (a<=0) do
begin
writeln('Vuvedete polojitelni stoinosti!!!');
write('a='); readln(a);
end;

b:=a;

writeln('P=',2*(a+b):2:2,' S=',a*b:2:2);
readln;
end.







Мързеше ме да пиша цяла задача, така че това е задачата за лице и периметър на правоъгълник, като съм направил а и b да са равни. Там, където е било нужно, съм внесъл поправките (и в блок схемата), просто не е стандартното решение.

metallicaa95
06-22-2011, 11:40
Здравейте .. можете ли да помогнете и на мен .. задачата ми е да се състави блок-схема и програма на Паскал за линейно уравнение ... блк-схемата съм си я направил .. само ако можете за паскал да ми помогнеге :oops: [/img]

Chacho
06-22-2011, 12:53
program linear_eq;

var

a, b: real;

begin

writeln('Programa za reshavane na lineino uravnenie ax+b=0');

write('a='); readln(a);
write('b='); readln(b);

writeln;

if a=0 then

begin

if b=0 then

writeln('Vsqko x')

else

writeln('Nqma reshenie');

end

else

writeln('x=', (-b/a):2:2);

readln;

end.

chicharito1496
06-22-2011, 13:38
Да се състави програма на Паскал за намиране на произведение на N естесвени числа

Chacho
06-22-2011, 14:51
program factorial;

var

P, n, i: integer;

begin

write('n='); readln(n);

P:=1;

for i:=1 to n do

P:=P*i;

writeln('P=',P);

readln;

end.

tan4etyyy
06-26-2011, 14:56
Моето е: Да се състави блок-схема и програма на паскал за изчисляване на периметър лице и средна осножа на трапец по зададени a,b,h,c и d и се провери дали страните са положителни числа. Мерси предварително :)
blok-sxemata kak da q na4ertaq s razkloneniqta
4е nz tova yslovie otkade se poqvi

Simona_
06-09-2012, 15:11
Моля, помогнете! Имам домашна: Да се състави блок-схема и програма на Паскал за намиране на sinα на равнобедрен триъгълник по зададено бедро b и основа a. Моля, помогнете. Благодаря предварително :)))

john41
06-17-2012, 21:06
Блог Схема-Пресмятане на произведението 1х22,1х33 на 2, до н-та х н2-та Ето я и моята ,Който може да помогне ..:))

iliqnaaaaaaaa
06-21-2012, 20:47
Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на квадрат по зададена страна и се провери дали страната е положително число.Благодаря предварително !

toshko45
06-22-2012, 08:43
МОЛЯ ПОМОГНЕТЕ МИ !!!! Дадени са три числа. Да се пресметне и изведе колко са положителните числа и колко са отрицателните такива. ???? ПИШЕТЕ МИ АКО ИСКАТЕ В СКУПЕ toshko45

r1odayftw
06-23-2012, 18:47
Да се състави блок-схема и програмата на Паскал за функцията-y=max{x1,x2}като на y се зададе по голямото от двете числа
Помогнете плс ... :)

Chacho
06-24-2012, 19:35
Айде е ти: http://prikachi.com/images/230/4936230T.jpg

Там дето е y:=2 e y:=x2, ма се обърках. Много гадно се пише на комп.

totkoto93
11-26-2012, 14:17
Може ли някой да ми помогне?Благодаря Ви предварително.
Да се състави програман на Паскал за нуждите на списание за запознанства,която поддържа следната информация за своите клиенти:
-име;
-ЕГН;
-номер на домашен телефон;
-списък с интереси
и извършва следните операции:
-създава файл с данните на клиенти;
-добавя нови клиенти и изтрива отпаднали;
-извежда двойките М-Ж,котио имат общи интереси и тел.номера,започващи с 62;
-създава текстов файл с имената и номерата на дом.телефони на мъжете,по-възрастни от 30 години

СНЗ
12-01-2012, 15:41
Здравейте! Моля за помощ по курсова работа.Благодаря предварително.

Ето и условието :
Да се състави блок-схема и програма за Паскал за въвеждане на N цели числа , най - малкото от тях да се замени със средноаритметичното им , а най-голямото с произведението им.

manixa
12-12-2012, 18:12
Можете ли да ми направите блок схема на тази програма моля ви


program asd;
uses Crt;
const
broi_studenti = 2;

var
I,J : Integer;
Ime : Array[1..broi_studenti] of String;
EGN : Array[1..broi_studenti] of String[10];
Fno : Array[1..broi_studenti] of String[6];
O : Array[1..broi_studenti,1..10] of Integer;
Sr : Array[1..broi_studenti] of real;


procedure Pisane_na_fail;
var _file: Text;
begin
Assign(_file,'C:\Studenti.txt');
Rewrite(_file);
for i:= 1 to broi_studenti do
begin
Writeln(_file,Ime[i]);
Writeln(_file,EGN[i]);
Writeln(_file,Fno[i]);
for j:= 1 to 10 do
begin
Writeln(_file,O[i,j]);
end;
end;
Close(_file);
end;

function Sreden_uspeh : real;
begin
for i:= 1 to broi_studenti do
begin
Sr[i]:=0;
for j:= 1 to 10 do
begin
Sr[i]:= Sr[i] + O[i,j]
end;
Sr[i]:= Sr[i] / 10;
writeln('Среден успех на ',Ime[i],' å ',Sr[i]:4:2);
end;
writeln('');
end;

procedure fno_sr_april;
begin
for i:=1 to broi_studenti do
begin
if (copy(EGN[i],3,2)='04') then writeln(Fno[i],', ',Sr[i]:4:2);
end;
writeln('');
end;

begin

for i:= 1 to broi_studenti do
begin
Write('Име на студент ',i,': ');readln(Ime[i]);
Write('ЕГН на ',Ime[i],': ');readln(EGN[i]);
Write('Факултетен номер на ',Ime[i],': ');readln(Fno[i]);
for j:= 1 to 10 do
begin
Write('Оценка по предмет ',j,' на ',Ime[i],': ');readln(O[i,j]);
end;
end;

writeln('');

Pisane_na_fail;
Sreden_uspeh;
fno_sr_april;
end.

etna
02-03-2013, 08:53
Моля за малко помощ.Имам задача да направя програма на Паскал, в която се въвежда стойност на x и y по координатната ос за уравнението y=ax+b. И след това се извежда линията отговаряща на тези стойности. Много ви благодаря предварително.

Викиту
06-04-2013, 09:57
Имам нужда от помощ,благодаря предварително :) .Имам да съставя блок схема и програма на Паскал,която по зададен радиус изчислява дължина на окръжност и лице на кръг.Ще съм много благодарна,мерси :)

bobi16
05-16-2015, 12:04
Здравейте много ми трябва програма на паскал за квадратно уравнение за D>0 , D<0 , D=0 и от там x1 и x2 да се изведат много моля да помогнете защото ми трябва спешно , а нещо на мен не ми се получава.Мерси много предварително :)

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

Valeriq777
06-15-2016, 09:34
"Да се състави СОА,ГОА и програма на Паскал за решаване на линейно уравнение". Моля, ако някой може да го направи, да ми помогне. Спешно е!!!

Еlmо
06-15-2016, 21:15
Елмо иска да му се отблагодариш в натура.


PROGRAM Simq1;

USES WinCrt; { Crt for non-windows version}

CONST
Rmax = 3; Cmax = 3;

TYPE
Arys = ARRAY[1..Cmax] OF Real;
Ary2s = ARRAY[1..Rmax, 1..Cmax] OF Real;

VAR
Y, Coef: Arys;
A: Ary2s;
N: Integer;
YesNo: Char;
Error: Boolean;

PROCEDURE Get_Data(VAR A: Ary2s;
VAR Y: Arys;
VAR N: Integer);
{ Get values for N and arrays A, Y }

VAR
I, J: Integer;

BEGIN { procedure Get_Data }
WriteLn;
N := Rmax;
FOR I := 1 TO N DO
BEGIN
WriteLn(' Equation ', I:3);
FOR J := 1 TO N DO
BEGIN
Write(J:3, ': ');
Read(A[I,J])
END;
Write(', C: ');
ReadLn(Y[I])
END;
WriteLn;
FOR I:= 1 TO N DO
BEGIN
FOR J:= 1 TO N DO
Write(A[I,J]:7:4, ' ');
WriteLn(' : ', Y[I]:7:4)
END;
WriteLn
END; { procedure Get_Data }

PROCEDURE Write_Data;
{ print out the answers }

VAR
I: Integer;

BEGIN { Write_Data }
FOR I := 1 TO N DO
Write(Coef[I]:9:5);
WriteLn
END; { Write_Data }

PROCEDURE Solve(A: Ary2s;
Y: Arys;
VAR Coef: Arys;
N: Integer;
VAR Error: Boolean);
VAR
B: Ary2s;
Det: Real;
I, J: Integer;

FUNCTION Deter(A: Ary2s): Real;
{ the determinant of a 3-by-3 matrix }

VAR
Sum: Real;

BEGIN { function Deter }
Sum := A[1,1]*(A[2,2]*A[3,3]- A[3,2]*A[2,3])
- A[1,2]*(A[2,1]*A[3,3]- A[3,1]*A[2,3])
+ A[1,3]*(A[2,1]*A[3,2]- A[3,1]*A[2,2]);
Deter := Sum
END; { function Deter }

PROCEDURE Setup(VAR B: Ary2s;
VAR Coef: Arys;
J: Integer);
VAR
I: Integer;

BEGIN { Setup }
FOR I := 1 TO N DO
BEGIN
B[I,J] := Y[I];
IF J > 1 THEN B[I,J-1] := A[I,J-1]
END;
Coef[J] := Deter(B) / Det
END; { Setup }

BEGIN { procedure solve }
Error := False;
FOR I := 1 TO N DO
FOR J := 1 TO N DO
B[I,J] := A[I,J];
Det := Deter(B);
IF Det = 0.0 THEN
BEGIN
Error := True;
WriteLn(' ERROR: matrix singular')
END
ELSE
BEGIN
Setup(B, Coef, 1);
Setup(B, Coef, 2);
Setup(B, Coef, 3)
END { ELSE }
END; { procedure solve }

BEGIN { main program }
WriteLn;
WriteLn
(' Simultaneous solution by Cramer-s rule');
REPEAT
Get_Data(A, Y, N);
Solve(A, Y, Coef, N, Error);
IF NOT Error THEN Write_Data;
WriteLn; Write(' More? ');
ReadLn(YesNo)
UNTIL (UpCase(YesNo) <> 'Y');
DoneWinCrt { for Windows version only }
END.

Dwyd96
06-16-2016, 15:44
Елмо трябва да си провери кода... ГлупаГ

divodo
08-31-2016, 17:11
1вата задача е: Да се състави програма на Паскал, която отпечатва 10 реда от триъгълника на Паскал
2рата е: Програма, която отпечатва пермутациите на цифрите 1 2 3 4

mirolyuba
04-05-2018, 10:23
програма на паскал, която намира лице и периметър на трапец по зададена страна и височина HELP!!!

Милко
04-24-2018, 14:59
Здравейте. Много ще ви бъда благодарен, ако ми помогнете с една задача в Паскал. Ето и задачата:
Създайте комерсиална програма, с която да се изчисляват периметрите на равностранен триъгълник, квадрат и кръг, както и лицата на квадрата и кръга. Също така ми е дадено, че диаметъра на кръга е равен на страната на квадрата и на триъгълника.