Меню Услуги

Курсовая работа по дисциплине «Программирование»

Вид работы: Курсовая
Тема: Программирование

ВУЗ: Московский технологический университет (МИРЭА)

Дать комментарии действий к уже выполненным кодам программ.

 

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Узнай стоимость написания такой работы!

Ответ в течение 5 минут!Без посредников!

var

n, i:integer;

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

b,c,d,e:integer;

begin

N:= 10; //число элементов

for i:=1 to n do //цикл по числу элементов

begin

A[i]:= 20-random(10*3); //генерируем элемент

Memo1.Lines.Add(FloatToStrF(A[i],ffGeneral,4,4)); //выводим его на экран

end;

//обнуляем все переменные

b := 0;

c := 0;

d := 0;

e := 0;

for i:=1 to n do //просматриваем все элементы массива

begin

if ((A[i-1] > 0)and(A[i] > 0)) then    b:= b +1; //проверка двух положительных

if ((A[i-1] > 0)and (A[i] < 0)or(A[i-1] < 0)and(A[i] > 0)) then  c:= c + 1; //проверка двух чисел с разными знаками

if ((A[i-1]*A[i] > 0)and(abs(A[i-1]) > A[i])) then d:= d + 1; //числа с одним знаком, при этом модуль первого больше второго

if (((A[i-1]mod 2) = 0)and((A[i] mod 2) = 1)and(i mod 2= 1))or((A[i-1]mod 2) = 1)and((A[i]mod 2) = 0)and((i-1 mod 2 = 1))  then e:= e + 1; //четное с нечетным, с учетом нечетного индекса

end  ;

//вывод результатов

Edit1.Text:=IntToStr(b);

Edit2.Text:=IntToStr(c);

Edit3.Text:=IntToStr(d);

Edit4.Text:=IntToStr(e);

end;

 

end.

Прикрепленные файлы:

Администрация сайта не рекомендует использовать бесплатные работы для сдачи преподавателю. Эти работы могут не пройти проверку на уникальность. Узнайте стоимость уникальной работы, заполните форму ниже: Узнать стоимость
Скачать файлы:

Чтобы скачать работу, введите свой Email.

Loading...

Скриншоты работы: