View difference between Paste ID: Hzwf7JPJ and 9kaXnSmf

-#Калькулятор 5k
+uses sysutils,math;
-import math
+type
-print("""
+        TS=record
-			ДОБРО ПОЖАЛОВАТЬ В ЛУЧШИЙ КАЛЬКУЛЯТОР НА ПАЙТОНЕ!
+        s1,s2:string;
-					ВЫБЕРИТЕ ДЕЙСТВИЕ:
+        end;
-	0. СЛОЖЕНИЕ, БЛЯТЬ
+var
-	1. ВЫЧИТАНИЕ, НАХУЙ
+fl,k,i:longint;
-	2. РАЗДЕЛИТЬ
+n,n1,n2:extended;
-	3. УМНОЖИТЬ
+ch:char;
-	4. ВОЗВЕСТИ В СТЕПЕНЬ (КВАДРАТ ПО-УМОЛЧАНИЮ)
+s,s0:string;
-	5. ИЗВЛЕЧЬ КВАДРАТНЫЙ КОРЕНЬ
+ss:TS;
-""")
+
 procedure help;
-#Отградился от написанной выше хуйни пропуском строки
+Begin
-choice = None
+if fl=0 then begin
-while choice not in range(0,6):
+writeln('Format input:');
-	choice = int(input('Выберите действие: '))
+writeln('4+5');
-	if choice != 'None' and choice not in range(0,6):
+writeln('5-9');
-		print('ТЫ ДОЛБАЕБ ЧТОЛИ, СУКА!? ОТ 0 ДО 6, СУКА, ВЫБЕРИ, БЛЯТЬ, ЕБУЧЕЕ ДЕЙСТВИЕ!')
+writeln('3*5.7');
 writeln('8.0/7');
-if choice == 0:
+writeln('2^10');
-	def dodawanie(a,b):
+writeln('sqrt 25');
-		print('СУММА ЧИСЛА %d И ЧИСЛА %d РАВНА:' % (a, b), a+b)
+writeln('cos 0.5');
-	a = int(input('ВВЕДИТЕ ПЕРВОЕ ЧИСЛО: '))
+writeln('sin 1');
-	b = int(input('ВВЕДИТЕ ВТОРОЕ ЧИСЛО: '))
+write('>>> ');end
-	dodawanie(a,b)
+        else write('>>> ');
 fl:=1;
-elif choice == 1:
+End;
-	def odejmowanie(a,b):
+
-		print('РАЗНИЦА ЧИСЛА %d И ЧИСЛА %d РАВНА:' % (a, b), a-b)
+procedure vivod;
-	a = int(input('ВВЕДИТЕ ПЕРВОЕ ЧИСЛО: '))
+Begin
-	b = int(input('ВВЕДИТЕ ВТОРОЕ ЧИСЛО: '))
+writeln(s0);
-	odejmowanie(a,b)
+End;
 
-elif choice == 2:
+procedure probel(ss:TS);
-	def dzielenie(a,b):
+Begin
-		choice = int(input('ВЫ ХОТИТЕ РАЗДЕЛИТЬ С ОСТАТКОМ ИЛИ БЕЗ? ЕСЛИ ТЫ ДАУН >>> 0 БЕЗ, 1 С ОСТАТКОМ: '))
+n:=strtofloat(ss.s2);
-		if choice == 0:
+case ss.s1 of
-			print('ЧАСТНОЕ ОТ ЧИСЛА %d РАЗДЕЛЁННОГО НА ЧИСЛО %d БЕЗ ОСТАТКА РАВНО:' % (a, b), a//b)
+        'sqrt':n:=(sqrt(n));
-		else:
+        'cos':n:=(cos(n));
-			print('ЧАСТНОЕ ОТ ЧИСЛА %d РАЗДЕЛЁННОГО НА ЧИСЛО %d С ОСТАТКОМ РАВНО:' % (a, b), a/b)
+        'sin':n:=(sin(n));
-	a = int(input('ВВЕДИТЕ ДЕЛИМОЕ: '))
+        end;
-	b = int(input('ВВЕДИТЕ ДЕЛИТЕЛЬ: '))
+s0:=floattostr(n);
-	dzielenie(a,b)
+vivod;
 End;
-elif choice == 3:
+
-	def mnozenie(a,b):
+procedure raschot(ss:TS);
-		print('ПРОИЗВЕДЕНИЕ ЧИСЛА %d И ЧИСЛА %d РАВНА:' % (a, b), a*b)
+Begin
-	a = int(input('ВВЕДИТЕ ПЕРВОЕ ЧИСЛО: '))
+if ch=' ' then probel(ss)
-	b = int(input('ВВЕДИТЕ ВТОРОЕ ЧИСЛО: '))
+        else
-	mnozenie(a,b)
+        begin
 n1:=strtofloat(ss.s1);
-elif choice == 4:
+n2:=strtofloat(ss.s2);
-	def stopien_kwadratowy(a,b):
+case ch of
-		print('ЧИСЛО %d В СТЕПЕНИ %d РАВНО:' % (a,b), a**b)
+        '+':n:=n1+n2;
-	a = int(input('ВВЕДИТЕ ЧИСЛО, КОТОРОЕ ХОТИТЕ ВОЗВЕСТИ В СТЕПЕНЬ: '))
+        '-':n:=n1-n2;
-	b = int(input('ВВЕДИТЕ СТЕПЕНЬ, В КОТОРУЮ ХОТИТЕ ВОЗВЕСТИ ЧИСЛО: '))
+        '*':n:=n1*n2;
-	stopien_kwadratowy(a,b)
+        '/':n:=n1/n2;
         '^':n:=power(n1,n2);
-elif choice == 5:
+        end;
-	def korzen_kwadratowy(a):
+s0:=floattostr(n);
-		print('КВАДРАТНЫЙ КОРЕНЬ ОТ ЧИСЛА %d РАВЕН:' % (a), math.sqrt(a))
+vivod;
-	a = int(input('ВВЕДИТЕ ЧИСЛО, ИЗ КОТОРОГО ХОТИТЕ ИЗВЛЕЧТЬ КВАДРАТНЫЙ КОРЕНЬ: '))
+        end;
-	korzen_kwadratowy(a)
+End;
 
-input('\nENTER ДЛЯ ВЫХОДА')
+function vvod:TS;
 Begin
 help;
 readln(s);
 if s='exit' then halt;
 i:=0;ch:=#0;k:=0;
 while i<length(s) do
         begin
         i:=i+1;
         if (s[i]='+')or(s[i]='-')or(s[i]='*')or(s[i]='/')or(s[i]='^')or(s[i]=' ')
                 then begin ch:=s[i];k:=i;i:=length(s);end;
         end;
 ss.s1:=copy(s,1,k-1);
 ss.s2:=copy(s,k+1,length(s)-k);
 vvod:=ss;
 End;
 
 
 
 BEGIN
 while(true)do raschot(vvod);
 END.