Похожие работы на «Программирование в Turbo Pascal»
Программирование в Turbo Pascal
Кибернетика, Программирование в Turbo Pascal, Курсовая
... writeln; writeln(' Требование к выводу результатов'); textcolor(4); writeln(' - результат выводятся на экран.'); textcolor(14); writeln; writeln(' Для ...
... tel.tpm2*tel.price2; res[s].pr3:=tel.tpm3*tel.price3; res[s].ob:=res[s].pr1+res[s].pr2+res[s].pr3; s:=s+1; end;close(a); clrscr; writeln('Код города ...
Модули, записи и файлы
[нестрогое соответствие]
Программирование и комп-ры, Модули, записи и файлы, Курсовая
... inn : string[12]; Name : string[20]; Sng : integer; Nop : integer; Uop : integer; Skop : integer; End; Var f : file of table; x : table; begin clrscr; ...
... Выдавать полные сведения о предприятиях, которые не ") ; writeln ("начисляли налоги в отчетный период.") ; window(1, 1, 80, 25); gotoxy(10, 24) ...
Программирование на языке Турбо Паскаль
[нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие
... элементов массива. program FindMaximumInArray; var a: array[1..10] of real; i,max: integer; begin for i:=1 to 10 do begin write('Введите элемент номер ...
... Четверг'); Fri: writeln('Пятница'); Sat: writeln('Суббота'); Sun: writeln('Воскресенье'); NoDay: writeln('Такого дня нет в календаре'); end; until ...
Обработка экономической информации средствами языка Pascal
[нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая
... цвет для цифр меню и свой цвет для названия пункта меню gotoxy(16,5); textcolor(10); write('1'); textcolor(7); write(' - Просмотр'); gotoxy(16,6) ...
... работы с программой выберите номерок:'); textbackground(0); gotoxy(16,5); textcolor(10); write('1'); textcolor(7); write(' - Просмотр'); gotoxy(16,6) ...
Основные понятия алгоритмического языка
[нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая
... pBegin,pCKey,pPreComp,bCond); pPreComp^.pNext:=pCKey^.pNext end; begin ClrScr; writeln(' ВВЕДИ СТРОКУ '); readln(sC); CreateLL(pBegin,pEnd,sC); repeat ...
... ВВЕДИ КЛЮЧ УДАЛЯЕМОЙ СТРОКИ'); readln(sKey); DelComp(sKey,pBegin); writeln; writeln(' ***** ВЫВОД ИЗМЕНЕННОГО СПИСКА *****'); pAux:=pBegin; repeat ...
Программа на Delphi
[нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад
8. Таблица 8 |Операция|Тип операндов |Тип результата |Пример | |+ |Integer, real |integer, real |X + Y | |- |Integer, real |integer, real |Result - 1 ...
... прошел нормально'); end; {Case} Writeln('Скопировано записей: ' + IntToStr(Count1979)); В этом примере использована внешняя процедура KdnFileSize ...
Основы программирования на языке Паскаль
[нестрогое соответствие]
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат
... уравнения (A, B, C) '); | |If A=0 Then | | If B=0 Then | |If C=0 Then Writeln('X - любое число') | |Else Writeln('Корней нет! ') | | Else Begin X:=-C/ ...
... C:=A; A:=B; B:=C {Меняем местами содержимое A и B} | |End; | |Begin | |Writeln('Введите три числа'); | |Readln(S1,S2,S3); | |If S1>S2 Then Swap(S1,S2) ...
Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы
[нестрогое соответствие]
Программирование и комп-ры, Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы, Диплом
... i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g TCCN1 | | |i ^appcab(%cab).1=1 s %res="Кабина занята !" g TCCN1 | | |i (^appticket(%cab))=0 s ...
... e(%s,1,1) s %res=(%s,1,1) g ins1 | | |i ((%s)<2) s %res="?" g ins1 | | |i "EBSL"[(%s,2,2) s %res=(%s,2,2) g ins1 | | |i "EBSL"[(%s,3,3) s ...
Из опыта создания универсальных тестовых редакторов
[нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты
... правильных ответов: ',p); Write('оценка '); {выставление оценки} If z>=90 Then Begin Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin ...
... f); Window(30,5,50,10); TextBackGround(black); clrscr; For i:=1 to d do Begin Writeln(c); Window(10,10,53,20); {окно вопроса} TextBackGround(lightgray ...
Организация доступа к базам данных в Интернет
[нестрогое соответствие]
Программирование и комп-ры, Организация доступа к базам данных в Интернет, Диплом
... использования в библиографирующем учреждении-создателе записи или для обмена. d - исключенная запись Запись, участвующая в обмене для указания, что ...
... применения (позиции символов 6-9): Коды в позициях 6-9 определяются не стандартом ISO 2709, а особенностями конкрет-ного применения формата. (а) Тип ...
