Uses Graph; { Подключаем модуль } var c,d,Gd,Gm:integer; k:real; begin Writeln('10<=c<=460; 10<=d<=230'); Write('Задайте c в пределах от 10 до 460: ');Read(c); if (c<10) or (c>460) then Writeln('Неверное значение!') else begin Write('Задайте d в пределах от 10 до 230: '); Readln(d); if (d<10) or (d>230) then Writeln('Неверное значение!') else begin Gd := Detect; InitGraph(Gd, Gm, 'Y:\tp7\bgi'); { Инициализируем графический режим } SetColor(4); k:=GetMaxX/GetMaxY; { Коэффициент искажений по осям } if c<d then Rectangle(Trunc(10/k),10,Trunc((2*d+10)/k),2*d+10) else Line(Trunc(c/k),c,Trunc(d/k),d); Readln; CloseGraph end end end.
Второе поколение. Полупроводниковая элементная база. Значительно повышается надежность и производительность, снижаются габариты и потребляемая мощность. Развитие средств ввода/вывода, внешней памяти. Ряд прогрессивных архитектурных решений и дальнейшее развитие технологии программирования- режим разделения времени и режим мультипрограммирования (совмещение работы центрального процессора по обработке данных и каналов ввода/вывода, а также распараллеливания операций выборки команд и данных из памяти) В рамках второго поколения четко стала проявляться дифференциация ЭВМ на малые, средние и большие. Существенно расширилась сфера применения ЭВМ на решение задач - планово - экономических, управления производственными процессами и др. Создаются автоматизированные системы управления (АСУ) предприятиями, целыми отраслями и технологическими процессами (АСУТП). Конец 50-х годов характеризуется появлением целого ряда проблемно-ориентированных языков программирования высокого уровня (ЯВУ): FORTRAN, ALGOL-60 и др. Развитие ПО получило в создании библиотек стандартных программ на различных языках программирования и различного назначения, мониторов и диспетчеров для управления режимами работы ЭВМ, планированием ее ресурсов, заложивших концепции операционных систем следующего поколения.
//Вот программа, которая кодирует слова в системах счисления от 2 до 10 //Первый ввод - число, второй - система счисления //Pascal ABC.NET v3.0
var a,i,b,r,n,j,bug:integer; s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string); begin repeat b:=a mod n; a:=a div n; str(b,se); s+=se; until (a<=n-1); end;
begin readln(slo); readln(n); for j:=1 to length(slo) do begin; a:=ord(slo[j]); preob(a,b,n,se); str(a,se); s+=se; for i:=1 to length(s) div 2 do begin; se:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=se[1]; end; write(s,'-'); slof:=slof+s; delete(s,1,length(s)); end; end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
var
c,d,Gd,Gm:integer;
k:real;
begin
Writeln('10<=c<=460; 10<=d<=230');
Write('Задайте c в пределах от 10 до 460: ');Read(c);
if (c<10) or (c>460) then Writeln('Неверное значение!')
else begin
Write('Задайте d в пределах от 10 до 230: '); Readln(d);
if (d<10) or (d>230) then Writeln('Неверное значение!')
else begin
Gd := Detect;
InitGraph(Gd, Gm, 'Y:\tp7\bgi'); { Инициализируем графический режим }
SetColor(4);
k:=GetMaxX/GetMaxY; { Коэффициент искажений по осям }
if c<d then Rectangle(Trunc(10/k),10,Trunc((2*d+10)/k),2*d+10)
else Line(Trunc(c/k),c,Trunc(d/k),d);
Readln;
CloseGraph
end
end
end.