|
Язык программирования Pascal был разработан Никлаусом Виртом в
1968-1970 гг. и назван так в честь ученого Блеза Паскаля, жившего в XVII
веке и оставившего заметный след в науке.
Некоторые особенности Pascal
- Приспособлен для обучения программированию.
- Основан на ряде фундаментальных понятий структурного программирования.
- Большой набор поддерживаемых структурных типов данных.
- Распространенность языка обеспечила ему большую базу различных программных систем.
- Надежность программ, обеспечивающаяся избыточностью информации в исходном коде.
- Послужил основой для разработки других языков программирования (Delphi).
Пример программы на Pascal – «Калькулятор»:
program calcul;
var a,b,c: integer;
operation, Enter: char;
begin
writeln('Калькулятор');
write('a=');
readln(a);
write('b=');
readln(b);
write('Оператор');
readln(operation);
case operation of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
else
writeln('Надо ввести +, -, * или /');
end;
writeln('c=',c);
readln(Enter);
end.Delphi
Delphi – этосреда программирования, в основе которой лежит язык
Object Pascal, являющийся наследником языка Pascal. И в отличие от
последнего Object Pascal является объектно-ориентированным языком
программирования.
Пример программы на Object Pascal – «График функции y=sin x»:
var
X:real;
Y:real;
N:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Canvas do
begin
X := 0;
while X<500 Do
begin
X:=X+0.1 ;
Y:=200-100*(Sin(X/20));
Pixels[Round(X),Round(Y)]:=clBlack;
end;
MoveTo(0,200); LineTo(500,200); //ось X
MoveTo(250,0); LineTo(250,500); //ось Y
//шкала оси X
N:=0;
while N<500 do
begin
N:=N+100;
MoveTo (N, 190); LineTo (N,210);
TextOut (N,200,IntToStr(Round((N-250)/20)));
end;
// шкала оси Y
N:=0;
while N<400 do
begin
N:=N+100;
MoveTo (245, 400 - N); LineTo (255, 400 - N);
TextOut(245, 400 - N,IntToStr(Round((N-200)/100)));
end;
end;
end;
end. Visual Basic
Visual Basic – разработка компании Microsoft, включающая язык
программирования и среду разработки. Язык основан на диалекте Basic’а,
однако включает поддержку ООП. Visual Basic хорош как средство быстрой
разработки прототипов больших программ или небольших пользовательских
приложений.
Пример программы на Visual Basic – «График функции y=sin x»:
Dim sngX As Single, intI As Integer
Private Sub cmd1_Click()
'Задание масштаба
PicGraph.Scale (-10, 2)-(10, -2)
'Построение графика
For sngX = -10 To 10 Step 0.01
PicGraph.PSet (sngX, Sin(sngX))
Next sngX
'Ось X
PicGraph.Line (-10, 0)-(10, 0)
For intI = -10 To 10
PicGraph.PSet (intI, 0)
PicGraph.Print intI
Next intI
'Ось Y
PicGraph.Line (0, 2)-(0, -2)
For intI = -2 To 2
PicGraph.PSet (0, intI)
PicGraph.Print intI
Next intI
End Sub Python
Python – интерпретируемый, объектно-ориентированный язык
программирования. Относится к классу языков с динамической типизацией
(тип переменной не объявляется заранее), поддерживает высокоуровневые
структуры данных (словари, списки), имеет ясный синтаксис. Интерпретатор
Питона распространяется под свободной лицензией.
Пример программы на Python – «Таблица умножения»:
print "Multiplication table"
print
i=1
while i<=10:
j=1
while j<=10:
print i*j, "\t",
j+=1
print
i+=1
raw_input() JavaScript
На JavaScript пишутся сценарии для поведения браузера, которые
встраиваются в html-страницы. Синтаксис JavaScript почти идентичен
синтаксису языка Си.
Пример программы на JavaScript – «Корректный адрес электронной почты»:
<!--
<html>
<form id="myform" method=GET action="" enctype="text/plain">
Кому:
<input name = "email_to" type="Text" value = "">
<p>
От кого:
<input name = "email_from" type="Text" value = "">
<p>
Сообщение: <br>
<textarea name="Сообщение" type = "text" value=""></textarea>
<p>
<input name = "Отправить" type="submit" value = "Отправить">
</form>
<script>
function myform.onsubmit (){
var noemail = myform.email_to.value.indexOf('@') == -1
var notext = !myform.Сообщение.value
var xtext = "\nПисьмо не отправлено"
if (noemail || notext) {
event.returnValue = false
if (noemail)
alert ("Неправильный адрес получателя" + xtext)
else
alert ("Нет текста сообщения" + xtext)
} else
myform.action = "mailto:" + myform.email_to.value
}
</script>
</html>
--> | 