program zad8;
uses crt;
var m,n:integer;
begin
clrscr;
writeln ('m=');
readln(m);
writeln('n=');
readln(n);
if m mod n=0 then
writeln('m div n=',m div n)
else writeln ('not div');
readkey;
end.

program utf ;
var a,b,c,d,s1,k:integer;
s:real;
begin
writeln ('a=');readln(a);
writeln ('b=');readln(b);
writeln ('c=');readln(c);
writeln ('d=');readln(d);
if a>0 then begin
s1:=s1+a;
k:=k+1;
end;
if b>0 then begin
s1:=s1+b;
k:=k+1;
end;
if c>0 then begin
s1:=s1+c;
k:=k+1;
end;
if d>0 then begin
s1:=s1+d;
k:=k+1;
end;
s:=s1/k;
end.2

program voda;
uses crt;
var t:integer;
begin
clrscr;
writeln('t='); readln(t);
if t<0 then writeln ('led')
else
if t>100 then writeln ('par')
else writeln('voda');
readkey;
end.

чет не чет

program zad9;
uses crt;
var a, b, c:integer;
begin
writeln('a='); readln(a);
writeln('b='); readln(b);
writeln('c='); readln(c);
if a mod 2=0 then writeln('chetnoe',a)
else writeln(' not chetnoe a*a' ,a*a );
if b mod 2=0 then writeln ('chetnoe',b)
else writeln ('not chetnoe b*b', b*b) ;
if c mod 2=0 then writeln (' chetnoe',c)
else writeln (' not chetnoe c*c', c*c);
readkey;
end.

program chislo;
var a, b, c, k: integer;
begin
writeln ('a='); readln(a);
writeln('b='); readln(b);
writeln('c='); readln(c);
k:=0;
 if a=0 then k:=k+1;
 if b=0 then k:=k+2;
 if  c=0 then k:=k+3;
 writeln('k=',k);

 end.

program chiclo;
uses crt;
var a, b,d, c,s: integer;
begin
clrscr;
writeln ('c='); readln(c);
a:=c div 100;  c:=c div 10;
 b:=( c mod 10)mod 10;
writeln ('1 num',a);
writeln ('2 num', b);

writeln ('3 num',c);
s:=a+b; writeln ('s=',s); writeln;
c:=b*10+a; writeln('c=',c);
c:=d*100+b*10+a; writeln('c=',c);
readkey;
end.

program z2;
uses crt;
var a, b,c,p, s: real;
begin
textbackground(yellow); textcolor(blue);
clrscr;
gotoxy(25,15);
write('a=');
readln(a);
gotoxy(25,16);
write('b=');
readln(b);
gotoxy(25,17);
write('c=');
readln(c);
p:=(a+b+c)/2;
gotoxy(25,20);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s);
readkey;
end.4

program voda2;
uses crt;
var t:integer;
begin
writeln('t='); readln(t);
if t<0 then begin writeln ('led'); end
 else if t>100 then begin
 writeln ('par');
writeln('t=') end
else begin
 writeln('voda');
 writeln ('t='); end;
readkey;
end.

4-ех значное число сумма первю и послю2 цифр

program cym;
uses crt;
var a, s1, s2: integer;
  begin
 writeln('a='); readln (a);

s2:= a div 1000+(a div 100)mod 10;
s1:=a mod 10+(a div 10)mod 10;
if s1=s2 then writeln (' yes s1=s2')
else writeln(  s1>s2,' no')  ;
 writeln('s1=',s1);
 writeln('s2=',s2);
readkey;
end.

Операция	Назначение	Пример записи	Тип используемых переменных	Тип результата
div	Вычисление частного при делении a на b	C:=a div b;	целый	целый
mod	Вычисление  остатка от деления a на b	D:=a mod b;	целый	целый

Функция	Назначение	Тип аргумента	Тип функции
trunc(x)	Нахождение целой части x (дробная часть числа отбрасывается)	вещественный целый	целый
int(x)	Округление вещественного числа x по направлению к нулю	вещественный	вещественный
round(x)	Округление x в сторону ближайшего целого по математическим правилам	вещественный целый	целый целый
Frac(x)	Вычисление дробной части числа Х	вещественный	вещественный

VisuaL basic

http://psbatishev.narod.ru/vb/v000.htm

Объектно-ориентированное программирование

Объектно-ориентированное программирование

   Переходя к языкам программирования четвертого поколения, вкратце рассмотрим объектно-ориентированное программирование.

   Идея объектно-ориентированного программирования впервые была выдвинута в языке Small talk. В объектно-ориентированное программирование введено понятие объекта и реализованы механизмы вычислений, позволяющие:

- описывать структуру объекта;

- описывать действия с объектами;

- использовать специальные правила наследования объектов;

- установить различную степень защиты компонентов объектов и определить различные права доступа к ним.

   Становлению объектно-ориентированного программирования в значительной степени способствовало развитие функций машинной графики.

  Основные характеристики объектно-ориентированных языков программирования – инкапсуляция, полиморфизм и наследование.

  Под инкапсуляцией подразумевается возможность описать как единое целое данные и манипулирующий ими программный код. Можно представить себе объект как суперданные – которые содержат и собственно данные, и присущую им функциональность.

  Говоря о полиморфизме, имеют в виду то, что разные объекты могут описывать различные реализации одного и того же метода.
 Наследование означает создание новых объектов из уже существующих. Начиная с определения самых общих абстрактных объектов, можно создавать более конкретные объекты нижнего уровня, которые не только унаследуют все функции своих предшественников, но могут добавлять и свои собственные.
  Объектно-ориентированное расширение языка Паскаль, реализованное фирмой Borland, нашло очень много приверженцев и является не только средством для изучения объектно-ориентированного программирования, но и хорошим инструментом для создания прикладных программ. Между Object Pascal и Cи++ есть много общего, но программирование на Object Pascal менее сложное, чем на Cи++ за счет меньшего использования указателей, но программы создаваемые на Cи++ получаются более быстрыми, что при современном быстродействии компьютеров теряет свою актуальность.

Общая характеристика основных языков программирования.

Общая характеристика основных языков программирования.

Даже при наличии десятков тысяч программ для PC пользователям может потребоваться что-то такое, чего не делают (или делают, но не так) имеющиеся программы. В этих случаях следует использовать системы программирования, т.е. системы для разработки новых программ. Эти системы обычно включают компилятор, осуществляющий преобразование программ на языке программирования в программу в машинных кодах, или интерпретатор, осуществляющий непосредственное выполнение программы на языке программирования, редактор текстов программ, библиотеки полезных подпрограмм, отладчики, а иногда и различные вспомогательные программы.
   Для популярных языков программирования (Си, Си++, Паскаль, Бейсик, Фортран и др.) имеется множество систем программирования, позволяющих создавать программы, работающие в среде DOS, Windows и др. В последнее время стали появляться системы программирования на языке Java, они позволяют создавать программы, вызываемые при просмотре Web-страниц в глобальной электронной сети Internet.
 Особым классом систем программирования являются системы для создания приложений типа клиент-сервер. Эти системы позволяют быстро создавать информационные системы для подразделений и даже крупных предприятий. В них содержатся средства для создания пользовательского интерфейса, описания процедур обработки данных, заготовки для выполнения типовых действий по обработке данных и т.д. Эти системы, как правило, позволяют работать с самыми различными СУБД — Oracle, Microsoft SQL Server и др.

Языки программирования

Языки программирования

Ассемблер
Паскаль
Си
Си++
Фортран
Ада
Кобол
ПЛ/1
Модула
Бейсик
Лисп
Пролог
SQL
Object PAL
dBase
HTML
Java
Perl 

Языки программирования!

Языки программирования!

Высокоуровневый язык программирования — язык программирования, разработанный для быстроты и удобства использования программистом. Основная черта высокоуровневых языков — это абстракция, то есть введение смысловых конструкций, кратко описывающих такие структуры данных и операции над ними, описания которых на машинном коде (или другом низкоуровневом языке программирования) очень длинны и сложны для понимания.

Так, высокоуровневые языки стремятся не только облегчить решение сложных программных задач, но и упростить портирование программного обеспечения. Использование разнообразных трансляторов и интерпретаторов обеспечивает связь программ, написанных при помощи языков высокого уровня, с различными операционными системами и оборудованием, в то время как их исходный код остаётся, в идеале, неизменным.