Информатика -продвинутый курс
Какие проблемы решаются при использовании
program sekret;
var
| slovo,anslovo: string[100];
alfavit : string[33];
n, i, k, p : integer;
fkl : file of integer;
fs : text;
begin
alfavit:='абвгдежзийклмнопрстуфхцчшщъыьэюя ';
assign(fkl,'n.key'); reset(fkl); read(fkl,n); close(fkl);
writeln; write('введи
текст: ');
readln(slovo); anslovo:='';
for k:=l to length(slovo) do begin for i:=l to 33 do
if slovo[k]=alfavit[i] then begin p:=i+n;
if p >33 then p:=p mod 33;
anslovo:=anslovo+alfavit[p];
end;
end;
assign(fs,'шифр.txt'); rewrite(fs); write(fs,anslovo);close(fs);
writeln; write(ansiovo) ;
end.
Программа 27 (в)
program retsek;
var slovo, anslovo : string[100];
alfavit : string[33];
n, i, k, p : integer;
fi : file of integer;
f : text;
begin alfavit:='абвгдежзийклмнопрстуфхцчшщъыьэюя ';
assign(fi,'n.key'); reset(fi); read(fi.n); close(fi);
assign(f,'шифр.txt'); reset(f); read(f,anslovo); close(f)
slovo:='' ;
for k:=l to length(anslovo) do
begin for i:=l to 33 do
if anslovo[k]=alfavit[i] then
begin p:=i-n; if p < 1 then p:=33-p mod 33;
slovo:=slovo+alfavit[p];
end;
end;
writeln; write('TeKCT шифровки: ',slovo);
end.
Контрольные вопросы и задания
1. Какие проблемы решаются при использовании файлов?
2. Какие операции и функции используются при работе с файлами?
3. Найдите площадь выпуклого четырехугольника со сторонами х, у, z, t и одной
из диагоналей d.
4. Заданы три комплексных числа. Найдите их сумму,
5. Имеется внешний файл записей «lab.zap», содержащий сведения об ученика.' школы. Файл формируется приведенной ниже программой.
Составьте программу, в которой необходимо сделать следующее:
а) упорядочить файл по признаку «class» в порядке возрастания;
б) упорядочить файл по признаку «god» в порядке убывания;
в) упорядочить файл в алфавитном порядке.
program lab;
type shcoo 1= record
fiо : string[20], class : 1 .. 11; god : integer; pol: char;
end;
var x:array[1..100] ofshcool; n,i:integer; f:file of school;
begin
write ('введите кол-во учеников:'); readln(n); assign(f,'lab.zap'); rewnte(f);
for i:=l to n do with x[i] do
begin \write('введи Ф.И.О.',1,'-ого ученика:'); readln(fio);
write('клacc:'); readln(class);
write('гoд рождения:-'); readln(god); write('пол(M/Ж):-');
readln(pol); write(f,x[i])…;
end; close(f);
end.
6. Задание рассчитано на двух студентов, использующих «электронную почту» на одном компьютере. Первый студент составляет программу, в которой формирует внешний файл «письмо». Второй студент должен «прочитать» файл и сформировать «ответ».
ПИСЬМО ОТВЕТ
а) последовательность целых чисел до 100 | квадраты этих чисел;
б) простые числа в интервале от 1 до 200 | сумма этих чисел
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий