Составьте программу, которая формирует массив, содержащий 15 случайныхцелых чисел, принадлежащих промежутку [0; 8] и преобразует элементы массива по следующему правилу: к четному числу прибавляет 1, а нечетное умножает на 2.
Program Frank; const n=15; Type mas=array[1..n] of integer; var a:mas;i:integer; begin for i:=1 to n do begin a[i]:=random(8); write(' ',a[i]); end; for i:=1 to n do begin if a[i] mod 2=0 then a[i]:=a[i]+1 else a[i]:=a[i]*2; write(' Получили ',a[i]); end; end.
2. Подберите подходящий тип данных: a) Количество учеников в классе – integer, word, byte b)Заработанная плата сотрудника фирмы- real, double c) Фамилия сотрудника фирмы – string
3.Запишите арифметические выражения на языке программирования Паскаль: a) ac-b+xyz = a*c-b+x*y*z; в) a*x^2+b*x+c = a*x*x+b*x+c; c) (a-b)x+3/y+z = (a-b)*x+3/(y+z);
4) Напишите инструкцию вывода на экран: а) Вашего имени = write('Ваше имя'); В) Число 400 = write(400); С) Значение выражения x+y = write(x+y);
Этапы создания компьютерной программы. Понятие алгоритма. Виды алгоритмов. Представление алгоритмов в виде блок-схем. Понятие о программировании. Системы и языки программирования. Запись алгоритма на языке программирования. Трансляторы: компиляторы и интерпретаторы. Интерпретатор Quick Basic. Запуск интерпретатора и структура окна. Алфавит языка. Переменные и зачем они нужны. Типы переменных и их запись объявления переменных. Задание значений переменным. Оператор присваивания. Запись чисел, строк. Арифметические операторы и выражения. Ввод программы. Запуск программы. Исправление ошибок. Сохранение и открытие файлов. Справочная система. Ввод данных. Стандартные функции языка программирования и их использование в арифметических выражениях. Примеры составления простейших линейных программ. Вывод информации на экран. Операторы вывода. Средства расположения информации на экране. Оператор очистки экрана. Комментарии. Константы. Разветвляющиеся алгоритмы. Условный переход IF -THEN - ELSE. Виды условий. Операторы сравнения. Логические операторы и выражения. Сложные условия. Примеры программ с условными операторами. Циклические алгоритмы. Организация циклов с условных операторов. Цикл с параметром FOR. Циклы с предусловием и постусловием. Вложенные циклы.
Program Frank;
const n=15;
Type mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a[i]:=random(8);
write(' ',a[i]);
end;
for i:=1 to n do begin
if a[i] mod 2=0 then a[i]:=a[i]+1
else a[i]:=a[i]*2;
write(' Получили ',a[i]);
end;
end.
end.