Гусеница Гусеница ползет по резиновой нити длиной l см со скоростью см/мин, стремясь достичь противоположного конца нити. По истечении каждой минуты нить.

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



Advertisements
Похожие презентации
АЛГОРИТМ ЕВКЛИДА (нахождение наибольшего общего делителя (НОД) двух натуральных чисел)
Advertisements

Алгоритмические структуры 1.Линейный 2.Ветвление 3.Цикл.
Программирование на языке Паскаль. Часть II К. Поляков, Поиск в массиве 1 Задача – найти в массиве элемент, равный X, или установить, что его.
K-периодичный массив. В данной задаче речь пойдет только о массивах, все элементы которых равны 1 и/или 2. Массив a называется k-периодичным, если его.
Перед работой внимательно прочитай инструкцию! 1. Тест состоит из 4-х вопросов. 2. Внимательно прочитай вопрос. 3. В нижнем левом углу выбери ручку, фломастер.
Практическое занятие 5 Циклы с условием. 2 Цикл с неизвестным числом шагов Пример: Отпилить полено от бревна. Сколько раз надо сделать движения пилой?
PASCAL Условный оператор.. Этот оператор используется для выполнения одного из двух возможных вариантов программы. Условный оператор если логическое_условие.
Цикл – это команда исполнителю многократно повторить указанную последовательность действий.
1 Программирование на языке Паскаль 1. Циклы с параметром.
1. Какие числа относятся к типу Integer Real 2. Исправь ошибки в программе Program 2 pr; Var b,s: real; Begin Writeln (Введите числа b и с) Readln( b,c);
АЛГОРИТМ ВЕТВЛЕНИЯ ОПЕРАТОР ВЕТВЛЕНИЯ. Какая задача решается по этой программе? Program Z1: Var a,b,c: integer; Begin Write ( vv a,b:); Read (a,b); C:=(a+b)*(b-a);
1 Программирование на языке Паскаль Ветвления. 2 Разветвляющиеся алгоритмы Задача. Ввести два целых числа и вывести на экран наибольшее из них. Идея решения:
CASE – ОПЕРАТОР ВЫБОРА. РАССМОТРИМ СЛЕДУЮЩУЮ ЗАДАЧУ : Х, ЕСЛИ Х = 3 У = Х+1, ЕСЛИ Х=0 Х 2 + Х –2, ЕСЛИ Х = -2 Х 3, ЕСЛИ Х = -8.
Задача: определить является ли простым заданное число.
Написать программу – модель аналога пожарного датчика в помещении, которая выводит сообщение «Пожарная ситуация», если температура (её значение вводится.
Программирование на языке Паскаль Тема 2. Ветвления.
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) ;
Использование частных случаев в условиях. Флаг в задачах Задача. Определить место первого четного элемента в массиве.
Основы языка Pascal Тема. Оператор ветвления. Алгоритм Алгоритм – это четко определенный план действий для исполнителя.
ЦИКЛЫ С УСЛОВИЕМ 1 Программирование на языке Паскаль.
Транксрипт:

Гусеница Гусеница ползет по резиновой нити длиной l см со скоростью см/мин, стремясь достичь противоположного конца нити. По истечении каждой минуты нить растягивается на k см. Составить программу определения времени, за которое гусеница достигнет конца нити. Если время в пути превышает допустимых значений, то вывести на экран сообщение «Маршрут не закончен».

Входные данные На вход программа получает числа l, и k. Все числа являются положительными и не превосходят 100. Выходные данные Программа должна вывести одно целое положительное число, равное количеству минут

Входные данные результат «Маршрут не закончен» «Маршрут не закончен»

Решение 1 Program gus1; var l1,l,k,v:integer; t:integer; begin read(l,v,k); t:=0; l1:=l; while l1>0 do begin l1:=l1-v+k; if(l<=l1)then break; inc(t); end; if t<>0 then writeln(t) else writeln('маршрут не закончен'); end.

Решение 2 program gus2; var l,k,v:integer; t:integer; begin read(l,v,k); if v-k<=0 then writeln('маршрут не закончен') else begin while l>0 do begin l:=l-v+k; inc(t); end; writeln(t); end; end.

Решение 3 program gus3; var l,k,v:integer; begin read(l,v,k); if v-k<=0 then writeln('маршрут не закончен') else writeln(round(l/(v-k))); end.