Программаны тестілеу. Информатика, 8 сынып, дидактикалық материал, 1 сабақ.

ҚОСЫМША 1

Программалау кодтарын салыстырыңыз:

Программа коды №1:

procedure TForm1.Button1Click(Sender: TObject);

const Pi=3.14;

var R,L,S: Real;

begin

R=TextBox1.Text;

L=2*Pi*r;

S=Pi*r*r;

TextBox2.Text=L;

TextBox3.Text=S;

end;

Программа коды №2

procedure TForm1.Button1Click(Sender: TObject);

const Pi=3.14; //Пи тұрақтысының мәні

var R,L,S: Real;//Айнымалыларды сипаттау

begin

R=TextBox1.Text;//Шеңбердің радиусының мәнін енгізу

L=2*Pi*r;//Шеңбердің радиусын пайдалана отырып шеңбер ұзындығын есептеу

S=Pi*r*r;//Шеңбердің бетінің ауданын есептеу

TextBox2.Text=L;//Шеңбер ұзындығының мәнін TextBox2 компонентіне шығару

TextBox3.Text=S;//Шеңбер ауданының мәнін TextBox3 компонентіне шығару

end;