Практическая работа №10 "Программирование циклических вычислений"

Тема: Основы структурного программирования

урок №27

Тема. Урок повторения. Практическая работа №10 «Программирование циклических вычислений»

цель:

Формировать умения:

Работать в среде программирования;
Создавать проект и налаживать его,
Использовать циклы и операторы повторения;
Использовать операторы ветвления;
Редактировать код обработчиков событий;
Использовать среду программирования для создания проектов;
Создавать проект для собственного использования;
Четко и лаконично выражать мысли;
Делать выводы;

воспитывать:

Внимательность, дисциплинированность при работе на ПК.

повторить:

Ключевые понятия по темам «Разветвление» и «Повторение»
Подготовиться к зачету.

Тип урока: систематизация и обобщение знаний.

Структура урока:

Организационный этап

II. Проверка домашнего задания

III. Обобщение учебного материала

IV. Приминение знаний, умений и навыков

Подведение итогов урока
Домашнее задание

ход урока

I. Организационный ЭТАП

Приветствие. Подготовка класса к занятиям. Объявление темы, цели и задач урока.

Проверка домашнего задания

III. Обобщение учебного материала

Какие базовые структуры вы знаете?
В каких ситуациях используется разветвления?
Как можно организовать разветвление?
В каких ситуациях используется повторение?
Как можно организовать повторение?
Можно организовать цикл, не используя указания повторения?

IV. Приминение знаний, умений и навыков

Практическая работа №10

«Программирование циклических вычислений»

инструктивная карта

Скачать среду программирования.
Для задач№1-№3 создать проект под названием Project PR10.
Сохранить проект в собственной папке (папка под названием «Практическая работа №10»)
Задаче №1, №2, №3 выполнить, используя одну форму и 3 кнопки для их выполнения.
Добавить необходимые объекты на форму.
Изменить свойства формы.
Написать коды обработчика событий.
Запустить проект Project PR10.на исполнения и проверить его работоспособность.
Задачи №4, №5 выполнить в среде программирования Borland Pascal 7.0. и сохранить обе программы под названием PR10_4_5.PAS в папке «Практическая работа №10»)

Читать Практическая работа №17 – Программирование создания простейших движущихся изображений

Задача 1. Составить программу вычисления суммы 1!2!+3!+4!+ .. + n !,

используя команды цикла со счетчиком.

Задача 2.Составить программу вычисления положительных членов арифметической погресии с положительным первым членом и отрицательной разницей, используя команды цикла с предусловием.

Задача 3.Составить программу вычисления положительных членов арифметической прогрессии с положительным первым членом и отрицательной разницей, используя команды цикла с постусловием.

Добавить к программе вывод сообщение об ошибке.

Задача№4. Составьте программу на языке Паскаль, которая выводит на экран таблицу значений функции y = 2x 2.^{Переменная х меняется от 0 до 20 с шагом 1.}

Задача№5. Составьте программу на языке Паскаль, которая вычисляет

ТЕКСТ КОДА ПРОГРАММЫ для задачи №, №2, №3, которые выполняются в среде программирования Delphi:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Edit3: TEdit;

Edit4: TEdit;

Button2: TButton;

Edit5: TEdit;

Button3: TButton;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

 

Label1: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;



var

Form1: TForm1;



implementation



{$ R * .dfm}

procedure TForm1.Button1Click (Sender: TObject) {Команда цикла со счетчиком в Delphi}

var a, s, i, n: integer;



begin

s = 0; a: = 1;

n = SrtToInt (edit1.Text);

for i: = 1 to n do begin
<div style="clear:both; margin-top:0em; margin-bottom:1em;"><a href="http://mypascal.ru/paskal-prakticheskie-raboty/prakticheskaja-rabota-6-sozdanie-programm-s-odno-alternativnym-razvetvleniem/" target="_blank" rel="nofollow" class="IRPP_shock"><!-- INLINE RELATED POSTS 2/5 //--><style> .IRPP_shock , .IRPP_shock .postImageUrl , .IRPP_shock .centered-text-area { min-height: 80px; position: relative; } .IRPP_shock , .IRPP_shock:hover , .IRPP_shock:visited , .IRPP_shock:active { border:0!important; } .IRPP_shock .clearfix:after { content: ""; display: table; clear: both; } .IRPP_shock { display: block; transition: background-color 250ms; webkit-transition: background-color 250ms; width: 100%; opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #E67E22; } .IRPP_shock:active , .IRPP_shock:hover { opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #D35400; } .IRPP_shock .centered-text-area { width: 100%; position: relative; } .IRPP_shock .ctaText { border-bottom: 0 solid #fff; color: #ECF0F1; font-size: 16px; font-weight: bold; margin: 0; padding: 0; text-decoration: underline;float: left; } .IRPP_shock .postTitle { color: #2C3E50; font-size: 16px; font-weight: 600; margin: 0; padding: 0; width: 100%; } .IRPP_shock .ctaButton { background-color: #D35400!important; color: #ECF0F1; border: none; border-radius: 3px; box-shadow: none; font-size: 14px; font-weight: bold; line-height: 26px; moz-border-radius: 3px; text-align: center; text-decoration: none; text-shadow: none; width: 80px; min-height: 80px; background: url(http://mypascal.ru/wp-content/plugins/intelly-related-posts-pro/assets/images/simple-arrow.png)no-repeat; position: absolute; left: 0; top: 0; } .IRPP_shock:hover .ctaButton { background-color: #E67E22!important; } .IRPP_shock .centered-text { display: table; height: 80px; padding-right: 18px; top: 0;width: 100%; } .IRPP_shock .IRPP_shock-content { display: table-cell;margin: 0;padding: 0;padding-left: 108px;position: relative;vertical-align: middle;width: 100%;padding-right: 18px; } .IRPP_shock:after { content: ""; display: block; clear: both; } </style><div class="centered-text-area"><div class="centered-text"><div class="IRPP_shock-content"><span class="ctaText">Читать</span>  <span class="postTitle">Практическая работа №6 – Создание программ с одно- альтернативным разветвлением</span></div></div></div><div class="ctaButton"></div></a></div>
a = a * i;

s = a + s;

end;

Edit2.Text: = IntToStr (s)

end;



procedure TForm1.Button2Click (Sender: TObject) {Команда цикла с предусловием в Delphi}

var a, d, s: integer;

begin

a = SrtToInt (edit3.Text))

d = SrtToInt (edit4.Text))

s: = 0;

while a> 0 do begin

s = s + a;

a = a + d; end;

Edit5.Text: = IntToStr (s) end;





procedure TForm1.Button3Click (Sender: TObject) {Команда цикла с постусловием в Delphi}



var a, d, s: integer;



begin

a = SrtToInt (edit6.Text))

d = SrtToInt (edit7.Text))

s: = 0;

repeat

s = s + a;

a = a + d;

until a <= 0;

Edit8.Text: = IntToStr (s)

end;



end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Edit3: TEdit;

Edit4: TEdit;

Button2: TButton;

Edit5: TEdit;

Button3: TButton;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$ R * .dfm}

procedure TForm1.Button1Click (Sender: TObject) {Команда цикла со счетчиком в Delphi}

var a, s, i, n: integer;

begin

s = ; a: = 1;

n = SrtToInt (edit1.Text);

for i: = 1 to n do begin

a = a * i;

s = a + s;

end;

Edit2.Text: = IntToStr (s)

end;

procedure TForm1.Button2Click (Sender: TObject) {Команда цикла с предусловием в Delphi}

var a, d, s: integer;

begin

a = SrtToInt (edit3.Text))

d = SrtToInt (edit4.Text))

s: = ;

while a> do begin

s = s + a;

a = a + d; end;

Edit5.Text: = IntToStr (s) end;

procedure TForm1.Button3Click (Sender: TObject) {Команда цикла с постусловием в Delphi}

var a, d, s: integer;

begin

a = SrtToInt (edit6.Text))

d = SrtToInt (edit7.Text))

s: = ;

repeat

s = s + a;

a = a + d;

until a <= ;

Edit8.Text: = IntToStr (s)

end;

end.

Читать Практическая работа №8 Тема: Использование циклов

Var x, y: integer;

Begin

X = 0;

Writeln ( 'x y');

While x <= 20 do begin

Y = 2 * sqr (x)

Writeln (x, '', y)

X = x + 1; end; end.

Var x, y: integer;

Begin

X = ;

Writeln ( 'x y');

While x <= 20 do begin

Y = 2 * sqr (x)

Writeln (x, '', y)

X = x + 1; end; end.

Задача№5. Составьте программу на языке Паскаль, которая вычисляет

Var x: integer; s: real;

Begin

s: = 0;

for x = 5 to 20 do begin

s = s + (x + 1 / x) end;

Writeln ( 'Suma =', s: 5: 2)

end.

Var x: integer; s: real;

Begin

s: = ;

for x = 5 to 20 do begin

s = s + (x + 1 / x) end;

Writeln ( 'Suma =', s: 5: 2)

end.

Подведение итогов урока

Учитель оценивает работу учащихся на уроке.

VI. Домашнее задачи

Разработать конспект урока и соответствующий раздел учебника.
2. Подготовиться к зачету.

[Всего голосов: 3 Средний: 5/5]

« Практическая работа №22 – Создание простейшей базы данных

Turbo Pascal Лекция 1 – Основные понятия языка Паскаль, Типы данных »