View Full Version : Помощ ! Блок схема и програма на Паскал
connected
06-08-2011, 20:51
Еми по информатика ни дадоха проект . Моя е следния : Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на триъгълник по зададени 3 страни и да се провери дали отсечките образуват триъгълник. Който с каквото може да помогне , ще ми е от полза . 8-[
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, 11:03
Госпожата ни даде проект по информатика
Искам ако може да ми помогнете това е задачата ми :
Да се състави блок-схема и програ на Паскал за размяна на стойностите на две променлими х и у .
Моля помогнете ми че ми трябва спешноо .
благодаря предварителноо . :P :P :P
Начало->Въвеждане на стойностите на 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.
Ще можели малко помощ че и на нас ни дадоха да правим проект задачата ми е: да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на правоъгълник по зададени страни и да се провери дали страните са положителни числа. Предварително благодаря 8-[
Начало->Въвеждане на а и 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, 16:12
Явно на доста хора им дават такава домашна на края на годината, затова и аз ще помоля ако е възможно някой да помогне защото... :shock: :D "Да се състави блок-схема и програма на Паскал за решаване на квадратно уравнение." Ако не е голям проблем, мерси предварително 8-)
Блок схема: 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, 18:39
Благодаря много, радвам се че има такива хора като вас 8-)
mirkata31
06-15-2011, 18:52
Ако може малко помощ и за мен :( Моята задача е следната : Да се състави блок- схема и програма на Паскал за обмяна на лева в евро. Благодаря предварително ! :)
Начало->Въвеждане на сумата в лева->Извеждане на сумата в евро->край.
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, 19:01
мерсиии мерси ! :) :)
tomass995
06-16-2011, 21:20
ето моето условие предварително благодаря
Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на правоъгълник по зададени две страни и се провери дали страните са полойителни числа.
Е добре, бе, 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, 11:00
Моето е: Да се състави блок-схема и програма на паскал за изчисляване на периметър лице и средна осножа на трапец по зададени a,b,h,c и d и се провери дали страните са положителни числа. Мерси предварително :)
Начало->Въвеждане на а,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, 11:42
и моята домашна е подобна и ще съм благодарна ако ми помогнете
ето я : Да се състави блок-схема и програма на паскал за решаване на линейно уравнение .
infamous333
06-21-2011, 21:27
Нуждая се от спешна помощ.Ето домашната :Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на квадрат по зададена страна и да се провери дали страната е положително число.
Ще съм много благодарен ,ако някой ми помогне :)))
Начало->Въвеждане на а ->Проверка дали а е положително->Ако не, връщаме се на стъпка 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, 10:40
Здравейте .. можете ли да помогнете и на мен .. задачата ми е да се състави блок-схема и програма на Паскал за линейно уравнение ... блк-схемата съм си я направил .. само ако можете за паскал да ми помогнеге :oops: [/img]
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, 12:38
Да се състави програма на Паскал за намиране на произведение на N естесвени числа
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, 13:56
Моето е: Да се състави блок-схема и програма на паскал за изчисляване на периметър лице и средна осножа на трапец по зададени a,b,h,c и d и се провери дали страните са положителни числа. Мерси предварително :)
blok-sxemata kak da q na4ertaq s razkloneniqta
4е nz tova yslovie otkade se poqvi
Моля, помогнете! Имам домашна: Да се състави блок-схема и програма на Паскал за намиране на sinα на равнобедрен триъгълник по зададено бедро b и основа a. Моля, помогнете. Благодаря предварително :)))
Блог Схема-Пресмятане на произведението 1х22,1х33 на 2, до н-та х н2-та Ето я и моята ,Който може да помогне ..:))
iliqnaaaaaaaa
06-21-2012, 19:47
Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на квадрат по зададена страна и се провери дали страната е положително число.Благодаря предварително !
toshko45
06-22-2012, 07:43
МОЛЯ ПОМОГНЕТЕ МИ !!!! Дадени са три числа. Да се пресметне и изведе колко са положителните числа и колко са отрицателните такива. ???? ПИШЕТЕ МИ АКО ИСКАТЕ В СКУПЕ toshko45
r1odayftw
06-23-2012, 17:47
Да се състави блок-схема и програмата на Паскал за функцията-y=max{x1,x2}като на y се зададе по голямото от двете числа
Помогнете плс ... :)
Айде е ти: http://prikachi.com/images/230/4936230T.jpg
Там дето е y:=2 e y:=x2, ма се обърках. Много гадно се пише на комп.
totkoto93
11-26-2012, 13:17
Може ли някой да ми помогне?Благодаря Ви предварително.
Да се състави програман на Паскал за нуждите на списание за запознанства,която поддържа следната информация за своите клиенти:
-име;
-ЕГН;
-номер на домашен телефон;
-списък с интереси
и извършва следните операции:
-създава файл с данните на клиенти;
-добавя нови клиенти и изтрива отпаднали;
-извежда двойките М-Ж,котио имат общи интереси и тел.номера,започващи с 62;
-създава текстов файл с имената и номерата на дом.телефони на мъжете,по-възрастни от 30 години
Здравейте! Моля за помощ по курсова работа.Благодаря предварително.
Ето и условието :
Да се състави блок-схема и програма за Паскал за въвеждане на N цели числа , най - малкото от тях да се замени със средноаритметичното им , а най-голямото с произведението им.
Можете ли да ми направите блок схема на тази програма моля ви
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.
Моля за малко помощ.Имам задача да направя програма на Паскал, в която се въвежда стойност на x и y по координатната ос за уравнението y=ax+b. И след това се извежда линията отговаряща на тези стойности. Много ви благодаря предварително.
Имам нужда от помощ,благодаря предварително :) .Имам да съставя блок схема и програма на Паскал,която по зададен радиус изчислява дължина на окръжност и лице на кръг.Ще съм много благодарна,мерси :)
Здравейте много ми трябва програма на паскал за квадратно уравнение за D>0 , D<0 , D=0 и от там x1 и x2 да се изведат много моля да помогнете защото ми трябва спешно , а нещо на мен не ми се получава.Мерси много предварително :)
georgipopov
06-20-2015, 07:26
Моля за помощ спешно ми трябват 3 задачи по информатика за понеделник! Те са:
-Намиране координатите на средата на отсечка.
-Намиране на числа в интервала [a, b], които удовлетворяват зададено свойство.
-Алгоритъм на Евклид (намиране на НОД на две естествени числа)
Благодаря предварително..... много моля за понеделник :)
Valeriq777
06-15-2016, 08:34
"Да се състави СОА,ГОА и програма на Паскал за решаване на линейно уравнение". Моля, ако някой може да го направи, да ми помогне. Спешно е!!!
Елмо иска да му се отблагодариш в натура.
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.
Елмо трябва да си провери кода... ГлупаГ
1вата задача е: Да се състави програма на Паскал, която отпечатва 10 реда от триъгълника на Паскал
2рата е: Програма, която отпечатва пермутациите на цифрите 1 2 3 4
mirolyuba
04-05-2018, 09:23
програма на паскал, която намира лице и периметър на трапец по зададена страна и височина HELP!!!
Здравейте. Много ще ви бъда благодарен, ако ми помогнете с една задача в Паскал. Ето и задачата:
Създайте комерсиална програма, с която да се изчисляват периметрите на равностранен триъгълник, квадрат и кръг, както и лицата на квадрата и кръга. Също така ми е дадено, че диаметъра на кръга е равен на страната на квадрата и на триъгълника.