кажете за мойта програма
| Автор |
|
| angelicstarВто, 30.01.07, 18:01 |
2 седмици уча как се правят програми. сега написах на-после една като за пред хора. знам че е съвсем никаква. само искам да ми кажете какво трябва да се направи да стане като истинска, плс! самоче я слагам като скиншот понеже немога да копя и да пастя от Command Prompt. КАЖЕТЕ КАКВО МИСЛИТЕ ПЛС! предварително 10х
 това е програмата | | | дядо_попСря, 31.01.07, 14:26 |
Боже, Боже! Какви е чада раждала, ражда и сега Българска майка юнашка!
Бравос, чадо, като за две седмици и без чужда помощ си е направо Божие Чудо!
Само да ти каже Дядо Поп: има еди благословен принцип в програмирането - не прави ти онуй що кашона може да го направи! Значи не ти трябва да пишеш цели 3 пъти 'Vavedete koeficient'. По лесно ще ти е да обявиш константа с тези слова. Също както си въвела оная променлива T за да не смяташ 2 пъти една и съща стойност. Изобщо помисли си как да стане да не пишеш 3 дълги реда за въвеждане щом като редовете са почти еднакви.
Има и други трески за дялкане, ала да оставим и на други да се изкажат.
Дерзай, чадо, на туй благочестиво поприще!
Благословени дерзаещите, защото тяхно е царството Божие! | | | angelicstarСря, 31.01.07, 17:58 |
ами мислих нещо за цикъл или деда знам. още не съм стигнала до как се прави цикъл. с цикъл щестане ли? | | | boy4oЧет, 01.02.07, 12:03 |
Вярно, много още има да учиш, обаче това, което си постигнала за толкова време не е малко. Въпросът е да не спреш дотук. Понеже, право казано, това все още не е програма в общоупотребимия смисъл. В разговорен смисъл казваме програма за нещо, което употребяваме многократно и при различни случаи. Примерно - искам да реша не 1, а 20 уравнения; трябва ли да стартирам програмата 20 пъти? Значи, като стигнеш до там, е добре да предвидиш някакъв цикъл, който да се превърта 20 (или друг брой) пъти. (това го казвам като подкокоросване да караш напред  ). --------------------
 Кака ти Роки ще ти издърпа ушите за този аватар! Кака ти Роки ще ти издърпа ушите за този аватар! редактиран от boy4o на 12.02.07 14:01 | | | hirokoЧет, 01.02.07, 14:15 |
Да. Ще ти ги издърпам ушите. Обаче не много. Понеже виждам как хубаво си се научила. За много начинаеща си го направила съвсем добре. Още да ти кажа не трябва да правиш copy/paste от Command Prompt. Програмите ти се пазят в файлове PAS и те са прости текстови. Можеж да ги отваряш с Notepad и с други програми за текст. И може също направо да правиш програмите в някой специален редактор. Аз мисля Dev-Pascal ще бъде хубава програма за това. Още видях в твойта програма една лоша грешка. Защото ако коефициента А е 0 ще стане авария. И пак така добре да продължиш. | | | anonymousПет, 02.02.07, 16:33 |
Здравейте
както каза hiroko " има една лоша грешка" аз бих казал,че е много много лоша грешка.С други думи винаги прави проверка за 0 когато имаш делене.
С пожелания.... редактиран от anonymous на 02.02.07 16:34 | | | angelicstarПет, 02.02.07, 18:25 | RE: кажете за мойта програма
” ми да де аз тва казах 4е още мнооо има да чете  „
ми кажи кво точно да чета? | | | angelicstarПет, 02.02.07, 18:58 |
така по добре ли е? PROGRAM KVADUR2 (INPUT, OUTPUT);
VAR A, B, C , D, T, X1, X2 : REAL;
BEGIN
WRITELN ('Tova e programa za reshavane na kvadratni uravnenia' );
WRITELN;
WRITE ('Vavedete koeficient A ' ); READLN ( A );
WRITE ('Vavedete koeficient B ' ); READLN ( B );
WRITE ('Vavedete koeficient C ' ); READLN ( C );
IF A = 0 THEN BEGIN
WRITELN ( 'Tova ne e kvadratno uravnenie!' );
WRITELN ( 'Ima edinstveno reshenie X=' , -c/b : 5 : 4 );
END
ELSE BEGIN
D := SQR( B ) - 4 * A * C;
IF D < 0 THEN WRITELN ( 'Niama reshenie' )
ELSE IF D = 0 THEN WRITELN ('Uravnenieto ima dvoen koren, plus/minus ' , SQRT( SQR( -b/2/A) ) :5:4 )
ELSE BEGIN
D := SQRT ( D );
T := -B/2/A;
X1 := T + D; X2 := T - D;
WRITELN ( 'X1=', X1 :5:4, ' X2=', X2 :5:4 );
END;
END;
WRITELN;
WRITE ( 'Press ENTER to end!' ); READLN;
END. |
въвеждането не съм го променяла зашото имам друго наум. сичките сообщения са ми на латиница шото не мога да направя кирилицата в ДОС.
апък Dev-Pascal не ми харесва защото неможе да компилира. трябва да му изтегла 25 мб отделно за компилатор. сложих си sUSHi той си бачка с Turbo Pascal= | | | anonymousПет, 02.02.07, 19:29 |
Това нещо не ми харесва ELSE IF D = 0 THEN WRITELN ('Uravnenieto ima dvoen koren, plus/minus ' , SQRT( SQR( -b/2/A) ) :5:4) трябва да е ELSE IF D = 0 THEN WRITELN ('Uravnenieto ima dvoen koren, ' , -b/(2*a) :5:4 а това
D := SQRT ( D );
T := -B/2/A;
X1 := T + D; X2 := T - D;
WRITELN ( 'X1=', X1 :5:4, ' X2=', X2 :5:4 );
END;
така
x1:=((-b+sqrt(d))/(2*a)); x1:=((-b-sqrt(d))/(2*a)); WRITELN ( 'X1=', X1 :5:4, ' X2=', X2 :5:4 ); | | | angelicstarПет, 02.02.07, 20:07 | RE: кажете за мойта програма
” Това нещо не ми харесва ELSE IF D = 0 THEN WRITELN ('Uravnenieto ima dvoen koren, plus/minus ' , SQRT( SQR( -b/2/A) ) :5:4) трябва да е ELSE IF D = 0 THEN WRITELN ('Uravnenieto ima dvoen koren, ' , -b/(2*a) :5:4 „
да ама като ми напише "plus/minus -5" ми иде мн тъпо. два минуса 1 връз дуг. | |  Коментар
|
Отговор
За печат