Программа:

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,f:real;

begin

RichEdit1.Text:='';

a:= StrToFloat(InputBox('ввод', 'введите a',''));

b:= StrToFloat(InputBox('ввод', 'введите b',''));

ShowMessage(floatToStr(a)+' '+floatToStr(b)+ chr(13));

If a>b

then

f:=a

else

f:=b;

ShowMessage('Большее из чисел ' + floatToStr(a) + ' и ' + floatToStr(b)+ ' число '+ floatToStr(f));

RichEdit1.Text:=RichEdit1.Text+ ''Большее из чисел ' + floatToStr(a) + ' и ' + floatToStr(b)+ ' число '+ floatToStr(f);

end;

----------------------------------------------------------------------------------

Program BID;{Заголовок}

Var

a,b,R,x:real; {a, b, R, x – вещественные}

Begin

{Вывод на экран подсказки}

Write('Введите два числа: ');

{Ввод чисел a и b}

Readln(a,b);

{Нахождение разности чисел a и b}

R:=a-b;

{Выбор большего из чисел a и b}

If R<0 then x:=b else x:=a;

{Блок печати}

Writeln('max',a:6:3,' и ',b:6:3,' - ',x:6:3)

End.

Program BID;{Заголовок}

Var

a,b,R,x:real; {a, b, R, x – вещественные}

Begin

{Вывод на экран подсказки}

Write('Введите два числа: ');

{Ввод чисел a и b}

Readln(a,b);

{Нахождение разности чисел a и b}

R:=a-b;

{Выбор большего из чисел a и b}

If R<0 then x:=b else x:=a;

{Блок печати}

Writeln('max',a:6:3,' и ',b:6:3,' - ',x:6:3)

End.

'Большее из трёх чисел '

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

RichEdit1: TRichEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b, c, f:real;

begin

RichEdit1.Text:='';

a:= StrToFloat(InputBox('ввод', 'введите a',''));

b:= StrToFloat(InputBox('ввод', 'введите b',''));

c:= StrToFloat(InputBox('ввод', 'введите c',''));

ShowMessage('Вы ввели числа ' +floatToStr(a)+' '+floatToStr(b)+ ' '+ floatToStr(c)+ chr(13));

If a>b

then

f:=a

else

f:=b;

if c> f

then

f:=c;

ShowMessage('Большее из чисел ' + floatToStr(a) + ' и ' + floatToStr(b)+ 'и ' + floatToStr(C)+ ' число '+ floatToStr(f));

RichEdit1.Text:=RichEdit1.Text+ ''Большее из чисел ' ' + floatToStr(a);

RichEdit1.Text:=RichEdit1.Text+ ' и ' + floatToStr(b)+ ' и ' + floatToStr(c)+' число '+ floatToStr(f);

end;

end.

Циклические алгоритмы.

Алгоритмы, описывающие процессы, в которых одни и те же действия выполняются многократно при различных значениях переменных, называются циклическими.

Циклические программы содержат базовые структуры. Циклические значения имеют особое значение для построения алгоритмов, использовавшихся на ЭВМ, т.к. только их использование позволяет с помощью сравнительно коротких алгоритмов записывать предписание о совершении очень длительной последовательности, для которых требуется высокая скорость ЭВМ.

Базовой структурой организации циклов является:

1. команда повторения с предусловием

While P do S – пока Р делай S

Р QBasic Ершол Turbo Pascal

S

While P нц пока Р While P do

Серия серия <оператор 1 >;

wend кц