АК
Алина Козуляк
Pascal >> Ошибка 207: Ошибочная операция с плавающей запятой
program lab2_1;
uses crt;
var lamda,x,t,tn,tk,delta_t:real;
label 10;
begin;
clrscr;
textcolor(lightgreen);
writeln('Rabota 2.1, vipolnil Iskandarov R.R., gr. BET-11-01');
writeln('Vvedite s klaviaturi cherez "Probel" znachenia ishodnih dannih:');
writeln('t_nach, t_kon, shag_t, zavershite vvod peremennih nagatiem klavishi Enter');
readln(tn,tk,delta_t);
writeln(' Rezultat rascheta:');
writeln(' t lamda x');
t:=tn;
10:lamda:=exp(x*ln(3)-(ln(7)-ln(x))-ln(3.7));
x:=t/Pi*ln(abs(t+3))/ln(3);
textcolor(lightred);
writeln(' ',t:1:1,' ',lamda:4:2,' ',x:4:2);
t:=t+delta_t;
if t