// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,8,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var sa:=a.Rows.SelectMany(x->x); Writeln('Положительные элементы:'); sa.Where(x->x>0).Println; Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x))); end.
Const n=4; m=8; var a:array [1..n, 1..m] of integer; max:integer; begin max:=0; for i:=1 to n do for j:=1 to m do a[i, j]:=random(100); for i:=1 to n do for j:=1 to m do begin if a[i, j] > 0 then write('', a[i, j]); if a[i, j] > max then max:=a[i, j]; end; writeln; writeln('max=', max); end.
Var s1,s2,c:string; i:integer; begin write('Type s1:'); readln(s1); write('Type s2:'); readln(s2); if length(s1)>length(s2) then begin for i:=1 to length(s1) do if (s1[i]>='0') and (s1[i]<='9') then write(s1[i]); writeln; for i:=1 to length(s2) do if ord(s2[i])>70 then write(s2[i]); end else begin for i:=1 to length(s1) do if ord(s1[i])>70 then write(s1[i]); writeln; for i:=1 to length(s2) do if (s2[i]>='0') and (s2[i]<='9') then write(s2[i]); end; end.
Пример ввода: Type s1:Mi Zu Type s2:MeL10N Пример вывода: MiZu 10
Выпиши самое главное До середины 60-х компьютеры были слишком дорогими машинами, использовавшимися только для особых задач, и выполнявшими только одну задачу за раз (т. н. пакетная обработка).
Языки программирования этой эры, как и компьютеры на которых они использовались, были разработаны для специфичных задач, таких как научные вычисления. Поскольку машины были дорогими и лишь одна задача выполнялась за раз, то и машинное время было дорого – поэтому скорость выполнения программы стояла на первом месте.
Однако в течение 60-х цена на компьютеры стала падать так, что даже небольшие компании могли их себе позволить; скорость компьютеров всё увеличивалась и наступило время, когда они стали часто простаивать без задач. Чтобы этого не происходило, стали вводить системы с разделением времени (time-sharing).
В таких системах процессорное время «нарезалось», и все пользователи поочерёдно получали короткие отрезки этого времени. Машины были достаточно быстрыми для того, чтобы в результате каждый пользователь за терминалом чувствовал себя так, будто работает с системой в одиночку. Машина же, в свою очередь, простаивала меньше, поскольку выполняла не одну, а сразу много задач. Разделение времени радикально снижало стоимость машинного времени, поскольку одна машина могла совместно использоваться сотнями пользователей.
В этих условиях - когда мощность стала дешева и доступна - создатели языков программирования все больше стали задумываться об удобстве написания программ, а не только скорости их выполнения. «Мелкие» (атомарные) операции, выполняемые непосредственно устройствами машины, объединили в более «крупные», высокоуровневые операции и целые конструкции, с которыми человеку куда проще и удобнее работать.
Что такое язык программирования
Язык программирования — формальная знаковая система, предназначенная для описания алгоритмов в форме, которая удобна для исполнителя (например, компьютера). Язык программирования определяет набор лексических, синтаксических и семантических правил, используемых при составлении компьютерной программы. Он позволяет программисту точно определить то, на какие события будет реагировать компьютер, как будут храниться и передаваться данные, а также какие именно действия следует выполнять над этими при различных обстоятельствах.
Со времени создания первых программируемых машин человечество придумало уже более двух с половиной тысяч языков программирования. Каждый год их число пополняется новыми. Некоторыми языками умеет пользоваться только небольшое число их собственных разработчиков, другие становятся известны миллионам людей. Профессиональные программисты иногда применяют в своей работе более десятка разнообразных языков программирования.
Создатели языков по-разному толкуют понятие язык программирования. Среди общин мест, признаваемых большинством разработчиков, находятся следующие:
Функция: язык программирования предназначен для написания компьютерных программ, которые применяются для передачи компьютеру инструкций по выполнению того или иного вычислительного процесса и организации управления отдельными устройствами.
Задача: язык программирования отличается от естественных языков тем, что предназначен для передачи команд и данных от человека компьютеру, в то время как естественные языки используются лишь для общения людей между собой. В принципе, можно обобщить определение "языков программирования" - это передачи команд, приказов, чёткого руководства к действию; тогда как человеческие языки служат также для обмена информацией.
Исполнение: язык программирования может использовать специальные конструкции для определения и манипулирования структурами данных и управления процессом вычислений.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var sa:=a.Rows.SelectMany(x->x);
Writeln('Положительные элементы:');
sa.Where(x->x>0).Println;
Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x)));
end.
Пример
*** Исходная матрица ***
80 9 -8 32 37 75 43 -72
71 -79 94 -20 -64 -37 -98 53
19 84 -63 -4 17 5 38 -86
-32 56 87 -43 28 -40 -35 24
Положительные элементы:
80 9 32 37 75 43 71 94 53 19 84 17 5 38 56 87 28 24
Максимальный по модулю элемент: 98