Приложение

СОГЛАСОВАНО Протокол № ________ заседания ПЦК «Информатика и вычислительная техника» _________________И.Н. Дементьева от «___»_________ 20____ г.

УТВЕРЖДАЮ Заместитель директора _____________Т.И. Дмитриева «____» __________20__г.

Приложение

(Решение задач)

по дисциплине «Основы алгоритмизации и программирования»

для специальности Техническое обслуживание средств вычислительной техники и компьютерных сетей___3___ курс (__6__семестр)

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ №___1___

Program kraska;

Var S,P,N,Z: real;

Begin

Writeln(‘Vvedite P,N,Z’);

Readln(P,N,Z);

S:=P*N*Z;

Writeln(S); Readln;

End.

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _2__

Рисунок 1. Пример формы

Тексты процедур

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __3_

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _4__

Repeat

u := x/n*u; {очередное слагаемое}

s := s+u; n := n+l;

until (Abs (y-s) <= Eps) or (n=Limit);

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _5__

Program Func;

Var X,Y: real;

Begin

Writeln(‘Vvedite X’);

Readln(X);

Y:=Sin(X)*Sin(X)+Sqrt(Sin(X)/Cos(X));

Writeln(Y); Readln ; End.

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __6_

Рисунок 2. Пример формы

Текст процедуры

procedure TForm1.Button1Click(Sender: TObject);

var

x:integer;

s:real;

begin

s:=0;

for x := 1 to 15 do

s:=s+ x/(2*x-1);

Edit2.Text:=FloatToStr(s);

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _7__

Program kino;

Var S,A,P,PR,K: real;

Begin

Writeln(‘Vvedite A,P,PR,K’);

Readln(A,P,PR,K);

S:=(A+P+PR)/K;

Writeln(S);

Readln;

End.

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _8__

Рисунок 3. Пример формы

Текст процедуры

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

case ComboBox1.ItemIndex of

0 : Form1.Color:=clred ;

1 : Form1.Color:=clgreen ;

2 : Form1.Color:=clblue ;

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _9__

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __10_

begin

Write( 'Задай аргумент и погрешность: ');

ReadLn (x, Eps);

у := Ехр(х); s := сумма; u := 1;

n := 1;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _11__

Program proizv;

Var P: real;

i:integer;

Begin

P:=1;

For i:=1 to 10 do

P:=P*(i*i*i/sqrt(i));

Writeln(P); Readln; End.

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __12_

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __13_

Program kolzo;

Var DM,DB,S: real;

Begin

Writeln(‘Vvedite DM,DB’);

Readln(DM,DB);

S:=3.14*(DB*DB/4-DM*DM/4);

Writeln(S);

Readln; End.

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _14__

Рисунок 4. Пример формы

Тексты процедур

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _15__

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № 16___

if n >= Limit then WriteLn(n, ‘шагов не хватило',' для достижения точности’)

else begin
WriteLn 'Левая часть: ', у:15:6)

WriteLn ('Правая часть: ', s:15:6);
WriteLn ('Погрешность ',Eps:10:6, ' достигнута за ',n, ' шагов'); End;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _17__

Рисунок 5. Пример формы

Тексты процедур

procedure TForm1.Button1Click(Sender: TObject);

var

h,d:integer;

begin

h:=StrToInt(Edit1.Text);

d:=StrToInt(Edit2.Text);

Form1.Height:=h;

Form1.Width:=d;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __18_

Рисунок 6. Пример формы

Тексты процедур

procedure TForm1.Button1Click(Sender: TObject);

var

x,y:real;

begin

x:=StrToFloat(Edit1.Text);

if x<=1 then y:=x+2 else

if x<2 then y:=x-2 else y:=x*x;

Edit2.Text:=FloatToStr(y);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _19__

Program sum;

Var

B: array [1..100] of integer;

i,S,n:integer;

Begin

Writeln(‘Vvedite n’); Readln(n);

S:=0;

For i:=1 to n do

Begin

Writeln(‘Vvedite B[i]’);

Readln(B[i]);

S:=S+B[i]);

End;

Writeln(S); Readln; End.

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _20__

Рисунок 7. Пример формы

Тексты процедур

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit2.Text:=FloatToStr(StrToFloat(Edit1.Text)*100) +'см';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit2.Text:=FloatToStr(StrToFloat(Edit1.Text)/100) +'м';

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __21_

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __22_

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __23_

Так как условие A=B не выполняется, то Y =B =5

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _24__

Значение Y=6

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _25__

Рисунок 8. Пример формы

Тексты процедур

procedure TForm1.N21Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Application.Terminate;

end;

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _26__

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __27_

Так как условие A<>B не выполняется, то Y =B =5

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _28__

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № _29__

Так как условие A<B не выполняется, то Y = A*B =14

ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ № __30_

Рисунок 9. Пример формы

Тексты процедур

procedure TForm1.N21Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Application.Terminate;

end;

Преподаватель: О.Н. Грозман _____________________