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

[connected]

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

[Chacho]

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]

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

[Chacho]

Начало->Въвеждане на стойностите на 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]

Ще можели малко помощ че и на нас ни дадоха да правим проект задачата ми е: да се състави блок-схема и програма на Паскал за изчисляване на периметър и лице на правоъгълник по зададени страни и да се провери дали страните са положителни числа. Предварително благодаря

[Chacho]

Начало->Въвеждане на а и 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]

Явно на доста хора им дават такава домашна на края на годината, затова и аз ще помоля ако е възможно някой да помогне защото... "Да се състави блок-схема и програма на Паскал за решаване на квадратно уравнение." Ако не е голям проблем, мерси предварително

[Chacho]

Блок схема: 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]

Благодаря много, радвам се че има такива хора като вас

[mirkata31]

Ако може малко помощ и за мен Моята задача е следната : Да се състави блок- схема и програма на Паскал за обмяна на лева в евро. Благодаря предварително !

[Chacho]

Начало->Въвеждане на сумата в лева->Извеждане на сумата в евро->край.

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]

мерсиии мерси !

[tomass995]

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

[Chacho]

Е добре, бе, 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]

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

[Chacho]

Начало->Въвеждане на а,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]

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

[infamous333]

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

[Chacho]

Начало->Въвеждане на а ->Проверка дали а е положително->Ако не, връщаме се на стъпка 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]

Здравейте .. можете ли да помогнете и на мен .. задачата ми е да се състави блок-схема и програма на Паскал за линейно уравнение ... блк-схемата съм си я направил .. само ако можете за паскал да ми помогнеге [/img]

[Chacho]

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]

Да се състави програма на Паскал за намиране на произведение на N естесвени числа

[Chacho]

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]

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

blok-sxemata kak da q na4ertaq s razkloneniqta
4е nz tova yslovie otkade se poqvi

[Simona_]

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