Question

Набрать текст программы в редакторе программ паскаля и запустить на исполнение. проанализировать полученный результат: program pr1; const f=2; var a: integer; b: real; c: char; d: boolean; begin a: =5; b: =sqrt(f); c: =’s’; d: =-7< 25; writeln(‘значение переменной а’,a); write (‘нажми клавишу enter’); readln end.

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25                 x0 := 30;         Y0 := 460;         MaxY := 80;         MaxX := GetMaxX;         i := 1;         T0 := rez[Id_T, 1];         Tk := 15;         Tkv := 0.75;         MoveTo(x0, Y0);           While T0 <= Tk do         begin             x := X0 + 70 * Round( rez[Id_T, i] );             y := Y0 - Round( rez[Id_Zt, i] / 7.8 );               LineTo(x, y);               T0 := T0 + Tkv;             i := i + 1;               DelaySeconds := Round(Tkv * 1000);             Delay(DelaySeconds);         end;         { ...Построение графика }