Обработка программы в Delphi

Паскаль ABC Работа с файлами.

А. Создать файл, содержащий сведения о количестве изделий, собранных сборщиками цеха
за неделю. Каждая запись содержит поля - фамилия сборщика, количество изделий,
собранных им ежедневно в течение шестидневной недели (в понедельник, вторник и т.д.).
Количество записей - произвольное.

Код программы:

Программа A)Program 1;

type zap=record

fam:string[20];

kol:array[1..6] of integer;

end;

var f:file of zap;

z:zap;

i:integer;

begin

assign(f,'izdeliya.txt');

rewrite(f);

Writeln('Введите 5 записей:');

for i:=1 to 5 do

with z do

begin

Write('Фамилия сборщика: ');

readln(fam);

Write('Количество изделий: ');

readln(kol[1],kol[2],kol[3],kol[4],kol[5],kol[6]);

end;

close(f);

end.

Б. По каждому сборщику просуммировать количество деталей, собранное им за неделю.
Определить сборщика, собравшего наибольшее число изделий, и день, когда он достиг
наивысшей производительности труда.

Код программы:

Программа B) type

sbor=record

sname:string;

day:array[1..6] of integer;

all:longint;

end;

var

i,n,j,max,maxday:integer;

sbord:array[1..100] of sbor;

f:text;

begin

assign(f,'input.txt');

rewrite(f);

write('Сколько рабочих: ');readln(n);

for i:=1 to n do begin

write('Введите фамилию рабочего: ');

readln(sbord[i].sname);

sbord[i].all:=0;

write(f,sbord[i].sname);

for j:=1 to 6 do begin

write('Сколько деталей он сделал за ',j,' день: ');

readln(sbord[i].day[j]);

sbord[i].all:=sbord[i].all+sbord[i].day[j];

write(f,sbord[i].day[j]);

end;

write(f,sbord[i].all);

end;

max:=1;

for i:=1 to n do

if sbord[i].all>sbord[max].all then max:=i;

maxday:=1;

for i:=1 to 6 do

if sbord[max].day[i]>sbord[max].day[maxday] then maxday:=i;

writeln('Сборщик ',sbord[max].sname,' собравший максимальное количество изделий равное = ',sbord[max].all);

writeln('Собрал максимальное количество деталей за ',maxday,' день и количество деталей в этот день = ',sbord[max].day[maxday]);

readln;

close(f);

end.

Тестирование:

Сколько рабочих: 2

Введите фамилию рабочего: красноярва

Сколько деталей он сделал за 1 день: 15

Сколько деталей он сделал за 2 день: 16

Сколько деталей он сделал за 3 день: 13

Сколько деталей он сделал за 4 день: 18

Сколько деталей он сделал за 5 день: 19

Сколько деталей он сделал за 6 день: 14

Введите фамилию рабочего: Краснояров2

Сколько деталей он сделал за 1 день: 5

Сколько деталей он сделал за 2 день: 46

Сколько деталей он сделал за 3 день: 51

Сколько деталей он сделал за 4 день: 12

Сколько деталей он сделал за 5 день: 43

Сколько деталей он сделал за 6 день: 65

Сборщик Краснояров2 собравший максимальное количество изделий равное = 222

Собрал максимальное количество деталей за 6 день и количество деталей в этот день = 65

Обработка программы в Delphi.

Текст программы:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

edt1: TEdit;

edt2: TEdit;

lbl1: TLabel;

lbl2: TLabel;

pnl1: TPanel;

procedure btn1Click(Sender: TObject);

procedure pnl1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.pnl1Click(Sender: TObject);

begin

if (Form1.edt1.Text<>'') and (Form1.edt2.Text<>'') then

begin

Form2.Show;

Form1.Hide;

end;

end;

end.

Текст программы:

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm2 = class(TForm)

pnl1: TPanel;

pnl4: TPanel;

pnl5: TPanel;

pnl6: TPanel;

pnl2: TPanel;

lbl1: TLabel;

rg1: TRadioGroup;

procedure pnl5Click(Sender: TObject);

procedure pnl6Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.pnl5Click(Sender: TObject);

begin

Form1.Show;

Form2.Hide;

end;

procedure TForm2.pnl6Click(Sender: TObject);

begin

Form3.Show;

Form2.Hide;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Close;

end;

end.

Текст программы:

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

pnl1: TPanel;

pnl4: TPanel;

pnl5: TPanel;

pnl6: TPanel;

pnl2: TPanel;

lbl1: TLabel;

chk1: TCheckBox;

chk2: TCheckBox;

chk3: TCheckBox;

chk4: TCheckBox;

chk5: TCheckBox;

chk6: TCheckBox;

chk7: TCheckBox;

chk8: TCheckBox;

chk9: TCheckBox;

chk10: TCheckBox;

procedure pnl5Click(Sender: TObject);

procedure pnl6Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit3, Unit5, Unit1;

{$R *.dfm}

procedure TForm4.pnl5Click(Sender: TObject);

begin

Form3.Show;

Form4.Hide;

end;

procedure TForm4.pnl6Click(Sender: TObject);

begin

Form5.Show;

Form4.Hide;

end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Close;

end;

end.

Планировщик.

Текст программы:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

DateTimePicker1: TDateTimePicker;

ListBox1: TListBox;

ListBox2: TListBox;

Label2: TLabel;

Button2: TButton;

DateTimePicker2: TDateTimePicker;

Label3: TLabel;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

listbox2.Items.Add(timeTostr(DateTimePicker2.Time)+' '+edit1.Text);

edit1.Clear;

edit1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Listbox1.Items.Add(datetostr(datetimepicker1.Date));

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Listbox1.Items.Savetofile('1.txt');

if listbox1.itemIndex<> -1 then

begin

Listbox2.Items.Savetofile(Listbox2.Items[Listbox1.ItemIndex] + '.txt');

end;

end;

end.

Обработка программы в С++.

Матрица.

Программа1.

Даны целые положительные числа M и N .Сформировать целочисленную матрицу размера M x N, у которой все элементы J-го столбца имеют значение 5*J (J=1,…,N).

Скриншот:

Текст программы:

#include "stdafx.h"

#include <iostream>

using namespace std;

void main()

{

setlocale(LC_ALL, "Russian");

int M,N,i=1,j,A[100][100];

cout << "Введите M: ";

cin >> M;

cout << "Введите N: ";

cin >> N;

//cout << "Введите ";

for(i=1; i<=M; i++){

for(j=1; j<=N; j++){

A[i][j]=5*j;

}

}

for(i=1; i<=M; i++){

for(j=1; j<=N; j++){

cout << A[i][j] << " ";

}

cout << endl;

}

system("pause");

}

Блок схема:

Массивы.

Программа2.

Дано целое число N(>0).Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-ой:2,4,8,16….. .

Скриншот:

Текст программы:

// Массивы.cpp: определяет точку входа для консольного приложения.

//

#include "stdafx.h"

#include <iostream>

using namespace std;

int main()

{

const int N = 19;

int mass[N];

for( int i = 0; i < N; i++ )

mass[i] = i * 2;

for( int i = 0; i < N; ++i )

cout << mass[i] << " ";

system("pause");

}

Блок схема:

Цикл с параметром.

Программа 3.

Даны два целых числа A и B(A < B).Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B ), а также количество N этих чисел.

Скриншот:

Текст программы:

#include "stdafx.h"

#include <iostream>

using namespace std;

void main()

{

setlocale(LC_ALL, "Russian");

int A,B,i;

int r=0;

cout << "Введите A и B через пробел, причем A<B.";

cin >> A >> B;

cout << "Числа введены! " << endl;

for(i = A; i <= B; i++)

{

r=r+1;

cout << i << " ";

}

cout << "N= "<< r << " ";

system("pause");

}

Блок схема:

Символы и строки.

Программа 4.

Дана непустая строка S и целое чяисло N(>0).Вывести строку, содержащую символы строки S, между которыми вставлено по N символов «*»(звездочка).

Программа 5.

Даны три целых числа :А, В, С.Проверить истинность высказываний: «Хотя бы одно из чисел А, В, С положительное »

Поиск по сайту: