Лабораторная работа по "Программированию"

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

Цель:

Запросить с клавиатуры 5 любых чисел и вычислить сумму цифр составляющие эти числа.

Алгоритм:

1) Ввод с клавиатуры 5 любых чисел.

2) Вывод суммы цифр (sum), составляющих эти числа.

3) Записывать результаты в файл.

Листинг программы на Pascal

Program Summa_chisel;

USES CRT;

var i,sum:integer;a,buf:longint;

c:text;

key:string;

label ones;

BEGIN

clrscr;

ones:

clrscr;

writeLn('**********************************');

writeLn('********** Summa chisel **********');

writeLn('**********************************');

writeLn('*                                *');

writeLn('*      [1]calculate              *');

writeLn('*      [2]about                  *');

writeLn('*      [3]exit                   *');

writeLn('*                                *');

writeLn('**********************************');

key:=readkey;

if key='1' then begin

Writeln('Vvedite 5 chisel');

sum:=0;

For i:=1 to 5 do begin

Readln(a);

buf:=a;

While a mod 10 > 0 do begin

    buf:=a mod 10;

    sum:=Sum+buf;

    buf:=a div 10;

    a:=buf;end;

end;

Writeln('Summa ravna ',sum);

Assign(c,'rezeltat.txt');

ReWrite(c);

readln;

Write(c,sum);

Close(c);

Writeln('Data ReWrited...Press ENTER for MENU');

Writeln;

end;

if key='2' then begin

writeln;

writeln('Programmu napisali Serkov Nikolai and Bibichev Aleksandr');

readln;

end;

if key='3' then exit;

writeln;

goto ones;

END.

Листинг программы на Delphi

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, Menus;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    procedure N3Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  i,sum,buf2,buf,a:integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

sum:=0;

buf:=0;

a:=StrToInt(Edit1.Text);

buf:=a;

While a mod 10 > 0 do begin

    buf:=a mod 10;

    sum:=Sum+buf;

    buf:=a div 10;

    a:=buf;end;

buf2:=buf+sum;

Label2.Caption:=IntTOStr(buf2);

a:=StrToInt(Edit2.Text);

buf:=a;

While a mod 10 > 0 do begin

    buf:=a mod 10;

    sum:=Sum+buf;

    buf:=a div 10;

    a:=buf;end;

buf2:=buf+sum;

Label2.Caption:=IntTOStr(buf2);

a:=StrToInt(Edit3.Text);

buf:=a;

While a mod 10 > 0 do begin

    buf:=a mod 10;

    sum:=Sum+buf;

    buf:=a div 10;

    a:=buf;end;

buf2:=buf+sum;

Label2.Caption:=IntTOStr(buf2);

a:=StrToInt(Edit4.Text);

buf:=a;

While a mod 10 > 0 do begin

    buf:=a mod 10;

    sum:=Sum+buf;

    buf:=a div 10;

    a:=buf;end;

buf2:=buf+sum;

Label2.Caption:=IntTOStr(buf2);

a:=StrToInt(Edit5.Text);

buf:=a;

While a mod 10 > 0 do begin

    buf:=a mod 10;

    sum:=Sum+buf;

    buf:=a div 10;

    a:=buf;end;

buf2:=buf+sum;

Label2.Caption:=IntTOStr(buf2);

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.Show;

end;

end.

[pic 1][pic 2][pic 3]

[pic 4]

Скриншоты:

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

Листинг программы на Pascal

program ugadaika;

uses crt;

var c,mc,vib,d1,d2:integer;

label 1,7,2,3,nach;

begin

nach:clrscr;

writeln('* * * * * * * * * * * * * * * *');

writeln('*   Кто будет угадывать?      *');

writeln('*   1.Вы                      *');

writeln('*   2.Комп                    *');

writeln('*   3.Екзит                   *');

writeln('* * * * * * * * * * * * * * * *');

readln(vib);

case vib of

 1:goto 1;

 2:goto 2;

 3:goto 3;end;

1:randomize;

writeln('Я загадал число, попробуй угадай');

c:=random(100);