Похожие работы на «Основы программирования на языке Паскаль»
Из опыта создания универсальных тестовых редакторов
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты
... Begin Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin Writeln('4') Writeln(b1,"4"); End; else If z>=40 Then Begin Writeln('3') Writeln(b1, ...
... на экран} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin Read(c,b); Write(b); End; Readln(c); Writeln; Writeln('Заменить
Обработка экономической информации средствами языка 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('Всё
... c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27) ...
Паскаль (практическое использование)
Программирование и комп-ры, Паскаль (практическое использование), Реферат
... раздел описания меток } finish; var {Описания раздела переменных} D:record end; f:text; { файл итогов опроса} a,b:integer; {переменные a,b - целого ...
... else {Условие не выполнено} begin {начало составного оператора} Error { Процедура вывода ошибки } end; {конец составного оператора} b:=20-a; assign(f, ...
Основы программирования на языке Паскаль
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат
... Else Begin X:=-C/B; Writeln('X=',X:8:3) End | |Else | |Begin | |D:=B*B-4*A*C; | |If D<0 Then Writeln ('Корней нет! ') | |Else | |Begin | |X1:=(-B+SQRT ...
... Begin | |Writeln('Введите строку'); | |Readln(S); | |For I:=1 to Length(S) do {организуем цикл, начиная с первого символа} | |Writeln(S[I]) {строки, ...
Экзаменационные билеты по трем предметам из раздела программирования и компьютеров за декабрь 2000 г
Программирование и комп-ры, Экзаменационные билеты по трем предметам из раздела программирования и компьютеров за декабрь 2000 г, Билеты
... f содержит элементы 1 и 2. Какое значение будет иметь переменная х после выполнения следующих операторов? a) reset (f); if f ^=1 then get (f); x : = f ...
... программа program dynamic Var x : ^ boolean; y : boolean; begin {A} new (x); {B} x ^ : = true; y : = not x ^; {C} dispose (x); {D} writeln (y) end.
Программирование на языке Турбо Паскаль
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие
... var a,b,c,d: real; begin writeln; write('Введите коэффициенты a,b,c квадратного уравнения : '); readln(a,b,c); d:=sqr(b)-4*a*c; if d>=0 then if d=0 ...
... x+b.x; c.y:=a.y+b.y; c.z:=a.z+b.z; end; procedure VecSub(a,b: 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 ...
Основные понятия алгоритмического языка
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая
... begin sC:=pTop^.sD; pTop:=pTop^.pNext end; begin Clrscr; writeln(' ВВЕДИ СТРОКУ '); readln(sC); CreateStack(pTop,sC); repeat writeln(' ВВЕДИ СТРОКУ ...
... pCKey^.pNext end; begin ClrScr; writeln(' ВВЕДИ СТРОКУ '); readln(sC); CreateLL(pBegin,pEnd,sC); repeat writeln('ВВЕДИ СТРОКУ '); readln(sC); AddLL( ...
Линейные списки. Стек. Дек. Очередь
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом
... q^.Next := h^.Next; if h <> nil then Dispose(h); RoundList := q^.Next; end; end; if RoundList <> nil then begin q := RoundList^.Next; i := 1; while q ...
... Dispose(r); end else ShowMessage('Элемент уже не существует'); end; end else begin ShowMessage('Список пуст'); Form1.Image1.Hide; end; end; procedure ...
Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая
... end; B: begin Writeln(f_out, ' V_'+ Offset+tab+'DB', tab, '?'); end; W: begin Writeln(f_out, ' V_'+ Offset+tab+'DW', tab, '?'); end; D: begin Writeln( ...
... NoPrefix end; SS: begin write(f_out, 'SS:'); Prefix := NoPrefix end; DS: begin write(f_out, 'DS:'); Prefix := NoPrefix end; end; end; write(f_out, ...
Построение блок схем алгоритмов. Алгоритмические языки высокого уровня
Программирование и комп-ры, Построение блок схем алгоритмов. Алгоритмические языки высокого уровня, Курсовая
... e then begin r:=x; while abs(r)>e do begin z:=z+r; n:=n+1; r:=r*(x/n); end; writeln('Summa=',z:3:5); end else writeln('Z=1'); end else writeln('Ошибка ...
... a;i++) for (j=1;j<=b;j++) { cout<<"G["<=0.0 then begin l1:=l1+1;sum1:=sum1+g[i,j]; end else begin l2:=l2+1;sum2:=sum2+g[i,j]; end; end; end; if l1>l2 ...
