Отчет по практике на базе ЧУ ТМК «Мирас»

Компоненты вкладки Win32:

Animate - Мультипликатор. Предназначен для отображения движущихся изображений (видеоклипов). Имеет ограничение - не может сопровождать видеоклип звуком. Как и компонент ProgressBar, применяется в основном для сопровождения длительных процессов.

TabControl - Набор закладок. Каждая закладка представляет собой поле с надписью и/или текстом. Выбор той или иной закладки распознаётся программой и используется для управления содержимым окна компонента.

PageControl - Набор панелей с закладками. Каждая панель может содержать свой набор интерфейсных элементов и выбирается щелчком по связанной с ней закладке.

ImageList - Набор рисунков. Представляет собой хранилище для нескольких рисунков одинакового размера, например, пиктограмм для кнопок.

Компоненты, с которыми я работала в вкладке Dialogs:

OpenDialog - Предназначен для создания окна диалога «Открыть файл». Компонент не визуальный.

SaveDialog - Предназначен для создания окна диалога «Сохранить файл как...». Компонент не визуальный.

OpenPictureDialog - Предназначен для создания окна диалога «Открыть рисунок». Компонент не визуальный.

ColorDialog  - Предназначен для создания окна диалога «Цвет». Компонент не визуальный.

Компоненты Win3.l:

DriveComboBox- Выпадающий список доступных дисков. Компонент визуальный.

FilterComboBox- Выпадающий список фильтров для поиска файлов. Компонент визуальный.

FileListBox - Отображает список файлов каталога. Компонент визуальный.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2. ПРАКТИЧЕСКАЯ ЧАСТЬ

2.1 Консольный режим

 

1. Заданное натуральное число N является двухзначным и кратко К. составить линейную программу печатающую значение true если указанное высказывание является истинным. false в противном случае.

  var

  k,n:integer;

  begin

  Writeln('K,N');

  Readln(K,N);

  If (K>=10) and (K<=99) and (K mod N=0)then

  Writeln('true')else Writeln('false');

  Readln;

 

Рисунок 1 Линейная программа

2. Даны три стороны  одного и три стороны другого.  Эти треугольники равновеликие, т.е. имеют одинаковые площади:

var A1, B1, C1,A2, B2,C2:real;

begin

Write('vvedite storony 1 treugolnika: ');

ReadLn(A1, B1, C1);

Write('vvedite storony 2 treugolnika:');

ReadLn(A2, B2, C2);

if (A1*B1*C1)=(A2*B2*C2) then WriteLn('treugolniki ravnovelikie!')

else WriteLn('treugolniki ne ravnovelikie');

end.

Рисунок 2 Программа площади треугольника

3. Написать программу  решения уравнения ax3+bx=0 для произвольных a, b.

var a,b,x: Real;

Begin

Writeln ('a,b=');

Readln(a,b);

if (a=0) and (b=0) then

Writeln ('X1=0');

Readln(X);

if (a=0) and (b<>0) then

x:=-b/a;

Writeln('X2=',x:3:6);

Writeln('X3=-',x:3:6);

end.

 

Рисунок 3 Программа вычисления уравнения

 

 

5. Написать программу, которая бы по введенному номеру времени года (1 — зима, 2 — весна, 3 — лето, 4 — осень) выдавала соответствующие этому времени года месяцы, количество дней в каждом из месяцев.

var x:integer;

begin

writeln('vvedite chislo goda') ;

readln(x);

case x of

1:

begin

  if x=1 then

writeln('december=31 days');

writeln('january=31 days');

writeln('february=28 days');

end;

2:

begin

  if x=2 then

writeln('March=31 days');

writeln('April=30 days');

writeln('May=31 days');

end;

3:

begin

  if x=3 then

writeln('June= 30 days');

writeln('July= 31 days');

writeln('August= 31 days');

end;

4:

begin

  if x=4 then

writeln('September= 30 days');

writeln('October=31 days');

writeln('November= 30 days');

end;

 

end;

readln;

end.

 

Рисунок 4 Программа расчета времени года

6. Вычислить уравнение функции F(x)=

Если x>=8

Если x<8

 

  var x:real;

  begin

  Writeln('vvedite x');

  Readln(x);

  if x >=8 then Writeln('F(x)= ',(Sqr(x))+x-9)

  else if x<8 then writeln('F(x)= ',1/(x*x*x*x-6));

  readln(x)

 

Рисунок 5 Программа вычисления уравнения функции

2. Составить программу-генератор простых чисел, в основу положить формулу 2*2+29 , при 0>=x>=28

 

var x:integer;

begin

      Writeln('vvedite x= ');

Readln(x);

If x=0  then writeln ('x= ',2*2+29)

else if x<=28 then Writeln('x= ',2*2+29)

else if x=29  then Writeln( 'x ne indeficirovan');

Readln(x);

end.

 

Рисунок 6 Программа - генератор простых чисел

7. Дано действительное число x. Вычислить:

 

Var i,p:integer;

s,x:real;

begin

writeln('Vvedite dejstvitelnoe x=');

readln(x);

s:=1;

p:=1;

for i:=1 to 6 do

begin

p:=p*2;

s:=s*(x-p-1)/(x-p);

end;

writeln('s=', s:5:2);

readln;

end.

Рисунок 7 Программа действительных чисел

8. Произведение п первых нечетных чисел равно р. Сколько сомножителей взято? Если введенное число п не является указанным произведением , сообщить об этом.

 

var p,k,n,proiz,z:integer;

begin

Writeln('vvedite chislo  p=');

Readln(p);

n:=0;

proiz:=1;

k:=-1;

z:=0;

While z<>1 do

Begin

k:=k+2;

n:=n+1;

proiz:=proiz*k;

if proiz=p then

Begin

writeln('Kolichestvo mnojitelei',n);

z:=1;

end;

If proiz>p then

begin

writeln(p,' ne yavlyaetsya proizvedeniem');

end;

end.

 

Рисунок 8 Программа сомножителей

 

9. Дано целое n>2. Напечатать все простые числа из диапазона[2,n].

 

var n,i:integer;

p:real;

begin

Writeln('Vvedite n>2');

Readln(n);

for i:=2 to n do

writeln(n);

if (i mod 7<>0) and (i mod 2<>0)  and (i mod 3<>0) and (i mod 5<>0) and (i mod 11<>0)

then WriteLn(i) else writeln('');

readln;

end.

 

Рисунок 9 Программа диапазонов чисел

10.   Палиндром – это сочетание символов, которые читаются одинаково в прямом и обратном направлении. Элементов палиндрома может быть буква (например, КОК, ПОП, А РОЗА УПАЛА НА ЛАПУ АЗОРА), цифра (4884,121) или слово (STRAP ON-NO PARTS).

Составить программу, которая  определяет, является ли заданное натуральное  число палиндромом.

 

var n:longint;

s,ss:string;

i,k,kk:byte;

begin

n:=sqr(n);

str(n,s);

str(n,ss);

k:=0;

Writeln('vvedite chislo');

readln;

for i:=1 to length(s)div 2 do

if s[i]=s[length(s)-i+1] then k:=k+1;

for i:=1 to length(ss)div 2 do

if ss[i]=ss[length(ss)-i+1] then kk:=kk+1;

if (k=(length(s)div 2))and(kk=(length(ss)div 2))

then Writeln('eto chislo palidrom')

else Writeln('eto chislo ne palidrom');

Readln;

end.

var M:word;

begin

clrscr;

repeat

write('vvedite naturalnoe chislo ne bolee 46340 M=');

readln(M);

until M<=46340;

Palindrom(M);

readln;

end.

 

Рисунок 10 Программа палиндромов

11. Написать программу для вычисления суммы факториалов всех нечетных чисел от 1 до 9.

 

var sum,fac:real;

i,j:byte;

n:integer;

begin

writeln('n=');

readln(n);

sum:=0;

for i:=1 to (n div 2)+(n mod 2) do

begin

fac:=1;

for j:=2 to (2*i-1) do

fac:=fac*j;

sum:=sum+fac;

end;

write('Summa=',sum:0:4);

readln;

end.

 

Рисунок 11 Программа вычисления сумм факториалов

12. Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом.

 

var a,s:integer;

begin

repeat

write('vvedite 3-h znachnoe chislo:');

readln(a);

until(a>99)and(a<1000);

s:=a div 100+a div 10 mod 10+a mod 10;

writeln('summa cifr=',s);

if s mod 2=0 then write('Ona chetnaya')

else write('Ona ne chetnaya');

readln

end.

 

Рисунок 12 Программа расчета цифр

13. Найти наименьший номер последовательности, для которого выполняется условие |an-an-1|<ε. Вывести на экран этот номер и все элементы ai, где   i=1, 2, 3,…, n, если ε<10-3.

 

var  n:integer;

a1,an,e:Real;

begin

Writeln('e<0.001, e=');

Readln(e);

n:=2;a1:=1/4;an:=1/16;

While abs(an-a1)>=e do

begin

writeln(a1:5:6);

n:=n+1;

a1:=an;

an:=1/(4*n*n);

end;

writeln(a1:5:6);

Readln;

writeln(an:5:6);

Readln;

writeln('n=',n);

Readln;

end.

 

Рисунок 13 Программа решения уравнения

14. Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат.

 

var  i,a,kva:integer;

begin

for i:=1 to 10 do

begin

write('vvedite',i,' chislo:');read(a);

if a*a<100 then

writeln('Chislo: ',a,' kvadrat chisla: ',a*a);

end;

end.

 

Рисунок 14 Программа расчета квадратов

15. Определить, делителем, каких чисел a, b, c является число k.

 

var a,b,c,k:word;

begin

writeln('a= ');

readln(a);

writeln('b= ');

readln(b);

writeln('c= ');

readln(c);

writeln('k= ');

readln(k);

if a mod k = 0 then writeln('k yavlyaetsya delitelem chisla a')

else if b mod k = 0 then writeln('k yavlyaetsya delitelem chisla b')

else if c mod k = 0 then writeln('k yavlyaetsya delitelem chisla c')

else writeln ('k ne yavlyaetsya delitelem ni odnogo iz chisel');

      readln;

end.

 

Рисунок 15 Программа определения делителя

 

2. РЕЖИМ DELPHI

 Практическая работа  №1.

Задание №1. Написать программу, вычисляющую факториал числа, находящегося в поле ввода. Для вычисления использовать рекурсивную функцию.

procedure TForm3.FormCreate(Sender: TObject);

begin

Form3.Hide;

end;

function fact (n:Integer):Integer;

begin

  if n=1 then

  fact:=1

  else

  fact:=n*fact(n-1);

end;

procedure TForm3.btn1Click(Sender: TObject);

var x,y:Integer;

begin

x:=StrToInt(edt1.text);

y:= fact(x);

lbl3.Caption:='n!='+inttostr(y);

end;

procedure TForm3.btn2Click(Sender: TObject);

begin

Form2.Show();

Form3.Visible:=False;

end;

end.

 

Задание №2. Создать простейший текстовый редактор, содержащий переключатели  цвета шрифта, флажки для определения  стиля.

 

 

 

 

procedure TForm4.rb1Click(Sender: TObject);

begin

if rb1.checked=True

then mmo1.Font.Color:=clRed;

end;

procedure TForm4.rb2Click(Sender: TObject);

begin

if rb2.checked=true

then mmo1.Font.Color:=clYellow;

end;

procedure TForm4.rb3Click(Sender: TObject);