Украина, Харьков
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Хохлова Светлана Львовна
учитель информатики
56 лет
345
123 804 
Местоположение
Специализация
Практическое задание на тему "Циклы в Делфи"
Категория:
Информатика
01.01.2015 15:30
Практическое задание для работы в ООП Лазарус на языке программирования Делфи (тот же Паскаль, но усовершенстован).
Задание разработано на украинском языке. Подразумевается, что ученики знают, как запускается програмная среда и как оформляется сама форма с кнопками, текстами и метками.
Дополнительное задание для тех, кто хочет высокую оценку: создать программу для вычисления любого числа в любой степени:
Текста программы пока нет в файле, если нужно, то пишите, я добавлю.
Просмотр содержимого документа
«Практическое задание на тему "Циклы в Делфи"»
Практична робота на використання циклу в Делфи
procedure TForm1.Button1Click(Sender: TObject);
Var a,i,S:integer;
begin
a:=StrToInt(Edit1.text);
S:= 1;
For i:=1 To 5 Do
Begin
S:=S*a;
edit6.text:=IntToStr(S);
End;
end;
Розробити програму, яка будь яке число підносить в будь яку степінь
Практична робота на використання циклу в Делфи
procedure TForm1.Button1Click(Sender: TObject);
Var a,i,S:integer;
begin
a:=StrToInt(Edit1.text);
S:= 1;
For i:=1 To 5 Do
Begin
S:=S*a;
Edit2.text:=IntToStr(S);
End;
end;
Розробити програму, яка будь яке число підносить в будь яку степінь
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
