- Форум
- По малко от всичко
- Тийн Учител - есета, теми, съчинения...
- Помощ ! Блок схема и програма на Паскал
Еми по информатика ни дадоха проект . Моя е следния : Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на триъгълник по зададени 3 страни и да се провери дали отсечките образуват триъгълник. Който с каквото може да помогне , ще ми е от полза .
Shte pomagam vinagi kogato moga !
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.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Госпожата ни даде проект по информатика
Искам ако може да ми помогнете това е задачата ми :
Да се състави блок-схема и програ на Паскал за размяна на стойностите на две променлими х и у .
Моля помогнете ми че ми трябва спешноо .
благодаря предварителноо . :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.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Ще можели малко помощ че и на нас ни дадоха да правим проект задачата ми е: да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на правоъгълник по зададени страни и да се провери дали страните са положителни числа. Предварително благодаря
Начало->Въвеждане на а и 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.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Явно на доста хора им дават такава домашна на края на годината, затова и аз ще помоля ако е възможно някой да помогне защото... "Да се състави блок-схема и програма на Паскал за решаване на квадратно уравнение." Ако не е голям проблем, мерси предварително
Блок схема: 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.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Благодаря много, радвам се че има такива хора като вас
Ако може малко помощ и за мен Моята задача е следната : Да се състави блок- схема и програма на Паскал за обмяна на лева в евро. Благодаря предварително !
Начало->Въвеждане на сумата в лева->Извеждане на сумата в евро->край.
Малко й е идиотско закръглянето и поддържа само лева->евро (без евро->лева).Код:program change; var l:real; begin write('Vuvedete sumata v leva:'); readln(l); writeln('Sumata v evro:', l*0.511280616:2:2); readln; end.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
мерсиии мерси !
ето моето условие предварително благодаря
Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на правоъгълник по зададени две страни и се провери дали страните са полойителни числа.
Е добре, бе, tomass995, точно в тази тема е написана задачата ти. Прегледай малко!
Първоначално написано от Chacho
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Моето е: Да се състави блок-схема и програма на паскал за изчисляване на периметър лице и средна осножа на трапец по зададени 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.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
и моята домашна е подобна и ще съм благодарна ако ми помогнете
ето я : Да се състави блок-схема и програма на паскал за решаване на линейно уравнение .
Нуждая се от спешна помощ.Ето домашната :Да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на квадрат по зададена страна и да се провери дали страната е положително число.
Ще съм много благодарен ,ако някой ми помогне ))
Начало->Въвеждане на а ->Проверка дали а е положително->Ако не, връщаме се на стъпка 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 да са равни. Там, където е било нужно, съм внесъл поправките (и в блок схемата), просто не е стандартното решение.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Здравейте .. можете ли да помогнете и на мен .. задачата ми е да се състави блок-схема и програма на Паскал за линейно уравнение ... блк-схемата съм си я направил .. само ако можете за паскал да ми помогнеге [/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.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
Да се състави програма на Паскал за намиране на произведение на 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.
Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.
blok-sxemata kak da q na4ertaq s razkloneniqtaПървоначално написано от Plunkata
4е nz tova yslovie otkade se poqvi
Моля, помогнете! Имам домашна: Да се състави блок-схема и програма на Паскал за намиране на sinα на равнобедрен триъгълник по зададено бедро b и основа a. Моля, помогнете. Благодаря предварително ))