Составим программу вычисления суммы ряда чисел 5, 10, 15, …, 50 на языке программирования Pascal ABC. Введем обозначения следующих величин: пусть s – сумма чисел ряда, которую надо найти, а i – порядковый номер чисел ряда. Начальное значение суммы s будет равным нулю. Так как чисел несколько, то будем использовать в программе оператор цикла с параметром for. По условию задачи числа суммируются, начиная с числа 5, с интервалом 4 числа, поэтому значение i в каждом цикле будем увеличивать на 4.
Программа может выглядеть так:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do begin
s:=s+i; {Вычисление суммы чисел}
i:=i+4; {Увеличение значения параметра i на 4}
end;
writeln ('s=',s) {Вывод результата суммы s}
end.
Можно решить данную задачу и вторым используя операцию mod:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do
if i mod 5=0 {Поиск чисел, кратных 5}
then s:=s+i; {Вычисление суммы чисел}
writeln ('s=',s); {Вывод результата суммы s}
end.
ответом будет s=275.
Составить программу нахождения значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40.
program zadacha;
uses crt;
var x,y,i:integer;
begin
for i:=50 downto 40 do begin y:=5*i+i*2; writeln ('y=',y); end;
writeln ('y=',y)
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Тест по ACESS I. Система управления базой данных - это: 1. универсальный комплекс прикладных программ, предназначенных для создания и обслуживания совокупности таблиц с информацией об одной предметной сущности 2. универсальный комплекс прикладных программ, предназначенных для создания и обслуживания совокупности информаций, дающее представление об объекте одной конкретной предметной области 3. универсальный комплекс прикладных программ, предназначенных для создания и обслуживания совокупности взаимосвязанных данных, содержащих сведения о различных сущностях одной предметной области 4. универсальный комплекс прикладных программ, предназначенных для создания и обслуживания совокупности взаимосвязанных данных о конкретной информации сущности II. Реляционная база данных представляет собой: 1. множество взаимосвязанных двумерных баз данных - реляционных данных, в каждой из которых содержатся сведения об одной сущности. 2. множество взаимосвязанных двумерных таблиц - реляционных таблиц, в каждой из которых содержатся сведения об одной сущности. 3. множество взаимосвязанных двумерных таблиц - реляционных таблиц, в каждой из которых содержатся программы об одной сущности. 4. множество взаимосвязанных двумерных таблиц - реляционных таблиц, в каждой из которых содержатся системные файлы об одних сущностях. III. отчет осуществляет: 1. вывод данных из программы в виде выходного печатного документа. 2. вывод данных из таблиц в виде выходного печатного документа. 3. вывод данных из базы в виде выходного печатного файла. 4. вывод данных из Access в виде выходной печатной программы. IV. Создание таблицы БД состоит из следующих этапов этапов: 1. количество полей, наименование, упорядоченность, тип информации, ключевые записи 2. структура полей, имя ключа, тип базы данных, размер таблицы 3. модель таблицы, имя записи, имя ключа, размер данных, последавательность данных в таблице 4. состав полей, имена, последовательность размещения в таблице, тип данных, размер, ключевые поля V. форма это: 1. графическое представление базы данных в компьютере для ввода и печати 2. графическое изображение информации базы данных 3. вид представления данных из таблицы базы данных в графическом виде для ввода 4. вид представления данных из таблицы базы данных в графическом виде для ввода VI. при конструировании формы указывается: 1. база данных, имена полей форм, типы графических полей, схема 2. имя формы, имя таблицы, стандартная структура базы данных 3. включаемые поля данных, включаемые схемы, структура формы 4. таблица, поля, графические элементы VII. За это: 1. Автоматизация таблиц базы данных 2. Автоматизация обработки данных 3. Автоматизация записей в базе данных 4. Автоматизация и конструировние данных из таблиц VIII. Базой данных называется: 1. организованная на машинном носителе совокупность взаимосвязанных данных, содержащих сведения о различных сущностях одной предметной области 2. организованные машинные носители совокупности взаимосвязанных данных, содержащих сведения об одинаковых сущностях одной предметной области 3. организованная структура данных, содержащих сведения о различных предметах конкретной области 4. организованная на компьютере совокупность взаимосвязанных таблиц , содержащих сведения о различных понятиях одной предметной области IX. Имеются следующие этапы построения базы данных: 1. Построение модели предметной области. Определение структуры за базы данных.Конструирование форм и отчетов базы данных в Access.Создание структуры схемы данных.Ввод данных в таблицы. 2. Построение модели данных предметной области .Определение структуры реляционной базы данных.Конструирование таблиц базы данных в Access.Создание схемы данных.Ввод данных в таблицы. 3. построение предметной области. Определение структуры реляционной таблицы данных.Конструирование форм данных в Access.Создание структуры данных.Ввод данных в формы. 4. построение идеи данных предметной области. Определение типов реляционной базы данных.Конструирование базы данных в Access.Создание данных.Ввод данных в таблицы.
Составим программу вычисления суммы ряда чисел 5, 10, 15, …, 50 на языке программирования Pascal ABC. Введем обозначения следующих величин: пусть s – сумма чисел ряда, которую надо найти, а i – порядковый номер чисел ряда. Начальное значение суммы s будет равным нулю. Так как чисел несколько, то будем использовать в программе оператор цикла с параметром for. По условию задачи числа суммируются, начиная с числа 5, с интервалом 4 числа, поэтому значение i в каждом цикле будем увеличивать на 4.
Программа может выглядеть так:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do begin
s:=s+i; {Вычисление суммы чисел}
i:=i+4; {Увеличение значения параметра i на 4}
end;
writeln ('s=',s) {Вывод результата суммы s}
end.
Можно решить данную задачу и вторым используя операцию mod:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do
if i mod 5=0 {Поиск чисел, кратных 5}
then s:=s+i; {Вычисление суммы чисел}
writeln ('s=',s); {Вывод результата суммы s}
end.
ответом будет s=275.
Составить программу нахождения значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40.
program zadacha;
uses crt;
var x,y,i:integer;
begin
for i:=50 downto 40 do begin y:=5*i+i*2; writeln ('y=',y); end;
writeln ('y=',y)
end.
Объяснение: