Похожие работы на «Лекция по паскалю»

Лекция по паскалю
Программирование и комп-ры, Лекция по паскалю, Лекция ... div, mod (a div b) частное от деления а на b (a mod b) остаток, после деления а на b. (а,b-целые). a div b= [pic] a mod b =a-((a div b)*b) 17 div 3 ...
... var a, b: integer; x ,y: real; begin writeln (" введите a, b "); readln ( a, b); x: = a + b; y: = a/b; writeln (" x = ", x:8:3, "_ _ ", "y = ", y:8:3) ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... 10,10,40,15); WindowL('Input File Name .ROM'); y :=1; zs:=' '; Loc(22,12); Wrt('-'); Repeat WaitKey; Loc(21+y,12); If (Key<>chr(13))And(Key<>chr(27) ...
... chr(13))And(Key<>chr(27)) Then If (Key<>chr(08)) Then Begin If y<>9 Then Begin zs[y]:=Key; Wrt(key+'-'); inc(y); End; End Else If y<>1 Then Begin dec( ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... 7,8,10,12: if d=31 then begin m:=m+1; d:=1; end else d:=d+1; 2: if d=28 then begin m:=m+1; d:=1; end else d:=d+1; end; wd:=tWeekDay((ord(wd)+1) mod 7) ...
... tVec3D; var c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure VecMultNum(k: real; a: tVec3D; var b: tVec3D); begin b.x:=k*a.x ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... reset(f2); rewrite(f); repeat read(f2,b); a.n:=b.n; a.e1:=b.e1; a.e2:=b.e2; a.e3:=b.e3; a.e4:=b.e4; write(f,a); until eof(f2); writeln; writeln('Всё
... 1000); writeln('Reload-'); write('Exit-'); c:=readkey; if c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; end; end ...


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... Label, F, 1); Status := -1; end end; 'L': if (OpCode = 'LOOP') OR (OpCode = 'LOOPZ') OR (OpCode = 'LOOPNZ') then Val ( '$'+Operand1, _Label, Status) ...
... REPZ) OR (Prefix = REPNZ) then begin if (Opcode[1] IN ['M', 'L', 'S']) AND (Ord(OpCode[0])<>0) then Prefix := REP end; Val ( '$'+Offset, _Offset, ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... mod 400)<>0 then DayInMonth:=28 else DayInMonth:=29 end; Function DayDiffer(A,B:dat):Integer; Var m1,m2,y1,y2:Integer; Begin DTErr:=false; y1:=A.year; ...
... do begin delay:=delay-1-DayInMonth(b.month,b.year)+b.day; b.day:=1; b.month:=(b.month mod 12)+1; if b.month=1 then inc(b.year); end; b.day:=delay


Паскаль (практическое использование) [нестрогое соответствие]
Программирование и комп-ры, Паскаль (практическое использование), Реферат ... Error { Процедура вывода ошибки } end; {конец составного оператора} TextBackground(11); {Установка цвета экрана} TextColor(9); {Установка цвета текста ...
... Error { Процедура вывода ошибки } end; {конец составного оператора} b:=20-a; assign(f,'c:\Tvor esult.txt'); append(f); { открываем файл для ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... writeln('Протокол работы'); writeln('Введите исходные данные:'); readln(a,b,c,p,q,x); writeln('a=', a,', b=',b,', c=',c,', p=',p,', q=',q,', x=',x:6:3 ...
... exp(cos(x)*cos(x)*ln(x)); writeln('К=0, значение переменной Y равно ',y:6:3); end; if k=1 then begin y:=exp(sin(x)*ln(2)); writeln('К=1, значение ...


Основные понятия алгоритмического языка [нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 2) _ подчеркивание 3) 10 цифр:
... и константам множественного типа применимы операции присваивания(:=), объединения(+), пересечения(*) и вычитания(-): ['A','B'] + ['A','D'] даст ['A' ...


Основы программирования на языке Паскаль [нестрогое соответствие]
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат ... по-английски. | | Формат условного оператора на языке Паскаль: | | If <условие> | | Then <оператор 1> | | Else <оператор 2>; | | Обратите внимание на ...
Real; | |Begin | |Writeln ('Введите коэффициенты уравнения (A, B, C) '); | |If A=0 Then | | If B=0 Then | |If C=0 Then Writeln('X - любое число' ...