прмеры программ билла гейтса
равно= присвоить значение
программа робот
целое а , бэ ,цэ,дэ
начало
а=0,
бэ=0
цэ=0
дэ=0
ввод (координат через терминал )
вычисление (а, бэ,цэ,дэ )
работа (а, бэ,цэ )
конец
процедура вычисление (целый икс, целый игрек, целое икс2 , целое ирек 2)
целое а ,бэ, цэ , д , медиана1 , медиана 2 , целое расстояние 1,икс, игрек
начало
а=0
бэ=0
цэ=0
дэ=0
а=икс
бэ=игрек
цэ=икс1 ,
дэ игрек 1
медиана= (икс1 +икс2)разделить пополам
медиана2 (у1+у2 )разделить пополам
если икс1 =икс2 и у1=у2
то расстояние равно нулю
иначе
расстояние = корень кавдратный ((икс2- икс10 в квадрате , (игрек2-игрек1)в квадрате )
конец
вернуть (медиана 1 , медиана 2, расстояние )
процедура шаг влево по икс (целое икс игрек)
целое икс игрек
начало
икс =0
игрек =0
икс=икс -1/мкасинт
игрек= игрек
конец
вернуть (икс игрек )
процедра шаг влево по игрек (целое икс целое игрек )
целое икс, игрек
начало
икс=икс
игрек=игрек к-1/максинт
конец
вернуть (икс,игрек )
процедура шаг вправо по икс (икс, игрек)
целое икс
целое игрек
начало
икс=икс +1/максинт
игрек=игрек
конец
вернуть (икс игрек )
процедура шаг впрово по игрек(икс игрек )
целое икс,
целое игрек
начало
икс=икс
игрек =игрек+1/максинт
конец
вернуть (икс ирек )
процедура идти (целые икс игрек )
целые икс игрек
начало
икс=0
игрек=0
иск=икс
игре= игрек
шаг влево по икс (икс игрек)
шаг вправо на игрек (икс игрек )
шаг влево по икс (икс игрек )
шаг вправо по икс (икс игрек )
конец
вернуть (икс игрек )
процедура работа (целый икс, целый игрек , целое зэд )
целый а , целое бэ , елое зэд ,отерзок_с шагом, шаг
начало
а=0
бэ=0
зэд=0
отрезок с _шагом =0
шаг=0
вычисление (а,б, зэд )
если зэд =0 то
начало
резец поднимается
а=икс
б=игрек
идти (а б )
резец опускается
режем лучом
резец поднмается
отрезок_с шагом= отрезок с шагом+шаг
конец
иначе
пока
отрезок с _шагом не равно зэд
начало
шаг=1/максинт
пока зэдне не равно отрезок с шагом
пока икс не равен а
пока у не равен б
вычисление (а б зед )
работа (а, б, зэд )
конец
коенц
( сырая программа)
Отредактировано vivace (2014-03-29 16:41:46)