Жизненно, зацепило) особенно //это цикл. Тем, кто такое делает, хочется подарить особую персональную клаву, где space, enter, shift и иже с ними будут подписаны как "это пробел", "это энтер", "это шифт" (да, на русском, чтоб поприятней), а все остальные кнопки чтоб без подписей.
все переменные однобуквенные
Когда я был маленький, я писал на турбо паскале и как то написал программу для расчётов из книги по моделированию ракет используя вместо кучи переменных массив.
объявление
a:array[1..11]of real;
b:array[1..18]of real;
label q,q1,q2,q3,q4,q5,ff;
вычисления
b[1]:=a[5]/a[3];
b[2]:=(a[5]-a[6])/a[3];
b[3]:=(0.014*b[1]*a[1])/(3+0.027*b[2]*a[1]);
b[4]:=b[3]*a[5];
b[5]:=a[7]/a[5];
b[6]:=a[8]/a[5];
b[7]:=(b[3]-b[5])*100;
b[8]:=0.4*a[3]*a[3]*a[2]*((b[5]+0.01*a[4]-b[3])/(b[6]-0.01*a[4]-b[5]));
b[9]:=a[9]/a[3];
b[10]:=(a[9]-a[6])/a[3];
b[11]:=(0.014*b[9]*a[1])/(3+0.027*b[10]*a[1]);
b[12]:=b[6]/a[9];
b[13]:=a[10]/a[9];
b[14]:=b[8]*(((b[12]-b[13])-0.4*a[3]*a[3]*a[2]*(b[13]-b[11]))/(0.4*a[3]*a[3]*a[2]+b[8]))+b[13];
b[15]:=a[11]/a[9];
b[16]:=0.4*a[3]*a[3]*a[2]*((b[13]+0.01*a[4]-b[14])/(b[15]-0.01*a[4]-b[13]));
b[17]:=b[14]*a[9];
b[18]:=(b[14]-b[13])*100;
навигация
q2:ch:=readkey;
case ch of
#121:goto q;
#110:goto q1;
else goto q2;
При этом все писалось в тетрадке что бы потом это все перенести на какой-нить УКНЦ или БК на УПК.
о_0 мужик ты что хотел сказать про клавиши то? На клаве кнопки так и подписаны, на английском, space, enter, shift. еще и иконки есть
IT-юмор
7.6K поста53.3K подписчик
Правила сообщества
Не публикуем посты:
1) с большим количеством мата
2) с просьбами о помощи
3) не относящиеся к IT-юмору