Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Программа вывода на экран всех четных чисел от 2 до 2n






Программа копирования текста из одного txt-файла в другой

var f: Textfile; S: String; f1: Textfile; i: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f, '1.txt');
reset (f);
While not eof (f) do
begin
Readln(f, s);
Memo1.Lines.Add(s);
end;
closefile(f);
assignfile(f1, '2.txt');
Rewrite(f1);
for i: =0 to Memo1.Lines.Count-1 do
Writeln(f1, Memo1.Lines[i]);
closefile(f1);
end;
end.

Программа движения квадрата сверху вниз

var x, y: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
x: =500;
y: =10;
Timer1.Enabled: =true
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
refresh;
y: =y+2;
form1.Canvas.Rectangle(x-50, y-50, x+100, y+100);
if y> =500 then Timer1.Enabled: =False;
end;
end.

5. Программа подсчета количества осадков и вывода среднего, максимального числа осадков, и в какой
половине дня осадков было больше или меньше

var
n, i: Integer; s: Real; mas: array[1..100] of Real;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
n: =StrToInt(Edit1.Text);
stringgrid1.colcount: =n;
for i: =1 to n do stringgrid1.cells[i-1, 0]: =IntToStr(i);
Button1.Visible: =True; end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for i: =1 to n do mas[i]: =StrToInt(stringgrid1.Cells[i-1, 0]); end;
procedure TForm1.Button2Click(Sender: TObject);
begin
s: =0; for i: =1 to n do s: =s+mas[i];
s: =s/n;
Memo1.Lines.add(floattostr(s)); end;
procedure TForm1.Button3Click(Sender: TObject);
var s1, s2: Real;
begin
s1: =0;
for i: =1 to round(n/2) do s1: =s1+mas[i];
s2: =0;
for i: =round(n/2)+1 to n do s2: =s2+mas[i];
if s1> s2 then Memo1.Lines.Add('в первой половине осадков больше');
if s1
if s1=s2 then Memo1.lines.Add('количество осадков одиниково'); end;
procedure TForm1.Button4Click(Sender: TObject);
var max, k: Real;
begin
max: =mas[i];
k: =1;
for i: =1 to n do if mas [i] > max then
begin
max: =mas[i];
k: =i; end;
memo1.Lines.Add(FloatToStr(k));
end; end.

6. Программа вывода строк txt-файла начинающихся на букву " К"
var a, b, c, d, f: Real;
procedure TForm1.Button1Click(Sender: TObject);
begin
a: =StrToFloat(Edit1.Text);
b: =StrToFloat(Edit2.Text);
c: =StrToFloat(Edit3.Text);
d: =StrToFloat(Edit4.Text);
if a> b then f: =a else f: =b;
if f if f Label6.Caption: =FloatToStr(f);
end;
end.

Программа вывода на экран всех четных чисел от 2 до 2n

procedure TForm1.Button1Click(Sender: TObject);
var n, i: Integer;
begin
n: =StrToInt(Edit1.Text);
if n< 2 then
begin
Memo1.Lines.Add('Четных нет');
Exit;
end;
for i: =1 to n do
Memo1.Lines.Add(IntToStr(2*i));
end;
end.

8. Программа вывода на форму десять символов " звездочка" в строчку

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i: =1 to 10 do
begin
Label1.Caption: =Label1.Caption + '*';
end;
end;
end.

 

9. Программа расчета значения y для заданного t равного 4, 5,.., 30. Если y задан формулой: 2t2+5, 5-2
procedure TForm1.Button1Click(Sender: TObject);
var t: Integer; y: Real;
begin
for t: =4 to 30 do
y: =2*t*t*5.5+t-2;
Memo1.Lines.Add('t='+IntToStr(t)+', y='+FloatToStr(y));
end;
end.

10. Программа вывода на экран всех целых чисел от 1 до n (n> 0)
procedure TForm1.Button1Click(Sender: TObject);
var i, n: Integer;
begin
n: =StrToInt(Edit1.Text);
if n> =1 then
for i: =1 to n do
Memo1.Lines.Add(IntToStr(i));
else ShowMessage('Введите другое значение');
end;
end.

11. Программа нахождения площади прямоугольного треугольника по заданным катетам a и b
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: Real;
begin
a: =StrToFloat(Edit1.Text);
b: =StrToFloat(Edit2.Text);
c: =a*b/2;
Label3.Caption: =FloatToStr(c);
end;
end.

 


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал