ответьте на вопросы в тетрадь. 1. Почему Чарльз Боббидж назван отцом современного компьютера?
2. Сравните первые и современные компьютеры. Какие измения вы заметили?
3. Напишите имена ученых, которые внесли свой вклад в развитие вычислительной техники.
Найдите интересную информацию о них и запишите в тетрадь паже последних
const alphabet="";
var FileName:string
procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
assign(f,FileName);
reset(f);
while not eof (f) do begin { пока не конец файла }
readln (f, s);
for i:= 1 to length(s) do begin
k:=pos(s[i], alphabet);
if k=1 then k=length(alphabet); {это приколы изза я}
if k>1 then s[i]:=alphabet[k-1];
end;
writeln(s);
end;
close(f);
end;
Begin
read(FileName);
ReadFile;
readln;
End.
// П
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
OnVector(0, -2);
end.
// Б
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
PenUp;
ToPoint(1, 2);
PenDown;
OnVector(1, 0);
OnVector(0, -1);
OnVector(-1, 0);
end.
// Ч
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 3);
PenDown;
OnVector(0, -1);
OnVector(1, 0);
OnVector(0, 1);
OnVector(0, -2);
end.
// Ц
uses Drawman;
begin
Field(25, 27);
ToPoint(5, 25);
PenDown;
OnVector(0, -20);
OnVector(15, 0);
OnVector(0, 20);
OnVector(0, -20);
OnVector(2, 0);
OnVector(0, -3);
end.
// Ш
uses Drawman;
begin
Field(4, 4);
ToPoint(1, 3);
PenDown;
OnVector(0, -2);
OnVector(2, 0);
OnVector(0, 2);
OnVector(0, -2);
Onvector(-1, 0);
OnVector(0,2);
end.
// E
uses drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
PenUp;
ToPoint(1, 2);
PenDown;
OnVector(1, 0);
PenUp;
ToPoint(1, 1);
PenDown;
OnVector(1, 0);
end.
(Если я тебя правильно понял то вот держи)
рад