Домашнее задание (к 3 октября)

Тема: Растровая и векторная графика

Домашнее задание (к 15 сентября)

Тема: Основные характеристики ПК

Домашнее задание (к 16 марта)

Повторить материал прошлого урока (воспользуйтесь презентацией "Циклы".
Решить следующие задачи:

1. Составить программу вывода на экран слова "Мой город - Урай" 15 раз.
2. Вывести на экран все натуральные числа, которые меньше 23.
3. Вычислить суммы чисел от 5 до заданного k.

Файлы заархивируйте и отправьте через обратную связь. Жду.

Паскаль. Циклы

Паскаль. Циклы

View more presentations or Upload your own.

Задание на дом во время карантина

Эффективные алгоритмы.

В Паскале отсутствует возможность возведения в степень, не считая квадрата. Поэтому для получения а²⁰ нужно а*а*а*а…*а  19 раз. Но если учесть, что результат умножения можно сохранить в промежуточной переменной, ответ можно найти за 5 действий.

Program prim_1;

Var a,b:real;

Begin

                Write(‘введите  число’);

                Readln(A);

В:=A*А;               {получаем А во 2 }

B:=В*В;               { получаем А в 4 }

В:=A*B;               { получаем А в 5 }

B:=В*В;               { получаем А в 10 }

B:=В*В;               { получаем А в 20 }

Writeln(‘A  в 20 степени=’,В:0:2);  {Вместо указания ширины поля для вывода числа лучше ставить 0, тогда компилятор отведет столько позиций под целую часть, сколько получилось в ответе, а для дробной части я посчитала возможным оставить 2 позиции}

Readln

End.

В фигурные скобки {…} в программе можно заключать комментарий, компилятор пропускает текст, заключенный в такие скобки, а комментарий позволяет вспомнить о чем программа если вы позднее возвращаетесь к ее тексту.

Задание для тренировки.

1.Дано вещественное число А. Не пользуясь никакими арифметическими операциями, кроме умножения, получить:

1)       А⁴ за две операции;

2)       А⁶ за три операции;

3)       А⁷ за четыре операции;

4)       А⁸ за три операции;

5)       А⁹ за четыре операции;

6)       А¹³ за пять операции;

7)       А¹⁵ за пять операции;

8)       А¹⁹ за пять операции;

9)       А²¹ за шесть операции;

10)   А²⁸ за шесть операции.

Домашнее задание (к 17 февраля)

Задача 1. Из двух чисел найти максимальное.

program maximym;

var A, B, max: integer;

begin

     writeln (‘введите любые два числа’);

     readln (A,B);

     if A>B  then max:=A

                else  max:=B;

     writeln (‘ максимальное число ‘, max);

     readln

end.

Задача 2: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100.

Задача 3: Ввести 2 числа. Если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

Задание:

1) Проверить работу программы (задача 1).

2) Записать программу для задач 2 и 3, используя составленные конструкции оператора ветвления и проверить в среде TP.

Файлы программ отправить через «Обратную связь».

Тест по теме "Работа в Turbo Pascal"