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

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

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

для специальности Техническое обслуживание средств вычислительной техники и компьютерных сетей ___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;

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;

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