Основы программирования

Размещено на http://www.allbest.ru/

УРАЛЬСКИЙ ФЕДЕРАЛЬНЫЙ УНИВЕРСИТЕТ

Кафедра физики

ОТЧЕТ

по лабораторной работе

«Основы программирования»

Студент(ка)__Денисов Егор

Группа_______Фт-100202

Преподаватель__Кибардин А.В.



Структурное программирование

program project1;

var a,b,c: real;

x1,x2,D: real;

begin

readln(a,b,c);

D := b*b - 4*a*c;

if D<0 then

writeln('мнимые корни, действительных корней нет')

else if D=0 then begin

x1 := -b/2/a;

writeln('x1=x2=',x1);

end

else begin

x1 := (-b-sqrt(D))/2/a;

x2 := (-b+sqrt(D))/2/a;

writeln('x1=',x1,' x2=',x2);

end;

readln;

end.

1.2

program project2;

var

a,b:real;

sign:char;

begin

writeln('Введите числа a, b: ');

readln(a, b);

writeln('Введите знак операции: ');

readln(sign);

case sign of

'+' : writeln(a+b);

'-' : writeln(a-b);

'*' : writeln(a*b);

'/' : if b=0 then writeln('error') else writeln(a/b);

else writeln ('введите арифметическое действие: ');

end;

readln;

end.

Лабораторная работа №6

program project4;

var

a,b:real;

N,i:integer;

x:real;

dx:real;

y1,y2:real;

begin

x:=0;

writeln('Введите пределы a, b: ');

readln(a,b);

writeln('Введите шаг dx: ');

readln(dx);

x:=a;

N:=round ((b-a)/dx)+1;

writeln('|x |sinx |cosx ');

for i:=1 to N do begin

y1:=sin(x);

y2:=cos(x);

writeln ('|',x,'|',y1,'|',y2);

x:=x+dx;

end;

readln;

end.

program project5;

var r1, r2, r3, r4 :byte;

begin

Randomize;

while (True) do

begin

writeln('нажмите любую кнопку, чтобы игра началась');

readln();

r1:=random(5)+1;

r2:=random(5)+1;

writeln('r1= ', r1);

writeln('r2= ', r2);

writeln('очки первого игрока: ',(r1+r2));

r3:=Random(6)+1;

r4:=Random(6)+1;

writeln('r3= ', r3);

writeln('r4= ', r4);

writeln('очки второго игрока: ',(r3+r4));

if (r1 + r2) > (r3 + r4) then writeln('победил первый игрок')

else if (r1 + r2) < (r3 + r4) then writeln('победил второй игрок')

else writeln('ничья');

end;

readln;

end.

массив игра lazarus

Лабораторная работа №7

program project6;

const n=5;

var a:array[1..n] of integer;

i,j,k :integer;

begin

writeln ('Напишите исходный массив столбиком');

for i:= 1 to 5 do ReadLn(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

k:=a[i];

a[i]:=a[j];

a[j]:=k;

end;

writeln('Массив по возрастанию');

for i:=1 to n do

write(a[i]:4);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

k:=a[i];

a[i]:=a[j];

a[j]:=k;

end;

writeln('Массив по убыванию');

for i:=1 to n do

write(a[i]:4);

readln;

end.

program Project1;

const

n = 5;

m = 4;

var

A: array[1..n, 1..m] of integer;

i, j, max, min: integer;

begin

writeln('Вводим двумерный массив:');

randomize;

for i := 1 to n do

begin

for j := 1 to m do

begin

a[i, j] := random(100) - 50;

write(a[i, j]:4)

end;

writeln;

end;

writeln;

writeln('Максимальный элемент каждого столбца:');

for j := 1 to m do

begin

max := -50;

for i := 1 to n do

if max < a[i, j] then max := a[i, j];

write(max:4)

end;

writeln;

writeln('Максимальный элемент каждой строки:');

for i := 1 to n do

begin

max := -50;

for j := 1 to m do

if max < a[i, j] then max := a[i, j];

write(max:4)

end;

writeln;

writeln('Минимальный элемент каждого столбца:');

for j := 1 to m do

begin

min:= 50;

for i := 1 to n do

if min > a[i, j] then min := a[i, j];

write(min:4)

end;

writeln;

writeln('Минимальный элемент каждой строки:');

for i := 1 to n do

begin

min := 50;

for j := 1 to m do

if min > a[i, j] then min := a[i, j];

write(min:4)

end;

readln;

end.

Лабораторная работа №8

program Project1;

uses

SysUtils;

var

i:integer;

a: array [1..5] of integer;

f:textfile;

begin

assign(f,'file.txt');

rewrite(f);

for i:=1 to 5 do begin

writeln('Введите значения' );

readln(a[i]);

writeln (f,a[i]);

end;

close(f);

readln;

end.

program Project8;

uses

SysUtils;

var

i,n:integer;

a: array of integer;

f:textfile;

begin

assign(f,'file.txt');

reset(f); n:=0;

while not eof (f) do begin

readln (f);

n:=n+1;

end; close (f);

reset(f);

setlength (a,n);

for i:=0 to n do begin

readln (f,a[i]);

writeln (a[i]);

end;

close(f);

readln;

end.

Визуальное проектирование и событийно-управляемое программирование в Lazarus

Лабораторные работы №9 и №10

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Label2Click(Sender: TObject);

begin

end;

procedure TForm1.Button1Click(Sender: TObject);

var

a,b:real;

N,i:integer;

x:real;

dx:real;

y1,y2:real;

begin

a:=strtofloat (edit1.text);

b:=strtofloat (edit2.text);

dx:=strtofloat (edit3.text);

x:=0;

x:=a;

N:=round ((b-a)/dx)+1;

for i:=1 to N do begin

y1:=sin(x);

y2:=cos(x);

edit4.text:= FloatToStr (y1);

edit5.text:= FloatToStr (y2);

x:=x+dx;

end;

readln;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Label3Click(Sender: TObject);

begin

end;

end.

2)

unit Unit2;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm2 }

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.Label2Click(Sender: TObject);

begin

end;

procedure TForm2.Button1Click(Sender: TObject);

var

a,b:real;

N,i:integer;

x:real;

dx:real;

y1,y2:real;

begin

a:=strtofloat (edit1.text);

b:=strtofloat (edit2.text);

dx:=strtofloat (edit3.text);

x:=0;

x:=a;

N:=round ((b-a)/dx)+1;

for i:=1 to N do begin

y1:=sin(x);

y2:=cos(x);

edit4.text:= FloatToStr (y1);

edit5.text:= FloatToStr (y2);

x:=x+dx;

end;

readln;

end;

procedure TForm2.Chart1FuncSeries1Calculate(const AX: Double; out AY: Double);

begin

AY := sin(AX);

End;

procedure TForm2.Chart2FuncSeries1Calculate(const AX: Double; out AY: Double);

begin

AY := cos(AX);

End;

procedure TForm2.Button2Click(Sender: TObject);

var

i:integer;

x: array [1..5] of integer;

f:textfile;

begin

a:=strtofloat (edit1.text);

b:=strtofloat (edit2.text);

dx:=strtofloat (edit3.text);

x:=0;

x:=a;

N:=round ((b-a)/dx)+1;

assign(f,'file.txt');

rewrite(f);

for i:=1 to N do begin

y1:=sin(x);

y2:=cos(x);

writeln (f,x[i], ' ', y1,' ',y2);

x:=x+dx;

end;

close(f);

readln;

end.

procedure TForm2.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm2.Label3Click(Sender: TObject);

begin

end;

end. Размещено на Allbest.ru

...