Контрольная работа по "Информатике"

Министерство образования и науки Российской Федерации Федеральное государственное бюджетное образовательное учреждение высшего образования

АМУРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ (ФГБОУ ВО «АмГУ»)

КОНТРОЛЬНАЯ РАБОТА

По дисциплине: Информатика Вариант 14

Благовещенск 2021

Вариант №14

1. Составить программу определения принадлежности точки Р с коорди- натами (x, y) заштрихованной области.[pic 1]

1. Составить программу вычисления

[pic 2]

∏

i =1

x i

(i + 1)2[pic 3]

используя все циклы.

1. Дана матрица В(n, n) рицы, кратных 2.

n ≤ 12 . Найти количество и сумму элементов мат-

Задача №1. Составить программу определения принадлежности точки

Р с координатами (x, y) заштрихованной области.

1. Программа.[pic 4][pic 5]

unit Unit1;

{$mode objfpc}{$H+} interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,

Buttons; type

{ TForm1 }

TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; CheckBox2: TCheckBox; Edit1: TEdit;

Edit2: TEdit; Label1: TLabel; Label2: TLabel;

procedure Button1Click(Sender: TObject); private

{ private declarations } public

{ public declarations } end;

var

Form1: TForm1; implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject); var b,x,y:real;

begin x:=strtofloat(edit1.Text); y:=strtofloat(edit2.Text);

if (y>=-3) and (2*(y+3)<=5*(x+2)) and (2*(y-2)<=-5*x) then checkbox1.state:=cbchecked

else checkbox2.state:=cbchecked; end;

initialization

{$I unit1.lrs} end.

1. Результаты работы программы.

[pic 6][pic 7]

1. [pic 8]Блок-схема.[pic 9][pic 10]

Задача №2. Составить программу вычисления лы.

1. Программа.

[pic 11]

∏

i =1

x i

(i + 1)2[pic 12]

, используя все цик-

[pic 13]

unit Unit1;

{$mode objfpc}{$H+} interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, But- tons,

StdCtrls; type

{ TForm1 }

TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit;