Алгоритмизация и программирование на языке «Pascal»”

 
 

Содержимое

Введение-----------------------------------------------------------------------------3

Перечень  заданий ----------------------------------------------------------------5

Задача 1 -----------------------------------------------------------------------------6

Задача 2 -----------------------------------------------------------------------------7 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Введение

 

Развитие  программирования в  России

Истоки

Еще в начале нынешнего века талантливый русский  мужик-самоучка Гришка Распутин кричал в неприбранном кабачке: "А ну-тко, цыгане, спойте мне песню ПРО ГРАММ водочки, ПРО ГРАММ свинца!" И цыгане заводили исконно российский напев. Так появилось знаменитое русское слово "ПРОГРАММ", которое наряду с такими словами, как "спутник", "перестройка" и "архипеллаг", стало знакомо всему миру.

Зарубежные исследователи  истории программирования и воинствующие апологеты буржуазной идеологии  приписывают авторство понятия  ПРОГРАММИРОВАНИЕ западным специалистам, называя в их ряду фамилии Винера, Кнута, Дейкстры, Вирта, Борланда, Нортона и др. Никоим образом не умаляя заслуг этих исследователей, ради истины стоит все-таки отметить: рождением и развитием этой науки ученый мир обязан исключительно сметливости и находчивости русского крестьянского ума.

Однако царское  правительство не могло должным  образом оценить необходимость  компьютеризации слаборазвитого дореволюционного хозяйства. Только с приходом Советской  Власти программирование приобрело  действительно общегосударственный  размах. Основоположник первого социалистического государства заложил программу построения нового общества. Программа написана на языке Ада в райской швейцарской ссылке.

Отечественные программисты успешно создавали, тестировали  и отлаживали программы коллективизации, гулагизации и др. Были разработаны мощные аппаратно-программные комплексы в области продовольствия, алкоголизма и жилья к 2000-му году. Эти творения продолжают проходить отладку на многомиллионной макропроцессорной системе.

Задачи  отечественного программирования

Среди основных задач отечественного программирования можно выделить две наиважнейшие: не допустить безработицу и реализовать  Абсолютную Программу.

Недопущению безработицы  способствует создание автоматизированных рабочих мест плановика, снабженца, бухгалтера и т.д. Наибольший эффект достигается при реализации этих программ на отечественной технике: там, где раньше сидел один бухгалтер, теперь сидят еще оператор, программист, электронщик, пять наладчиков и начальник отдела вычислительной техники. Реализация Абсолютной Программы - это задача, не поддающаяся формализации. Что такое Абсолютная Программа - никто не знает, но предполагают, что это что-то хорошее. Над этой задачей бьется бессчетное количество бюджетных институтов, и, видимо, здесь важен не столько результат, сколько сам процесс.

Трудности на пути

Одной из основных трудностей на пути реализации Абсолютной Программы является отсутствие аппаратуры и документации. Наши удальцы-программисты вынуждены рисовать картинки без  сканеров и курочить ДОС без описания. Это, безусловно, закаляет волю, прививает навыки оригинального мышления, а также формирует сознание вседозволенности.

Необходимо отметить ряд объективных причин, приведших  к этим трудностям. Это, конечно же, тяжелое наследие сталинщины, бериевщины и брежневщины. Годы волюнтаризма и застоя породили монстров отечественного аппарата. Опытный программист легко распознает их по несмываемым наклейкам "ЕС" и "СМ". Программирование на этих аппаратах имеет сходство с действиями партизан в белорусских лесах: неизвестно, когда, где и почему ваш поезд сойдет с рельсов.

Наши  принципы

Ряд неформальных организаций (например Союз Советских  Хаккеров) ратуют за вседозволенность в приобретении зарубежной вычислительной техники. По их мнению, необходимо разрешить кооператорам и прочим честным людям обменивать содержимое наших свалок на компьютеры фирмы IBM. Приятно сознавать прочность позиций руководителей страны в этом вопросе: во-первых, это наши кровные свалки и нечего отдавать их Дикому Западу; во-вторых, никому, кроме государства, не дозволено продавать продукцию по спекулятивным ценам; и, наконец, они же просто много заработают! Кооператоры и так покупают автомобили, ветчину и председателей исполкомов - и это на фоне общего голода и демократии.

ВЫВОД: снабжение программистов хорошей вычислительной техникой находится в надежных государственных руках, и это позволяет надеяться, что уровень развития советской компьютеризации вскоре сравняется с уровнем развития советского сельского хозяйства.

Наша  совесть

Прочный неконвертируемый рубль и классовое сознание позволяют забыть о всяких проявлениях этого архаизма: наша совесть - это ее отсутствие. Лозунг "экспроприация экспроприаторов" с рождения сидит в печенках у каждого советского человека. Под экспроприатором мы подразумеваем любого, у кого что-то есть.

Что такое "вор  в законе"? "Вор в законе" - это наш советский программист! Предложите ему купить программное  обеспечение, и он рассмеется вам  в лицо.

Наш программист  собственноручно украдет, распотрошит, адаптирует под кириллицу и сдаст барыге-пользователю по сходной цене всякую западную программу: от драйвера до базы данных. И попробуйте пригрозить ему судом, как услышите в ответ отборную брань.

Вообще говоря, необходимо юридически закрепить статус советского программиста. Мы надеемся, что Верховный Совет рассмотрит предложение: ввести уголовную ответственность за покупку западного программного обеспечения - 5 лет лишения свободы с принудительным программированием на ЭВМ серии ЕС.

Наши  достижения

У нас теперь тма-тмущая программистов (а в 1913 году их было мало!). Советский винчестер (5 Мб) - самый маленький винчестер в мире, а советский системный блок - самый большой! И вообще, если вы сомневаетесь в наших достижениях, займитесь сравнением "Микроши" и "Синклера". Это пробудит в вас пытливость ума, ассоциативное мышление и патриотизм. И вы не побежите к американскому посольству: не потому, что там слишком длинная очередь, а потому, что сравнение "Микроши" и "Синклера" - еще не повод для эмиграции.  
 
 

 
Перечень заданий

       Написать  программу вычисления функции  . Заполнить таблицу значений    при с шагом . 

       Таблица  1

Вариант задания

 

       Примечание: , и вводятся с клавиатуры (если эти величины в задании выражены через , то их следует предварительно рассчитать на калькуляторе и ввести с точностью до 7 знаков после запятой); вывод результатов на экран осуществляется в два столбика ( ) с точностью до 6 знаков после запятой. Если в функции встречается возведение выражения в целую степень можно использовать функцию sqr(x)  или простое перемножение; для произвольных степеней используется формула  . 
 
 

Задание 2

 Дан массив целых чисел. Вывести на экран все элементы, оканчивающиеся нулем. 
 
 
 
 
 
 
 
 

Задание 1 

uses crt;    - подключение экранного модуля

var

a,b,h,x,y:real;    - объявляем переменные 

begin                -  начало проги

a:=-4;                  - начальные значения

b:=0;

h:=0.4;

write('input a, b, h ');         - согласно примечания a, b, h вводятся с клавы

readln(a,b,h);                     - ввод с клавы

x:=a;                                  - присвоение х начального знач отрезка

while x<=b do        - цикл пока х меньше или равно концу отрезка, выполнять

 begin                      - начало цикла

  if x<-2 then            - если х меньше -2, то

           y:=5*x*x*x+2*x*x-x+6        - вычисляется значение у

          else                                          - иначе

           y:=5*ln(abs(sin(0.25*3.141592*x)+x+1)); - вычисляется знач у

  writeln('x=',x:2:6,'  y=',y:2:6);               - вывод значений на кинескоп монитора

  x:=x+h;                                                      - приращение интервала h к х

 end;                                                             - кончало цикла

     x:=b;                                                       -  присвоение х конца отрезка    

  if x<-2 then                                                - если х меньше -2

           y:=5*x*x*x+2*x*x-x+6                   - вычисл знач у

          else                                                    - иначе

           y:=5*ln(abs(sin(0.25*3.141592*x)+x+1)); - вычисл знач у

  writeln('x=',x:2:6,'  y=',y:2:6);                     - вывод результатов у при х=b 

readln;                                      - смотрим результаты и жмем любую кнопку

end.                                          –кончало программы 
 
 
 
 
 
 
 
 
 
 
 
 

Задание 2 

uses crt;    - подключение модуля

const         - объявление констант

n=10;         

var               - объявление переменных

A:array [1..n] of integer;    - одномерный массив из n алиментов

i:integer;                             - объявление целочной переменной i

begin                                  - начало проги 

                 вводим алименты массива чисел

for i:=1 to n do                   - цикл для I , принимающей значения от 1 до n

 begin                                 - начало цикла

  write('input [A',i,']= ');     - номер элемента такой-то равен

  readln(a[i]);                     - запрос значения этого номера алимента с клавы

 end;                                  - кончало цикла (ПМС)

     writeln;                         - вывод пустой строки –для разделения разделителя 

            вывод результатов

for i:=1 to n do                    - цикл для I , принимающей значения от 1 до n

 begin                                  - начало цикла

 if a[i] mod 10=0 then     - если остаток от деления на 10 значения i элемента массива =0, то

  writeln('[A',i,']= ',A[i]);      - вывод этого элемента массива на кинескоп монитора.

 end;                                     - кончало цикла (ПМС)

readln;                                 - смотрим результаты и жмем любую кнопку

end.                                      – кончало программы. 
 
 
 
 
 
 

Выводы

Какие можно  сделать выводы? Отечественное программирование находится в периоде затяжного  расцвета. Наши трудности позволяют  с облегчением оглядываться назад: это уже в прошлом... Наши принципы дают возможность твердо стоять на ногах в настоящем. Отсутствие совести позволяет с восхищением смотреть в светлое будущее. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

литература