//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.
Этапы создания компьютерной программы. Понятие алгоритма. Виды алгоритмов. Представление алгоритмов в виде блок-схем. Понятие о программировании. Системы и языки программирования. Запись алгоритма на языке программирования. Трансляторы: компиляторы и интерпретаторы. Интерпретатор Quick Basic. Запуск интерпретатора и структура окна. Алфавит языка. Переменные и зачем они нужны. Типы переменных и их запись. Способы объявления переменных. Задание значений переменным. Оператор присваивания. Запись чисел, строк. Арифметические операторы и выражения. Ввод программы. Запуск программы. Исправление ошибок. Сохранение и открытие файлов. Справочная система. Ввод данных. Стандартные функции языка программирования и их использование в арифметических выражениях. Примеры составления простейших линейных программ. Вывод информации на экран. Операторы вывода. Средства расположения информации на экране. Оператор очистки экрана. Комментарии. Константы. Разветвляющиеся алгоритмы. Условный переход IF -THEN - ELSE. Виды условий. Операторы сравнения. Логические операторы и выражения. Сложные условия. Примеры программ с условными операторами. Циклические алгоритмы. Организация циклов с помощью условных операторов. Цикл с параметром FOR. Циклы с предусловием и постусловием. Вложенные циклы.
Program
Title;
Var i, A, B
:Integer;
Begin
WriteLn('Введите первое число');
ReadLn(A);
WriteLn('Введите второе число');
ReadLn(B);
If a>b
then writeln(a+b) else writeln(a*b)
Writeln('Задача решена')
End.