close

Вход

Забыли?

вход по аккаунту

?

Проэкт - Контрольная по математике

код для вставкиСкачать
Программа "Контрольная по математике".
Целью данного проекта является создание тестового задания по математике, с помощью которого можно было бы проверить пользователя на знание всех четырех основных арифметических действий. Для того чтобы произвести такую проверку, пользователю предлагается решить 12 примеров, т.е. по 3 примера на каждую из основных арифметических операций. Для проверки пользователя на знание им правил деления в тесте представлены примеры на нахождение среднего арифметического.
1) Создаем интерфейс программы. Примерно он будет выглядеть вот так:
2) На форме у нас есть 1) 1 TEdit. - Находиться на Вкладке Standart
2) 4 Tlabel - Находиться на Вкладке Standart
3) 2 Tbottom - Находиться на Вкладке Standart
4) 1 TImage - Находиться на Вкладке Adittional.
Для загрузки изображения необходимо создать рисунок и загрузить его через Вкладка Свойства - Picture - Загрузить изображение.
ДАЛЕЕ......
1)Общий листинг программы. Код серого цвета не пишется, он лишь для понимания, что где надо дописать.
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForml = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Editl: TEdit;
Buttonl: TButton;
Label4: TLabel;
Button2: TButton;
Panell: TPanel;
Imagel: TImage;
procedure FormCreate(Sender: TObject);
procedure Buttoniciick(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
( Public declarations }
end;
var
Forml: TForml;
x, y, k, t: integer;
c,z:real;
flag:boolean;
a,b,s:string;
implementation
{$R *.dfm}
2)Код ниже надо писать в процедуру формы, для этого необходимо на самой форме нажать левой клавишей два раза. procedure TForml.FormCreate(Sender: TObject);
begin
randomize;
k:=l; t:=0;
x: = random (9)+1 ;
y: = random(9)+l;
a:=InttoStr(x);
b:=InttoStr(y);
Label1.Caption:='Чемy равна сумма?';
Label2.Caption:=a+'+'+b;
end;
3)Пишем процедуру для кнопки . Нажимаем на кнопку два раза левой клавишей мышки и появляется форма ниже.
procedure TForml.ButtonlClick(Sender: TObject);
var i:integer;
procedure preobrl; {Пишем процедуру которую будет потом вызывать несколько раз}
begin
c:=StrtoFloat(Editl.Text);
if c=z then t:=t+l;
x:=random(9)+1;
y:=random(9)+l;
a:=InttoStr(x);
b:=InttoStr(y) ;
end; {конец процедуры 1 }
procedure preobr2; {Пишем процедуру которую будет потом вызывать несколько раз}
begin
Label3.Caption:='Введите ответ в это окно';
k:=k+l;
Editl.Text:=' ';
Editl.SetFocus
end; {конец процедуры 2 }
begin {Начинается код кнопки в которой будет происходить расчет }
randomize;
flag:=true;
s:=Editl.Text;
for i:=l to length(s) do {Начала кода при котором будет происходить проверка введения числа в противном случае будет писаться надпись ниже }
if (s[i]<>'0') and (s[i] <>'l') and (s[i]<>'2')
and (s[i]o'3')and (s[i]<>'3') and (s[i]<>'4')
and (s[i]<>'5') and (s[i]<>'6') and (s[i]<>'7')
and (s[i]<>'8') and (s[i]<>'9') and (s[i]<>'-')
and (s[i]<>',')
then flag:=false;
if flag=false
then Label3.Caption:='в это окно можно вводить только числа'
{Конец кода}
else
case k of
1. .2: begin
z:=x+y;
preobrl;
Label1.Caption:='Чему равна сумма?';
Label2.Caption:=a+'+'+b;
preobr2
end;
3..5: begin
if k=3 then z:=x+y
else z:=x-y;
preobrl;
Labell.Caption:='Чему равна сумма ?';
Label2.Caption:=a+'-'+b;
preobr2
end;
6..8: begin
if k=6 then z:=x-y
else z:=x*y;
preobrl;
Labell.Caption:='Чему равно произведение?';
Label2.Caption:=a+'*'+b;
preobr2
end;
9..11: begin
if k=9 then z:=x*y
else z:=(x+y)/2;
preobrl;
Labell.Caption:='Чему равно среднее арифметическое?';
Label2.Caption:=a+' и '+b;
preobr2;
end;
12: begin
if c=z then t:=t+l;
Editl.Visible:=False;
Labell.Caption:='';
Label2.Caption:='';
Label3.Caption: = " ;
Buttonl.Visible:=False;
Label4.Visible:=True;
case t of
0..7: Label4.Caption:='Ваша оценка равна•2V
8,9: Label4.Caption:='Ваша оценка равна 3',
10,11: Label4.Caption:='Ваша оценка равна 4',
12: Label4.Caption:='Bama оценка равна 5',
end;
end;
end;
end;
4)Пишем процедуру для кнопки Выход. procedure TForml.Button2Click(Sender: TObject);
begin
close
end;
end.
Автор
georg88
Документ
Категория
Без категории
Просмотров
53
Размер файла
117 Кб
Теги
контрольная, математика, проэкт
1/--страниц
Пожаловаться на содержимое документа