Отчет по работе с Delphi

Университет Международного Бизнеса

 

 

 

 

 

ОТЧЕТ

 

 

 

 

Выполнила студент 1 курса специальности «ИС»

Нагиева Г.Ш

Проверила: 

ст. преподаватель кафедры  «ИС» Токешева К.Н.

 

 

 

 

 

 

 

 

 

Алматы 2013

СОДЕРЖАНИЕ

1 Теоретическая часть ………………………………………………………… 3

2 Практическая часть …………………………………………………………  5

3 Выводы ………………………………………………………………..……..  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1. Теоретическая часть

Delphi [борланд дэльфи] или  [борланд дэлфи] — это интегрированная среда разработки, в которой используется язык программирования Object Pascal. Delphi является средой RAD (rapid application development — быстрая разработка приложений). Начиная со среды разработки Delphi 7.0, в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal. Начиная с 2007 года уже язык Delphi (производный от Object Pascal) начал жить своей самостоятельной жизнью и претерпевал различные изменения связанные с современными тенденциями (например, с развитием платформы .net) развития языков программирования: появились class helpers, перегрузки операторов и д.р.

Немного истории

В 1986 году когда в СССР началась 12-я пятилетка, фирма Apple разработала  объектное расширение языка Паскаль, получив в результате Object Pascal.

В 1989 году аналогичные объектные  средства были добавлены фирмой Borland в систему Turbo Pascal (языковые различия между объектным Turbo Pascal 5.5 и Object Pascal от Apple крайне незначительны). Последующие версии Turbo Pascal, который стал затем называться Borland Pascal, дополняли объектное расширение новыми средствами, этот процесс продолжился и в ходе развития языка системы Delphi.

Название языка менялось: от Pascal, через Object Pascal до Delphi, в литературе встречалось название Delphi Pascal, в  последних версиях Delphi язык именуется так же, как и сама система (любопытный момент: в Delphi 7 пункт системного меню, запускающий справку по языку, как и в более ранних версиях, называется «Object Pascal Reference», а сам запускаемый им модуль помощи имеет заголовок «Delphi Language Manual», в тексте язык также везде называется «Delphi». Автор же языка — расовый швейцар Мыкола Вирт — заявляет, что язык, используемый в Delphi — это Delphi , а не изобретённый им Паскаль.

Система типов этого языка  включает в себя ссылочные типы, выраженные словом class, и типы-значения, именуемые «записями» (record). Отличие таких типов состоит в том, что, объявляя экземпляр ссылочного типа, вы получаете ссылку на объект в куче, для инициализации которой необходимо явно вызвать конструктор, имеющий вид статического метода с названием Create(), в случае со записями получаем экземпляр, созданный на стеке, либо внедрённого в экземпляр класса, если речь идёт о полях значащего типа. Чуть менее, чем полное незнание предмета порождает среди школоты мифы о «двух моделях ООП», поддерживаемых Delphi, и споры на тему object vs class. Анон, запомни: Delphi — статически типизированный язык, ни о каких различных моделях ООП касательно этого языка речи быть не может. В этой стране Borland Delphi только когда страну развалили аж 1993 году.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2 Практическая  часть

Задача 21. Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание данного числа вида "четное двузначное число", "нечетное четырехзначное число" и т.д.

var

s:string;

n:integer;

begin

readln(n);

if odd(n) then

s:='Nechetnoe '

else

s:='Chetnoe ';

if n<10 then

s:=s+'Odnoznachnoe'

else

if (n>9)and(n<100) then

s:=s+'dvuhznachnoe'

else

if (n>99)and(n<1000) then

s:=s+'trehznachnoe'

else

if n>999 then

s:=s+'chetyrehznachnoe';

writeln(s,’chislo');

readln;

end.

 

 

 

Задача 8. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. 

 

program zadacha;

uses crt;

var A, B,sum: integer;

begin 

  write('A = '); readln(A);  

  write('B = '); readln(B);

sum:=A+B;

if A = B then begin A := 0; B := 0; end

else A := sum; B:=sum;

writeln('A= ', A, '; B = ', B);

readln

end.

 

 

 

Задача 37. Дано целое число в диапазоне 100 – 999. Вывести строку — словесное описание данного числа, например: 256 — "двести пятьдесят шесть", 814 — "восемьсот четырнадцать".

Program Case18; 
var 
N:integer; 
begin 
Writeln('введите целое число в диапазоне 100-999 N='); 
readln(N); 
case (N div 100) of 
1:Write('Сто '); 
2:Write('Двести '); 
3:Write('Тристо '); 
4:Write('Четыресто '); 
5:Write('Пятьсот '); 
6:Write('Шестьсот '); 
7:Write('Семьсот '); 
8:Write('Восемьсот '); 
9:Write('Девятьсот '); 
else Writeln('ошибка'); 
end; 
 
case ((N mod 100)div 10) of 
1:begin 
case (N mod 100) of 
11:Write('одинадцать'); 
12:Write('двенадцать'); 
13:Write('тринадцать'); 
14:Write('четырнадцать.'); 
15:Write('пятьнадцать'); 
16:Write('шестьнадцать'); 
17:Write('семьнадцать'); 
18:Write('восемьнадцать'); 
19:Write('девятьнадцать'); 
10:Write('десять'); 
else Writeln('ошибка'); 
end; 
end; 
2:begin Write('двадцать ');end; 
3:begin Write('тридцать ');end; 
4:begin Write('сорок ');end; 
5:begin Write('пятьдесят ');end; 
6:begin Write('шестьдесят ');end; 
7:begin Write('семьдесят ');end; 
8:begin Write('восемьдесят ');end; 
9:begin Write('девяносто ');end; 
end; 
if ((N mod 100)div 10)<>1 then 
begin 
case (N mod 10) of 
1:Write('один.'); 
2:Write('два.'); 
3:Write('три.'); 
4:Write('четыре.'); 
5:Write('пять.'); 
6:Write('шесть.'); 
7:Write('семь.'); 
8:Write('восемь.'); 
9:Write('девять.'); 
0:Write('.'); 
else Writeln('ошибка'); 
end; 
end; 
end.

Задача 33. Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона (a), 2 — радиус вписанной njpsfmnqrh (R1), 3 — радиус описанной окружности (R2), 4 — площадь (S). Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке). 

 

var  

n:1..4;  

st,s,r1,r2,value:real;

begin  

repeat    

writeln('1-сторона,2-радиус впис. окр.,3-опис. окр.,4-площадь');    

write('Введите номер элемента треугольника[1..4]=');     

readln(n);  

until n in [1..4];  

repeat    

write('Введите значение для данного  элемента окружности=');    

readln(value);  

until value>0;  

case n of    

1:      

begin        

st:=value;        

r1:=st*sqrt(3)/6;        

r2:=2*r1;        

s:=sqr(st)*sqrt(3)/4;        

writeln('Радиус1=',r1:0:2);        

writeln('Радиус2=',r2:0:2);        

writeln('Площадь=',s:0:2);      

end;    

2:      

begin        

r1:=value;        

st:=6*r1/sqrt(3);        

r2:=2*r1;        

s:=sqr(st)*sqrt(3)/4;        

writeln('Сторона=',r1:0:2);        

writeln('Радиус2=',r2:0:2);        

writeln('Площадь=',s:0:2);      

end;    

3:      

begin        

r2:=value;        

r1:=r2/2;        

st:=6*r1/sqrt(3);        

s:=sqr(st)*sqrt(3)/4;        

writeln('Сторона=',r1:0:2);        

writeln('Радиус1=',r2:0:2);        

writeln('Площадь=',s:0:2);      

end;    

4:      

begin        

s:=value;        

st:=sqrt(4*s/sqrt(3));        

r1:=st*sqrt(3)/6;        

r2:=2*r1;        

writeln('Сторона=',r1:0:2);        

writeln('Радиус1=',r2:0:2);        

writeln('Радиус2=',s:0:2);      

end;  

end;  

readln;

end.

 

Задача 58. Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 1, A2 = 2, AN = (AN–2+ AN–1)/2, N = 3, 4, ... Найти первый из номеров K, для которых выполняется условие |AK AK–1| < D, и вывести этот номер, а также числа AK–1 и AK.

Нагиева Г.ШСтраница