program Stepeny a; Uses Crt; var a,b,c : real; begin writeln ( Введите числа a и b ); readln ( a, b ); c := a; while c < b do begin writeln (c:8:2) ;

Презентация:



Advertisements
Похожие презентации
program Stepeny_a; Uses Crt; var a,b,c : real; begin writeln ( Введите числа a и b ); readln ( a, b ); c := a; while c < b do begin writeln (c:8:2) ;
Advertisements

Реализация программ с циклом с предусловием. Формат и действие оператора После слова WHILE выполняется проверка условия. При значении условия «истина»
Циклы на языке Pascal повторение. Циклы позволяют многократно выполнять одну или группу команд, причем в тексте программы нет необходимости записывать.
Линейные алгоритмы Тема урока:. Задача Составить блок-схему и написать программу на Паскале, меняющую значения переменных а и b местами. Данные вводятся.
Линейные вычислительные процессы (Текущий контроль) Презентация подготовлена учителем информатики МБОУ СОШ 32 г. Новочеркасска Шевченко Л.Б.
Тема: Цикл с параметром (цикл «Для») На естественном языке Для i от А до В повторять Тело цикла i,a,b- параметры цикла тело цикла – это команды, которые.
Цикл – это команда исполнителю многократно повторить указанную последовательность действий.
Циклы. Вычислить сумму ряда чисел Program sum; var a: integer; s: real; Begin a:=1; s:=0; while a<600 do begin a:=a+1; s:=s+1/a; end; writeln ( ' s=
Логические циклы
Задача: даны два числа, найти их наибольший общий делитель.
Логический цикл While. На этом уроке мы познакомимся c организацией логических циклических структур на языке Турбо-Паскаль.
Задача: даны два числа, найти их наибольший общий делитель.
ЦИКЛ «ДО» i:=1,n действия … FOR i:=1 TO n DO Begin Действия End; …
Алгоритмическая структура цикл Алгоритм циклической структуры - это алгоритм, в котором происходит многократное повторение одного и того же участка программы.
АЛГОРИТМИЧЕСКАЯ СТРУКТУРА ЦИКЛ АЛГОРИТМИЧЕСКАЯ СТРУКТУРА ЦИКЛ В TURBO PASCAL Условие Оператор ДаНет Учитель информатики: Коваленко Татьяна Викторовна
Операторы цикла с условием 9 класс Раздел: Основы алгоритмизации и программирование на языке Pascal.
Циклы в языке программирования Pascal
1 Тема: Арифметические операции и линейные программы.
ОПЕРАТОРЫ ПОВТОРА (ЦИКЛА). ЦИКЛ-одна из важнейших алгоритмических структур. ЦИКЛ представляет собой последовательность операторов, которая выполняется.
Алгоритм Евклида. Наибольший общий делитель Требуется составить программу определения наибольшего общего делителя ( НОД ) двух натуральных чисел. НОД.
Транксрипт:

program Stepeny_a; Uses Crt; var a,b,c : real; begin writeln ( Введите числа a и b ); readln ( a, b ); c := a; while c < b do begin writeln (c:8:2) ; c := c*a; end; readln; end. Даны числа a, b (a > 1). Получить все члены бесконечной последовательности a, a 2, a 3, … a n пока a n <b При выполнении этой программы переменная с последовательно принимает значение a, a 2, a 3 …. Изменение с происходит до тех пор, пока оно не станет больше b. Если а>b, то не будет выводить ни одного значения.

Он основан на следующих свойствах величин: пусть a и b-одновременно 0, и пусть a b. Если b=0, то НОД(a,b) = a, Если b 0, то для чисел a,b,c, где c- остаток от деления a на b (c=a mod b) выполнено равенство: НОД(a,b)=НОД(b,c), Например: НОД(15,6)=НОД(6,3)=НОД(3,0)=3. - Это алгоритм вычисления наибольшего общего делителя (НОД) двух целых положительных чисел.

Начало Задать a, b B>0 C:= a MOD b A:= b B:= c Конец НОД = a Program Evklid; Uses crt; Var a,b,c: integer; begin Clrscr; Writeln (Enter a, b. (a>b)); readln( a, b); While b>0 do begin c:= a MOD b; a:= b; b:= c; end; Writeln (NOD(a,b)=,a); Readln; end.