var a: array[1..1000] of integer;
n,i,s1,s2,s3: integer;
s1: =0;
read(n);
for i: =1 to n do
read(a[i]);
for i: =1 to n do
if i mod 2 = 1 then s1: =s1+a[i] else s1: =s1-a[i];
s2: =a[1]+a[n];
s3: =a[1]-a[2];
writeln(s1,' ',s2,' 's3);
end.
Алгоpитм — точное и понятное пpедписание исполнителю совеpшить последовательность действий, направленных на решение поставленной задачи.
Основные свойства алгоритмов:
Понятность для исполнителя
Дискpетность (прерывность, раздельность) — алгоpитм должен пpедставлять пpоцесс pешения задачи как последовательное выполнение пpостых (или pанее опpеделенных) шагов (этапов).
Опpеделенность — каждое пpавило алгоpитма должно быть четким, однозначным и не оставлять места для пpоизвола.
Pезультативность — это свойство состоит в том, что алгоpитм должен пpиводить к pешению задачи за конечное число шагов.
Массовость. Алгоpитм pешения задачи pазpабатывается в общем виде.
Формы представления алгоритмов.
• словесная (записи на естественном языке);
• графическая (изображения из графических символов);
• псевдокоды (полуформализованные описания алгоритмов на условном алгоритмическом языке;
• программная (тексты на языках программирования).
Словесный записи алгоритмов представляет собой описание последовательных этапов обработки данных
Объяснение:
Краткая биография:
Никлаус Вирт (Niklaus Wirth) — швейцарский учёный, специалист в области информатики, один из известнейших теоретиков в области разработки языков программирования, профессор компьютерных наук (ETH), Лауреат премии Тьюринга 1984 года. Ведущий разработчик языков Паскаль, Модула-2, Оберон.
Никлаус Вирт родился 15 февраля 1934 года в Винтертуре, в предместье Цюриха (Швейцария). Родители — Уолтер и Хедвиг Вирт. Отец Никлауса был школьным учителем.
В детстве Никлаус Вирт увлекался авиамоделизмом и постройкой ракет, увлечение электроникой и системами программного управления началось с разработки устройств дистанционного управления для моделей. В 1954 году поступил на факультет электроники Швейцарского федерального технологического института (ETH) в Цюрихе, где за четыре года получил степень бакалавра по электротехнике. Продолжил обучение в Лавальском университете (Квебек, Канада), в 1960 году получил степень магистра. Затем был приглашён в университет Калифорнии в Беркли (США), где в 1963 году, под руководством профессора Хаски, защитил диссертацию, темой которой стал язык программирования Эйлер (Euler) — расширение Алгола средствами языка Лисп.
1 апреля 1999 года Вирт вышел на пенсию, достигнув предельного для государственного служащего в Швейцарии возраста 65 лет (ETH — государственный ВУЗ, его работники являются госслужащими и их работа подчиняется соответствующему законодательству).
19 июня 2007 года Вирту было присуждена ученая степень доктора honoris causa Российской академии наук (по представлению отделения информационных технологий и вычислительных систем). Инициатором представления был российский учёный в области информатики Игорь Шагаев, профессор Лондонского Университета Метрополитен, которого с Никлаусом Виртом связывает совместная работа в 2005— 2008 годах над европейским проектом ONBASS.
Объяснение:
Основные достижения:
Диссертация Вирта (Niklaus Wirth), темой которой стал язык программирования Эйлер (Euler) — расширение Алгола средствами языка Лисп, была замечена сообществом разработчиков языков программирования. Вместе с Чарльзом Хоаром Вирт отстаивал в комитете линию на разработку умеренно модифицированной версии Алгола. Вирт и Хоар представили комитету язык Algol-W (W — от Wirth), представлявший собой именно такую переработку Алгола, но поддержки не встретили. Вместе с Джимом Уэльсом разработал и реализовал язык PL/360, предназначенный для программирования на платформе IBM/360 — алголоподобный язык, в который был введён ряд системно-зависимых возможностей, связанных с архитектурой IBM/360.
В 1970 году создал язык программирования Паскаль. В 1970-х годах разработал, вместе с Ч. Хоаром и Э. Дейкстрой технологию структурного программирования. Для переноса Паскаль-системы на различные вычислительные платформы в 1973 году с участием Вирта был разработан прототип виртуальной машины, исполняющей на любой платформе промежуточный «пи- код», в который предполагалось компилировать все программы.
В 1975 году разработал язык Модула, в котором реализовал идеи разработки модульных программ с хорошо определёнными межмодульными интерфейсами и параллельного программирования. Кроме того, в Модуле был изменён синтаксис языка — Вирт избавился от унаследованной ещё от Алгола-60 необходимости применять составные операторы в конструкциях ветвления и циклах. Модула не была широко известна и имела всего одну экспериментальную реализацию, но её доработанная версия — Модула-2, разработка которой началась в 1977 и закончилась в 1980 году, предназначенная для реализации системного ПО разрабатываемой в ETH системы Lilith — 16-разрядного персонального компьютера, стала известна и довольно популярна, хотя и не превзошла по популярности Паскаль, особенно его коммерческие реализации. Система Lilith обогнала тенденции компьютерной индустрии на несколько лет, позднее Вирт с сожалением говорил, что, не реализовав потенциал этой системы, швейцарская компьютерная индустрия упустила свой исторический шанс. Развитием Модулы-2 стал язык Модула-3, разработанный совместно фирмами DEC и Olivetti; в его создании Вирт участия не принимал.
В 1992 году Вирт и Мёссенбёк выпустили сообщение о новом языке программирования — Оберон-2, — минимально расширенной версии Оберона. В этом же году была образована дочерняя компания ETH — Oberon microsystems, которая занялась разработкой систем Оберон. Вирт стал одним из членов её совета директоров. В 1999 году эта компания выпустила следующую версию Оберона — Component Pascal, более при для компонентного программирования. В 1996 году Вирт разработал ещё один оригинальный язык программирования обучающий язык для формального описания и симуляции цифровых электрических схем.
Поделитесь своими знаниями, ответьте на вопрос:
Даны натуральное число n и целые числа a1, . получить: а)а1-а2+; б)а1+аn; в)а1-а2. , , в паскале. ваша нужна; *
можно обойтись без массива:
program meredith; var n,i,a,b,v,a1,a2,temp: integer; begin writeln('* alphaues is *'); write('ok, введите число n ='); readln(n); a: =0; for i: =1 to n do begin write('введите ',i,'-e число '); readln(temp); if i mod 2 = 1 then a : = a + temp else a : = a - temp; if i = 1 then a1 : = temp; if i = 2 then a2 : = temp; end; writeln(' а: ',a); writeln(' б: ',a1+temp); writeln(' в: ',a1-a2); writeln('*******************************'); end.