РАЗРАБОТКА ПРИЛОЖЕНИЯ С ИСПОЛЬЗОВАНИЕМ ОКОН ВВОДА-ВЫВОДА ТЕКСТА

РАЗРАБОТКА ПРИЛОЖЕНИЯ С ИСПОЛЬЗОВАНИЕМ КОМПОНЕНТОВ EDIT, LABEL И BUTTON

Задание: Составить программу, выполняющую условия вариантов (табл.1) в соответствии с правилами русского языка при помощи конструкций IF..THEN..ELSE и CASE.

Т а б л и ц а 1

Исходные данные

 

На входе количество студентов числом, на выходе число с добавлением слов студент, студентов, студента…

 

Структура команд:

If < условие> Then < оператор1, если условие верно>

Else < оператор2, если условие неверно>;

Case (выражение-селектор) Of

< константа выбора 1>: <оператор1>;

<константа выбора 2>: <оператор 2>;

Else < оператор, выполняемый в любом другом случае>

End;

Рекомендовано к использованию:

Компонент Delphi Edit представляет собой однострочное текстовое поле, служащее для ввода данных пользователем. Основным свойством компонента Delphi Edit, передающим введённую информацию, является свойство Edit1.Text типа String.

Компонент Label предназначен для отображения текста, то есть надписей и меток на форме. Свойством компонента Label, которое используется для задания отображаемого текста, является Caption.

Компонент Button используется для реализации в программе команд с помощью обработчика события OnClick (нажатия на эту кнопку) этого компонента. Для изменения названия кнопки можно использовать свойство Caption.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

vopr: TLabel; varstud: TEdit; Button1: TButton; answer: TLabel; procedure Button1Click(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);begin

answer.Caption:='Ответ: '+ varstud.Text;

if varstud.Text=1 then answer.Caption:= answer.Caption + ' студент'

if varstud.Text>1 and varstud.Text<5 and then answer.Caption:= answer.Caption + ' студента'

if varstud.Text>4 then answer.Caption:= answer.Caption+ ' студентов'

end; end.

РАЗРАБОТКА КОНСОЛЬНОГО ПРИЛОЖЕНИЯ

Задание: Составить программу для вычисления функций (табл.2) при помощи операторов цикла While или Repeat. Программа должна выполняться в консольном режиме.

Т а б л и ц а 2

Исходные функции

 

Вариант	Функция	Диапазон	Шаг
	y = sin(x)	0 º < x < 180 º	5 º

 

program Project1;

 

{$APPTYPE CONSOLE}

 

uses

SysUtils;

 

var step:integer;

y:real;

diap1:integer;

diap2:integer;

x,xx:real;

l:integer;

begin

{ TODO -oUser -cConsole Main: Insert code here }

diap1:=0;

diap2:=180;

step:=5;

xx:=diap1+step;

repeat

x:=3.14*xx/180;

writeln('X = ',xx:0:0, ' ', 'Y = ',sin(x):0:3);

xx:=xx+step;

until xx=diap2;

writeln('Labs Team P&R 2011 [107110]');

read(l);

end.

 

 

 

РАЗРАБОТКА ПРИЛОЖЕНИЯ С ИСПОЛЬЗОВАНИЕМ ОКОН ВВОДА-ВЫВОДА ТЕКСТА

Задание: Составить программу вычислений функции в соответствии с условием (табл. 3).

Т а б л и ц а 3

Исходные функции и данные

 

Вар	Функции	Исходные данные

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton; procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var x,a1,a2,step,st: string; a,step1,a11,a21,x1:real; Y:real; i:integer;

begin

repeat x:=InputBox('x=?','Пожалуйста, укажите значение x','0,35'); until x <> '';

repeat a1:=InputBox('a1=?','Пожалуйста, укажите значение a1','0,5'); until a1 <> '';

repeat a2:=InputBox('a2=?','Пожалуйста, укажите значение a2','2,5'); until a2 <> '';

repeat step:=InputBox('step=?','Пожалуйста, укажите значение step','0,5'); until step <> '';

x1:=strtofloat(x); a11:=strtofloat(a1); a21:=strtofloat(a2); step1:=strtofloat(step); a:=a11; i:=1; st:='';

repeat

if a<=x1 then Y:= ((x1*x1 - x1*a*a) * sin(x1)/cos(x1)) / (sqrt(abs(a+x1)));

if a >x1 then Y:= ((a + x1) * exp(sqrt(abs(a+x1))));

st:=st+'A[' + inttostr(i) + ']= ' + floattostr(a)+' ''Y[' + inttostr(i) + ']= ' + floattostr(Y)+char(13);

a:=a+step1;

i:=i+1;

until a>a21;

ShowMessage(st);

end;

end.