Решить на pascalabc. 90 . имеются файлы. в поездке за город на электричке с рюкзаком есть особая скромная романтика. напишите программу с использованием цикла repeat until («пока шпалы не кончатся»), которая рисует участок железной дороги по этому образцу. координатные оси, метки на них и подписи рисовать не нужно, используйте их для определения координат и размеров объектов. формат входных данных целое число от 10 до 50 — длина участка рельсов под колёсами, измеряемая в шпалах. формат выходных данных окно с изображением, аналогичным образцу (без осей). p.s вам требуется вводить число до 50, например 47, и 47 рельсов должно нарисоваться на рисунке. используйте команду uses graphabc.

Цикл выполнится 4 раза

a = 5     b = 16     s = 21

Объяснение:

a = 1     b = 1

Действия в цикле

a = a + 1

b = b * 2

Цикл заканчивается когда b > 8

s = a + b

a = 1     b = 1

a = a + 1 = 1 + 1 = 2

b = b * 2 = 1 * 2 = 2

b > 8 (2 > 8 - нет, цикл продолжается)

a = a + 1 = 2 + 1 = 3

b = b * 2 = 2 * 2 = 4

b > 8 (4 > 8 - нет, цикл продолжается)

a = a + 1 = 3 + 1 = 4

b = b * 2 = 4 * 2 = 8

b > 8 (8 > 8 - нет, цикл продолжается)

a = a + 1 = 4 + 1 = 5

b = b * 2 = 8 * 2 = 16

b > 8 (16 > 8 - да, цикл заканчивается)

s = a + b = 5 + 16 = 21

a = 5     b = 16     s = 21

Программа:

program z1;

var a,b,s:integer;

begin

a:=1 ;

b:=1 ;

repeat

a:=a+1 ;

b:=b*2 ;

until b>8 ;

s:=a+b;

writeln (s)

end.

В основу разработки практически любого графического пользовательского ин­терфейса (GUI — Graphical User Interface) положены три метафоры: «рабочий стол», «работаешь с тем, что видишь», «видишь, что получил». Метафора «рабочий стол», в частности, означает следующее. Для человека, сидящего за рабочим столом, доступны как определенные источ­ники информации, так и средства обработки этой информации. При этом на рабо­чем столе могут находиться документы, представленные в различной форме: текст, таблицы, графики, рисунки и т.д., относящиеся либо к различным задачам, либо к разным аспектам одной и той же задачи.