Математика


 Правила(обновени на 11.05.2008)   Търсене   Потребители   Потребителски групи   Регистрирайте сеРегистрирайте се 
 ПрофилПрофил   Влезте, за да видите съобщенията сиВлезте, за да видите съобщенията си   ВходВход 


Не е нужно да се регистрирате!

Проект по информатика - блок - схема на Паскал


 
Създайте нова тема   Напишете отговор    Информатика Форуми -> Delphi(Pascal)
Предишната тема :: Следващата тема  
Автор Съобщение
bixtape



Регистриран на: 24 Jun 2011
Мнения: 3


МнениеПуснато на: Fri Jun 24, 2011 8:17 pm    Заглавие: Проект по информатика - блок - схема на Паскал Отговорете с цитат

Значи учителката ни даде да правим проект с различни задачи от материала на 9 клас.Та задачата е следната : " Да се състави блок - схема и програма на Паскал за намиране на периметър и лице на правоъгълен триъгълник по зададени страни а,b,c. Да се провери дали страните са положителни лица ". Ако някой има някакво предположение как се прави това и има знания в тази област да пише тук имам и примерен проект но нищо не разбирам
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Реклама







Пуснато на:     Заглавие:

Върнете се в началото
mp3



Регистриран на: 18 Mar 2011
Мнения: 9


МнениеПуснато на: Fri Jun 24, 2011 8:43 pm    Заглавие: Отговорете с цитат

Трябва ли да се проверява кои страни са катетите или се предполага, че това са а и b? Ако са въведени неположителни числа за страните - какво следва да се прави- съобщение ли да се изведе или да се въвеждат наново?
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
dedomraz



Регистриран на: 15 Jun 2011
Мнения: 5


МнениеПуснато на: Fri Jun 24, 2011 9:00 pm    Заглавие: Отговорете с цитат

Предполагам идеята е, да се въведат параметрите и ако а,б,с са положителни да се сметне лицето. Изглежда така :
program abc;
var
a,b,c,S.P:real;
begin
writeln('a,b,c=');
redln(a);readln(b);readln(c);
If (a>0) and (b>0) and (c>0) then
S:=(a*b)/2;writeln('S=');
write(S:4:2);
P:=a+b+c;
writeln('P=');write(P:4:2)
If (a<0) or (b<0) or (c<0) then
writeln('nqma takav triagalnik');
end.


Последната промяна е направена от dedomraz на Fri Jun 24, 2011 9:02 pm; мнението е било променяно общо 1 път
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
mp3



Регистриран на: 18 Mar 2011
Мнения: 9


МнениеПуснато на: Fri Jun 24, 2011 9:02 pm    Заглавие: Отговорете с цитат

Предполагам, че това ти трябва.


program ISKAM6;
var a,b,c: real;
p,s: real;

begin
write('Катет a=');readln(a);
write('Катет b=');readln(b);
write('Хипотенуза c=');readln(c);
if a>0 and b>0 and c>0 then
begin
p:=a+b+c;writeln('P=',p,'cm');
s:=(a*b)/2;writeln('S=',s:6:2,'kv.cm')
end
else writln('Въведени са неположителни дължини')
end.


Последната промяна е направена от mp3 на Fri Jun 24, 2011 9:11 pm; мнението е било променяно общо 1 път
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
dedomraz



Регистриран на: 15 Jun 2011
Мнения: 5


МнениеПуснато на: Fri Jun 24, 2011 9:03 pm    Заглавие: Отговорете с цитат

mp3- може да не са учили съставен оператор! В нашия клас бяха някви изостанали и само аз ползвах begin, end;
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
mp3



Регистриран на: 18 Mar 2011
Мнения: 9


МнениеПуснато на: Fri Jun 24, 2011 9:07 pm    Заглавие: Отговорете с цитат

Всичко може!
Може и да не са учили формат при извеждане на реални числа, но и ти го изпалзваш.
Може и да не използвали сложно логическо условие, но тука трябва.
В задачата се иска периметър и лице - тогава как без съставен оператор?


Последната промяна е направена от mp3 на Fri Jun 24, 2011 9:16 pm; мнението е било променяно общо 1 път
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
mp3



Регистриран на: 18 Mar 2011
Мнения: 9


МнениеПуснато на: Fri Jun 24, 2011 9:14 pm    Заглавие: Отговорете с цитат

dedomraz написа:
Предполагам идеята е, да се въведат параметрите и ако а,б,с са положителни да се сметне лицето. Изглежда така :
program abc;
var
a,b,c,S.P:real;
begin
writeln('a,b,c=');
redln(a);readln(b);readln(c);
If (a>0) and (b>0) and (c>0) then
S:=(a*b)/2;writeln('S=');
write(S:4:2);
P:=a+b+c;
writeln('P=');write(P:4:2)
If (a<0) or (b<0) or (c<0) then
writeln('nqma takav triagalnik');
end.


Няма да прави това, което трябва Sad
Периметър ще се пресмята винаги - независимо дали страните са положителни или не.
А освен това "S=" и "Р=" ще се извежда на един ред, а неговата стойност - на следващия.... Същото е и с данните, които се въвеждат от клавиатурата.
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
bixtape



Регистриран на: 24 Jun 2011
Мнения: 3


МнениеПуснато на: Fri Jun 24, 2011 9:38 pm    Заглавие: Отговорете с цитат

Момчета много ви благодаря за бързата рекация,но така много много не можем да се разберем,ако е удобно да дадете скайп или аз да ви дам, или някаде да ви пратя проекта и да ви напиша по - подробно какво точно сме взели.Точно в/у този материал отсъствах и малко не го разбирам. Скайпа ми е aleti_94 ще следя активно и тук. Благодаря отново.
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
mp3



Регистриран на: 18 Mar 2011
Мнения: 9


МнениеПуснато на: Fri Jun 24, 2011 9:50 pm    Заглавие: Отговорете с цитат

Момчета.........??!!??
Стига дискриминация!!
И момичетата разбират от програмиране!!
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
bixtape



Регистриран на: 24 Jun 2011
Мнения: 3


МнениеПуснато на: Fri Jun 24, 2011 10:12 pm    Заглавие: Отговорете с цитат

mp3 написа:
Момчета.........??!!??
Стига дискриминация!!
И момичетата разбират от програмиране!!
Е добре извинявам се нов съм във форума,разбери ме Very Happy
П.П: БЛАГОДАРЕНИЕ НА МP3 проекта ще бъде осъществен!
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
mp3



Регистриран на: 18 Mar 2011
Мнения: 9


МнениеПуснато на: Fri Jun 24, 2011 11:03 pm    Заглавие: Отговорете с цитат

Алилуя!!
Very Happy
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Гост







МнениеПуснато на: Sun Nov 20, 2011 7:38 pm    Заглавие: Здр Отговорете с цитат

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

Стойностите на едномерния масив А(N) са реални числа и се задават от потребителя . Да се състави блок-схема и програма на Pascal за изчисляване на сумата:
A1;A1.A2(dvoikata tuk e malka kato pri himichen element v dolnata chast na A-to); A1.A2A3(i taz troika e malka);A1.A2....An

Ето това е което сасипа хубавите ми безгрийни дни в 1 ви курс на ФАКУЛТЕТО
Моля за попощ от някой добър и отзивчив човек ( без значение пола , специално за момичето по горе ) . Sad Confused
Върнете се в началото
Реклама







Пуснато на:     Заглавие:

Върнете се в началото
Покажи мнения от преди:   
Създайте нова тема   Напишете отговор    Информатика Форуми -> Delphi(Pascal) Часовете са според зоната GMT + 2 Часа
Страница 1 от 1

 
Идете на:  
Можете да пускате нови теми
Можете да отговаряте на темите
Не Можете да променяте съобщенията си
Не Можете да изтривате съобщенията си
Не Можете да гласувате в анкети
You cannot attach files in this forum
Може да сваляте файлове от този форум
Copyright © 2007-2013 math10.com.   изработка на сайт