Циклы в Pascal

Часто в программе требуется сделать много однотипных действий. Если число повторений известно заранее, для этого используется цикл со следующей структурой:

for {переменная} := {начальное значение переменной} to {конечное значение переменной} do
   begin
     {действия, которые нужно выполнить}
   end;

Задание 1.
Написать программу, которая выведет на экран все числа от 1 до 100

Задание 2.
Написать программу, которая выведет на экран квадраты чисел от 1 до 100

Задание 3.
Написать программу, которая выведет на экран квадраты только нечётных чисел от 1 до 100

Задание 4.
Написать программу, которая попросит у человека ввести число, а затем найдёт сумму всех чисел от 1 до введённого числа

Задание 5.
Написать программу, которая выведет следующие 100 строк:
1 год
2 года
3 года
4 года
5 лет
6 лет
и т.д.

Power Point

Задание:

Выбрать линейку ВС (например, Ту, Ан, Боинг, Airbus и т.п.)
Найти информацию по 5 прдставителям в интернете (дальность, максимальный взлётный вес, размах крыла и пр.)

Сделать презентацию в Power Point с использованием эффектов смены кадров и оформлением слайдов.

Pascal: ветвление

Обычно ветвление в паскале рассматривают на примере решения уравнения вида ax²+bx+c=0.

Но  мы начнём с чего-то попроще. Пусть компьютер угадывает загаданное пользователем число от 1 до 2.

Пишем:

program ugadayka1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  ans    : Char;
begin
  Writeln('Zagadayte chislo ot 1 do 2. Nazhmite Enter po gotovnosti.');//сообщаем пользователю, что мы от него хотим
  Readln;//когда человек загадал число, он должен нажать Enter
  Writeln ('Eto 1? (y/n)');//спрашиваем, загадал ли он единицу.
  Readln(ans);//ответить он должен, нажав y или n на клавиатуре
  if (ans='y') or (ans='Y') then //т.к. может быть нажат Caps Lock, за ответ "да" будем считать как маленькую, так и заглавную букву y
   Writeln('Ura! Ya ugadal! Eto 1')
  else
   Writeln('Vy zagadali chislo 2');

  Readln;
end.      

Расширим теперь нашу программу - пусть человек загадывает число от 1 до 4:

program ugadayka2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  ans    : Char;
begin
  Writeln('Zagadayte chislo ot 1 do 4. Nazhmite Enter po gotovnosti.');
  Readln;
  Writeln ('Eto 1? (y/n)');
  Readln(ans);
  if (ans='y') or (ans='Y') then
   Writeln('Ura! Ya ugadal! Eto 1')
  else
    begin
      Writeln ('Eto 2? (y/n)');
      Readln(ans);
      if (ans='y') or (ans='Y') then
       Writeln('Ura! Ya ugadal! Eto 2')
      else
        begin
          Writeln ('Eto 3? (y/n)');        
          Readln(ans);
          if (ans='y') or (ans='Y') then
           Writeln('Ura! Ya ugadal! Eto 3')
          else
           Writeln('Vy zagadali chislo 4');
 
        end;
    end;
 
  
  Readln;
end.   


Изменим теперь программу так, чтобы ей требовалось максимум 2 вопроса, чтобы угадать число от 1 до 4:

program ugadayka3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  ans    : Char;
begin
  Writeln('Zagadayte chislo ot 1 do 4. Nazhmite Enter po gotovnosti.');
  Readln;
  Writeln ('Chislo chetnoe? (y/n)');//Этим вопросом мы разбиваем все возможные варианты ответа на 2 равные группы  Readln(ans);
  if (ans='y') or (ans='Y') then
   begin
      Writeln ('Eto 2? (y/n)');
      Readln(ans);
      if (ans='y') or (ans='Y') then
       Writeln('Ura! Ya ugadal! Eto 2')
      else
       Writeln('Vy zagadali chislo 4');
   end
  else
   begin
      Writeln ('Eto 1? (y/n)');
      Readln(ans);
      if (ans='y') or (ans='Y') then
       Writeln('Ura! Ya ugadal! Eto 1')
      else
       Writeln('Vy zagadali chislo 3');
   end;
  
  Readln;
end. 

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

Microsoft Excel

Зарисуйте в конспект эскизы следующих кнопок панели инструментов Excel:

·        Суммирование

·        Сортировка по возрастанию

·        Сортировка по убыванию

·        Объединение ячеек

·        Диаграммы и графики

·        Цвет ячейки

·        Цвет шрифта

·        Формат по образцу

·        Границы ячейки

·        Уменьшение разрядности числа в ячейке

·        Увеличение разрядности числа в ячейке

·        Панель рисования

·        Вставка функции

1.      Добавьте в книгу новый лист. Назовите его своей фамилией. Поместите лист перед листом №1.

2.      Создайте следующую таблицу:

3.                              Заполните столбец А числами от 1 до 1000 с помощью автозаполнения. Чтобы сделать это, введите в ячейку А1 число 1, в ячейку А2 – число 2. Затем выделите эти 2 ячейки и потяните курсором за правый нижний угол рамки (Как показано на рисунке)

4.                              В ячейку В1 введите формулу =КОРЕНЬ(A1), т.е. квадратный корень из величины ячейки, лежащей слева. Обратите внимание: буква А – не русская, а латинская. Используя автозаполнение, введите эту формулу в ячейки В2-В1000.

5.                              Постройте график по значениям ячеек В1-В1000. Для этого выделите необходимый диапазон и нажмите на кнопки построения графиков и диаграмм.

6.                              Введите в ячейки следующий текст:

В ячейку F4 введите формулу:

=F2/F3

, установите разрядность ячейки в 2 знака после запятой. Проверьте работоспособность, вводя расстояние и время в ячейки F2 и F3.

7.                              Введите следующую таблицу:  

 

По её данным постройте круговую диаграмму.

Чтобы добавить в легенду диаграммы названия стран, щёлкните по кнопке напротив «Подписи категорий» и затем выберите рамкой столбец с названиями.

В поле «Имя» выберите имя ячейки c заголовком таблицы.

На третьем шаге включите отображение процентного соотношения:

В результате должна получиться диаграмма такого вида:

8. Найдите в интернете данные по 10 типам ВС: максимальная взлётная масса, размах крыла, потолок, число двигателей, крейсерская скорость. составьте на основе этих данных таблицу и постройте диаграммы.

9. Для каждого из параметров найдите среднее, минимальное и максимальное значения. Воспользуйтесь функциями, находящимися в раскрывающемся списке у кнопки "Сумма".

10. Выделите каким-либо цветом дальности полёта, превышающие среднюю. Для этого выделите диапазон с данными, выберите в меню "Формат-Условное форматирование". Задайте условие "больше", и укажите ячейку, содержащую среднее значение. Затем по кнопке "Формат" задайте вид ячейки. Попробуйте поменять данные в диапазоне и посмотрите, как изменится раскраска ячеек.

Microsoft Word

Зарисуйте в конспект эскизы следующих кнопок панели инструментов:

·        Жирный шрифт

·        Курсив

·        Подчёркнутый

·        Выравнивание по левому краю

·        По центру

·        По правому краю

·        Равномерное выравнивание по ширине

·        Выбор типа шрифта

·        Выбор размера шрифта

·        Установка масштаба текста

·        Цвет шрифта

·        Отменить последнее действие

·        Вернуть отменённое действие

·        Предварительный просмотр

·        Параметры страницы

·        Панель границ

·        Панель рисования

·        Непечатаемые значки

·        Междустрочный интервал

·        Нумерованный список

·        Маркированный список

·        Уменьшить отступ элемента списка

·        Увеличить отступ элемента списка

·        Вставка формулы

·        Разбивка текста на колонки

1. Создайте документ с текстом:

Зарисуйте в конспект горизонтальную линейку, отметьте на её маркеры, поля и остановку табуляции.

2. Вставьте на новой странице документа следующую таблицу:

Чтобы повернуть текст в ячейке таблицы, следует кликнуть по ней правой кнопкой мыши и выбрать «Направление текста»

3. Создайте многоуровневый нумерованный список (пользуйтесь при необходимости кнопкой «Увеличить отступ»)

4. Разбейте текст на 5 колонок, вставляя, где необходимо, разрывы колонок (вставка-разрыв-начать новую колонку).

5. Сфотографируйте рабочий стол и вставьте снимок в документ.

6. Вставьте в документ формулу: 

7. Сохраните свой документ!!! Затем введите следующую фразу:

Если ничего не происходит, включите проверку орфографии.

8. Наберите с новой строки

и нажмите Enter.

9. Подсчитайте, сколько получилось символов в документе. Для этого зайдите Сервис-Статистика

10. Установите в своём документе альбомное расположение страницы и поля левое: 40мм, правое 10мм, верхнее 20 мм, нижнее 50 мм.
11. Подумайте, как узнать, сколько в тексте букв а.

Запишите в конспект список «горячих клавиш»

Ctrl+A – Выделить весь текст

Ctrl+B – Жирный шрифт

Ctrl+U – Подчёркнутый

Ctrl+I – Курсив

Ctrl+L – Выравнивание по левому краю

Ctrl+R – По правому краю

Ctrl+E – По центру

Ctrl+J – Равномерное выравнивание по ширине

Ctrl+ Z –Отмена предыдущего действия

Ctrl+S –Сохранить документ

Ctrl+O –Открыть документ

Ctrl+N –Создать новый документ

Ctrl+X –Вырезать выделенный текст в буфер обмена

Ctrl+C –Копировать

Ctrl+V –Вставить

Ctrl+F –Поиск текста

Ctrl+H –Замена текста

Ctrl+D – Расширенное меню настроек шрифта