end;
readln
end.
Результат
1 4 9 16 25 36 49 64 81 100
Пример:
Найти сумму 1 + 1/3 + 1/5 +...(N слагаемых).
Решение
Program pr2;
Var I, N: integer;
S: real;
begin
Write('N='); Readln(N); {вводим количество слагаемых}
S:=0; {обнуляем сумму}
{выполняем цикл N раз, добавляя к сумме по одному слагаемому}
For I:=1 to N do
S:=S+1/(2*I-1);
Writeln('S=',S:5:2); {выводим результат с двумя десятичными знаками}
Readln
end.
Результат:
N=4
S= 1.68
Пример:
Дано натуральное число n. Найти сумму S=1+2/3+3/7... (n слагаемых)
Решение
Program pr3;
var i, b,n:integer;
s:real;
begin
write('Введите n ');
readln(n); {вводим количество слагаемых}
s:=1; {первоначальное значение суммы}
b:=3; {первоначальное значение знаменателя}
for i:=2 to n do
begin
s:=s+ i/b; { добавляем к сумме по очередное слагаемое}
b:=b+4; { вычисляем следующий знаменатель}
end;
writeln('сумма=',s:4:2); {выводим результат с двумя десятичными знаками}
readln;
end.
Результат:
Введите n 5
сумма=2.79
Пример:
Дано натуральное число n. Вычислить 31+32+…...+3n
Решение:
program pr4;
var i, n:integer;
s:real;
begin
write('введите n ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+ exp(i*ln(3));
writeln('сумма=',s:4:0);
readln;
end.
Результат:
введите n 5
сумма= 363
Пример:
Найти сумму ряда: S = x - x2 /4 + x3/9 - x4/16... (n слагаемых).
Решение:
Program Pr5;
Var i, n, z: integer;
p, s: real;
begin
writeln ('введите n'); readln ( n );
writeln('введите x'); readln( x );
z:=1; p:=x; s:=0;
for i:=1 to n do begin
s:= s + z*p/sqr(i); p:=p*x; z:=-z
end;
writeln ('S=', S :6:2);
readln
end.
Пример:
Вычислить произведение:
(1 + sin2 )*(2 + sin3 )*... (n сомножителей).
Найти сумму ряда: S = x - x2 /4 + x3/9 - x4/16... (n слагаемых).
Решение:
Рrogram Pr6;
Var n, i: integer;
p: real;
begin
write('n='); readln(n); p:=1;
for i:=1 to n do
p:=p* (i + sin(i+1));
writeln('p=', p:6:3);
readln
end.
Результат:
n=5
p=131.645
Пример:
Задана арифметическая прогрессия -21; - 16;… Определить номер первого положительного члена прогрессии.
a – очередной член прогрессии, n – его порядковый номер
Решение:
Program Pr7;
var
a, n: integer;
begin
a:= -21; n:=1; {задаем начальные значения}
while a<=0 do begin {пока очередной член прогрессии меньше либо ра
a:=a+5; n:=n+1; равен 0, вычисляем следующий член прогрессии и end; и его порядковый номер}
writeln(‘n=’, n); {выводим номер 1-го положительного члена
прогрессии}
readln;
end.
Результат:
n=6
Пример:
Протабулировать функцию y:=sin(x)*x интервале [-π/2,π/2] с шагом π/10.
Решение:
Program pr8;
Var x, y: real;
begin
x:=-pi/2;
while x<=pi/2 do
begin
y:=sin(x)*x;
writeln('x=',x:8:2,' y=',y:8:2);
x:=x+pi/10
end;
end.
Пример:
Вычислить сумму:
S =cos(1+x)+cos2(1+x)+cos3(1+x)+...+cosn(1+x) (n слагаемых).
Решение:
Рrogram Pr9;
Var n, i: integer;
s, x,t: real;
begin
write(' n='); readln(n);
write(' x='); readln(x);
s:=0; t:=cos(1+x);
for i:=1 to n do begin
s:=s+t;
t:=t*cos(1+x);
end;
writeln('s=', s:4:2)
end.
Пример:
Подсчитать количество двузначных чисел, у которых сумма цифр нечетна.
Решение:
Program Pr10;
Var n, a, b, k: integer;
begin
k:=0; for n:=10 to 99 do begin
a:= n div 10; b:=n mod 10;
if (a+b) mod 2=1 then k:=k+1;
end;
writeln('k=',k)
end.
Введение в визуальное программирование
Основные понятия. Технология работы в среде Delphi базируется на идеях объектно-ориентированного и визуального программирования. Идея объектно-ориентированного программирования состоит в объединении данных и средств их обработки (методов) в тип, который называется классом. Конкретной переменной определенного класса и есть объект. Примерами объектов служат элементы управления в окне: кнопки, списки, текстовые поля и др. Среда визуального программирования Delphi – это графическая автоматизированная оболочка над объектно-ориентированной версией языка Паскаль (Object Pascal). Если в языке Паскаль структурные единицы – это данные и команды, то здесь такой структурной единицей является визуальный объект, который называется компонентом. Автоматизация программирования достигается благодаря возможности переносить компонент на форму (в программу) из палитры компонентов и изменять его свойства, не внося вручную изменений в программный код.
Формой называют компонент, который владеет свойствами окна Windows и предназначен для расположения на нем других компонентов. Компоненты на форме могут быть видимыми и невидимыми. Первые служат для организации диалога с пользователем. Это различные кнопки, списки, изображения и т. д. Они отображаются на экране во время выполнения программы. Невидимые компоненты предназначены, в частности, для доступа к системным ресурсам компьютера.
Проект – это совокупность файлов, из которых складывается Delphi-программа.
Инструменты среды Delphi. Основными инструментами являются:
- главное меню; панель инструментов; палитра компонентов (Component Palette); инспектор объектов (Object Inspector); окно формы; редактор кода (Code Editor).
Эти инструменты становятся доступными после запуска программы Delphi: три находятся в главном окне (верхняя часть экрана, рис. 1), а остальные в отдельных окнах.
Рис. 1
Главное меню и панель инструментов. Главное меню состоит из таких элементов (рис. 1):
- File - содержит стандартные команды для работы с файлами проекта. С помощью этих команд можно создать новый проект (New Application), новую форму или модуль (New Form, New Unit), открыть или закрыть файл проекта (Open, Close), закрыть все открытые файлы (Close All), сохранить файл, проект или все сразу (Save, Save As, Save Project As, Save All). С помощью команды Edit можно выравнивать компоненты относительно сетки и между собой (Align to Grid, Align), задавать порядок отображения компонентов, которые перекрываются (Bring to Front, Send to Back), изменять размер избранного компонента (Size), масштабировать визуальные компоненты (Scale) и т. п. Меню Search содержит стандартные команды поиска и замены фрагмента текста (Find, Replace, Search Again, Incremental Search) и прочие. В меню View находятся команды визуализации элементов среды. Меню Project содержит команды компиляции (Compile, Build All) и проверки синтаксиса программы (Syntax Check). Меню Run содержит команды отладки и запуска программы. Меню Component используют для создания и инсталяции новых компонентов. Меню Database содержит команды вызова инструментов базы данных. В меню Tools находятся команды для настройки параметров среды.
Панель инструментов служит для дублирования команд меню с помощью кнопок.
Палитра компонентов. Палитра компонентов расположена в главном окне и имеет вид многостраничного блокнота. Каждая страница имеет свой набор компонентов (рис. 1). Чтобы поместить компонент в центре формы, дважды щелкают на его пиктограмме. Если нужно разместить компонент где либо на форме, щелкают один раз на его пиктограмме и один раз в нужном месте формы. Для того, чтобы вставить один и тот же компонент несколько раз, нужно нажать клавишу Shift и щелкнуть на его пиктограмме – теперь можно щелкать в окне формы. Чтобы отказаться от этого режима, надо нажать кнопку палитры компонентов с изображением стрелки. Выбранный компонент можно перемещать на форме, а также изменять его размеры, перетягивая маркеры.
Инспектор объектов (Паспорт). С помощью инспектора объектов можно задавать начальные значения свойств объекта и реакцию на стандартные события. Окно инспектора объектов содержит список компонентов текущей формы, а также две закладки: свойства (Properties) и события (Events). Чтобы активизировать окно инспектора объектов, нажимают клавишу F11. Рассмотрим это окно (рис. 2). Закладка свойств состоит из двух столбцов: левый содержит названия свойств компонентов, а правый – их значения. Свойства могут быть простыми или комплексными (составными). Комплексные свойства состоят из набора других свойств. Такие свойства в инспекторе объектов обозначены символом «+».
Закладка событий также имеет два столбца. В левом отображаются имена стандартных событий, на которые объект может реагировать, а в правом – имена методов (процедур), реализующих реакцию на событие. Каждому стандартному событию отвечает название метода, которое появляется после двойного щелчка мыши в правом столбце. В этот момент в окно текста программы добавляется шаблон кода (процедуры) для соответствующего метода. Шаблон необходимо заполнить соответствующими командами.
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 |
