Допълнение към квадратно уравнение

Ето и решението на задачата от предишната публикация на Microsoft Basic, която без проблем можете да компилирате на Правец

10 HOME
20 PRINT "-------PROGRAMA ZA RESHAVANE NA KVADRATNI URAVNENIQ-------"
30 PRINT "VAVEDETE A "
40 INPUT A
50 PRINT "VAVEDETE B "
60 INPUT B
70 PRINT "VAVEDETE C "
80 INPUT C
90 D=B^2-4*A*C
100 PRINT "DISCRIMINANTATA E RAVNA NA ",D
110 IF D<0 THEN PRINT "DISKRIMINANTATA E OTRICATELNA ZATOVA URAVNENIETO NQMA RESHENIE"
130 IF D=0 THEN GOTO 200
140 X1 = ((-B)-SQR(D))/(2*A)
150 X2 = ((-B)+SQR(D))/(2*A)
160 PRINT "X1 = ",X1
170 PRINT "X2 = ",X2
180 GOTO 210
190 X = -B/(2*A)
200 PRINT "DISCRIMINANTATA E RAVNA NA NULA ZATOVA URAVNENIETO IMA EDNO RESHENIE: ",X
210 PRINT "EXIT"

Един програмист в самото начало

Вчера реших да отида там, от където тръгнах, а именно от Правец и езика за програмиране Бейсик. Тъй като на компютъра ми е инсталирана операционната система Windows 7 x64 и емулатора който изтеглих от тук не искаше да тръгне, затова използвах Virtual PC 2007, на който инсталирах Windows 95, на който пуснах емулатора и успях да скалъпя тази програмка (на снимката). След това се зачудих, ако сега ми се наложеше да тръгна от там едва ли щях да стана програмист, за което не съжалявам.

Днешните редактори на код доста ни улесняват и вече сме ги приели като даденост, но когато се върнем назад и погледнем от къде сме тръгнали ни се струва, че е било прекалено труднo

В следващата публикация ще разкажа как за пръв път се сблъсках с Windows