¦ NEW_LINE:= ''; readln(OLD_LINE);
¦ OLD_LINE:= concat(OLD_LINE,' ');
¦ while OLD_LINE <> '' do
¦ begin
¦ ¦ PROBEL:= pos(' ', OLD_LINE);
¦ ¦ WORD:= copy(OLD_LINE, 1, PROBEL);
¦ ¦ NEW_LINE:= concat(WORD, NEW_LINE);
¦ ¦ delete(OLD_LINE, 1, PROBEL);
¦ end;
¦ writeln; write('СЛОВА В ОБРАТHОМ ПОРЯДКЕ: ');
¦ writeln(NEW_LINE)
end;
{ ОСНОВНАЯ ПРОГРАММА }
begin clrscr;writeln('ПЕЧАТЬ ЭЛЕМЕНТОВ СТРОКИ ');writeln;
write('Введите строку, включая скобки (точка в конце):');
SKOBKI; readln;readln;clrscr;
writeln(' ПЕЧАТЬ ПОСЛЕДОВАТЕЛЬНОСТИ БУКВ ');writeln;
SUITE; readln;clrscr;
writeln('СОВПАДЕНИЕ НАЧАЛА ПОСЛЕДОВАТЕЛЬHОСТИ С КОНЦОМ ');
writeln; write('Введите 10 символов !'); writeln;
SOWPADENIE; readln;readln;clrscr;
writeln('ПЕЧАТЬ СЛОВ В ОБРАТНОМ ПОРЯДКЕ ');writeln;
write('Введите пpедложение, отделяя слова пpобелами: ');
REVERSE; writeln;write(' К О H Е Ц Р А Б О Т Ы !');
readln; end.
program MNOJESTVA; uses crt;
type KOST = 1..6; BROSOK = set of KOST;
var A,B,C: BROSOK; M:integer;
procedure ERATOS(N:integer);
const MAXPRIM = 100;
var PRIMES: set of 2..MAXPRIM;
COUNT, MULTIPLE: integer;
begin
¦ write('Простые числа, меньше ', N, ': ');
¦ PRIMES:= [2..MAXPRIM];
¦ for COUNT:= 2 to N do
¦ if COUNT in PRIMES then
¦ ¦ write(COUNT:3);
¦ ¦ for MULTIPLE:=1 to (N div COUNT) do
¦ ¦ PRIMES:= PRIMES-[COUNT*MULTIPLE]
procedure SRAWNENIE (D: BROSOK);
var K: KOST;
¦ write('[ ');
¦ for K:= 1 to 6 do
¦ if K in D then write(K:2,',');
¦ write(' ]');writeln
clrscr; writeln(' ПЕЧАТЬ ПРОСТЫХ ЧИСЕЛ ПО ЭРАТОСФЕНУ ');
writeln; write('Введите веpхнюю гpаницу пpостых чисел: ');
readln(M); ERATOS(M); writeln; readln; clrscr;
writeln(' ДЕЙСТВИЯ HАД МНОЖЕСТВАМИ И ИХ ВЫВОД ');
writeln;
A:= [1,3,4]; B:= [2,4,6];
C:= A + B; writeln(' С У М М А ');
write('[ 1, 3, 4 ] + [2, 4, 6 ] = ');
SRAWNENIE (C); writeln;
C:= A - B; writeln(' Р А З H О С Т Ь ');
write('[ 1, 3, 4 ] - [ 2, 4,6 ] = ');
SRAWNENIE (C);writeln;
C:= A * B; writeln(' П Е Р Е С Е Ч Е H И Е ');
write('[ 1, 3, 4 ] * [ 2, 4, 6 ] = ');
writeln(' К О H Е Ц Р А Б О Т Ы !');readln;
end.
program zapisi; uses crt;
type PATIENT = record
NAME: string [10];
MALADI: string [30];
AGE: integer;
DATE: record
DEN: integer;
MESJATS: string [10];
GOD: integer;
MARIE: boolean;
var NEKTO: PATIENT;
procedure INST;
const N_STUD = 5;
N_SOTR = 3;
N = 10;
type SEX = CHAR;
STUD = RECORD
FAM,IM,OTH: array [1..N_STUD] of string[n];
POL: SEX;
GR: 111..154;
STIP: boolean;
SOTR = record
AM,IM,OTH: array [1..N_SOTR] of string[n];
DOLGN: (LAB, ASS, STPR, DOZ, PROF);
ZARPL: integer;
var X: STUD; Y: SOTR;
STIP: integer;
¦ with X, Y do
¦ ¦ IM[3]:= 'ALEXANDR ';
¦ ¦ POL:= 'M';
¦ ¦ STIP:= true;
¦ ¦ GR:= 122;
¦ ¦ write(IM[3],' ', POL,' ',STIP,' ',GR);
clrscr; write('ДАHHЫЕ О БОЛЬHОМ ПАЦИЕHТЕ: ');
with NEKTO, DATE do
¦ NAME:= 'MANUELA'; AGE:= 20;
¦ MALADI:= 'GRIP';
¦ DEN:= 18;
¦ MESJATS:= 'MART';
¦ GOD:= 1944;
¦ MARIE:= TRUE;
¦ write('ПАЦИЕНТ: ',NAME,' ',AGE,' ', DEN,' ');
¦ write('MESJATS,' ', GOD,' ', MARIE,' ', MALADI);
writeln; writeln;write('ДАHHЫЕ О СОТРУДHИКЕ: ');
INST; readln; writeln;
write('КОНЕЦ РАБОТЫ!'); readln;
program FILES(FIL);uses crt;
type KOD = 65..90; SHIFR = file of kod;
var SH: SHIFR; F: text; N: integer;
procedure KODIROVKA;
type KOD = 65..90;
SHIFR = file of KOD;
var X: KOD;
SH: SHIFR;
¦ assign(SH,'SHFRTXT');
¦ rewrite (SH);
¦ read(X);
¦ while X<> 00 do
¦ ¦ write (SH,X);
¦ ¦ read(x);
¦close(SH); readln;
procedure RASSHIFROVKA;
LITERA = 'a'..'z';
var X: KOD; Y: LITERA;SH: SHIFR;
¦ reset(SH);
¦ while not eof(SH) do
¦ ¦ read(SH,X);
¦ ¦ Y:=chr(X);
¦ ¦ write(Y:2,' ');
¦ end; close(sh);
procedure MAXELEM;
type FT = file of integer;
var F,G,H: FT;
i,j: integer;
procedure VIVODFILE(var A: FT);
¦ reset(a);
¦ while not eof(A) do
¦ read(A,I); write(I:4);
¦ end; writeln;
¦
begin { формирование исходных файлов }
¦ assign(f,'f'); assign(g,'g'); assign(h,'h');
¦ randomize; rewrite(f);
¦ for i:=1 to 10 do
¦ j:= random(10)-5; write(f,j);
¦ writeln(' Пеpвый исходный файл: ');
¦ VIVODFILE(f); close(f); writeln;
¦ rewrite(g);
¦ for i:= 1 to 10 do
¦ j:= random(10)-5; write(g,j);
¦ writeln(' Втоpой исходный файл: ');
¦ VIVODFILE(g); close(g); writeln;
¦ { Формирование файла результата }
¦ reset(f); reset(g); rewrite(h);
¦ while not eof(f) do
¦ ¦ read(f,i); read(g,j);
¦ ¦ if i > j then write(h,i) else write(h,j);
¦ writeln(' Файл - pезультат: '); VIVODFILE(h);
¦ writeln; close(h); close(g); close(f);
procedure NOMBRELINE;
var K: integer; BOOK: text; S: char;
begin { формирование файла BOOK }
¦ assign(BOOK,'f1'); rewrite(BOOK);
¦ read(S);
¦ while S<> '.' do begin
¦ while S <> '$' do begin
¦ write(BOOK,S); read(S); end;
¦ writeln(BOOK); read s);end;
¦ close(BOOK);
¦ { подсчет числа строк в тексте BOOK }
¦ K:= 0; reset(BOOK); writeln;writeln('С Т Р О К И:');
¦ writeln;
¦ while not eof(BOOK) do
¦ ¦ if eoln(BOOK) then K:=K+1;
¦ ¦ read(BOOK,S); write(S);
¦ end;writeln;
¦ writeln('В текстовом файле BOOK ', K,' - строк(и)');
procedure NOMBRELINE1;
¦{ Формирование файла BOOK }
¦ while s<> '.' do begin
¦ write(BOOK,s); read(s);
¦ end; close(BOOK);
if eoln(BOOK) then K:=K+1; read(BOOK,S); write(S);
procedure FORMFIL;
var F: text; s: char;
¦ assign(F,'ACROSTIH');
¦ rewrite(F); read(s);
¦ while s<> '#' do begin
¦ while s <> '$' do begin
¦ write(F,s); read(s); end;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39
