Разрезанный кирпич (20 баллов)

Как обычно, про пирожки (10 баллов)

У вас есть R рублей и К копеек. А пирожок стоит А рублей и В копеек. Разработайте программу, которая получает от пользователя значения R, K, A и В и определяет, на сколько пирожков хватит ваших денег.

РЕШЕНИЕ:

TextWindow.Write("R =")

R=TextWindow.ReadNumber()

TextWindow.Write("K =")

K=TextWindow.ReadNumber()

TextWindow.Write("A =")

A=TextWindow.ReadNumber()

TextWindow.Write("B =")

B=TextWindow.ReadNumber()

D=100*R+K

P=100*A+B

Q=Math.Floor(D/P)

TextWindow.WriteLine(Q)

Начало и конец (20 баллов)

Разработайте программу, которая выводит на экран все трёхзначные числа, у которых первая цифра А, а последняя цифра В. Не забудьте проверить корректность введённых данных!

РЕШЕНИЕ 1:

TextWindow.Write("A=")

A=TextWindow.ReadNumber()

TextWindow.Write("B=")

B=TextWindow.ReadNumber()

IfA<=0OrB<0OrA>9OrB>9Then

TextWindow.WriteLine("Данные некорректны.")

Else

Fork=0To9

TextWindow.Write(A)

TextWindow.Write(k)

TextWindow.WriteLine(B)

EndFor

EndIf

РЕШЕНИЕ 2:

TextWindow.Write("A=")

A=TextWindow.ReadNumber()

TextWindow.Write("B=")

B=TextWindow.ReadNumber()

IfA<=0OrB<0OrA>9OrB>9Then

TextWindow.WriteLine("Данные некорректны.")

Else

Fork=0To9

TextWindow.WriteLine(A*100+k*10+B)

EndFor

EndIf

Три микроба (15 баллов)

В лаборатории учёные решили провести соревнования по бегу между микробами. Но соорудить для микробов беговые дорожки сложно, а заставить микробов бежать именно по ним – вообще нереально. Поэтому каждый микроб бежал куда хотел и сколько хотел, а учёные фиксировали время его забега и расстояние, которое он пробежал. Соревнования проводились по олимпийской системе: соревновались пары микробов, проигравший выбывал.
Вам нужно сделать программу, определяющую победителя в паре микробов – того, у кого скорость выше. При одинаковых скоростях программа должна сообщить, что победитель не определён. Входные данные – имя каждого из микробов, расстояние (в микронах) которое он преодолел, время (в минутах), которое он на это потратил. Выходные данные – имя микроба-победителя или сообщение о неопределимости победителя.

РЕШЕНИЕ:

TextWindow.Write("1 microb's name =")

N1=TextWindow.Read()

TextWindow.Write("1 microb's time =")

T1=TextWindow.ReadNumber()

TextWindow.Write("1 microb's way =")

W1=TextWindow.ReadNumber()

V1=W1/T1

TextWindow.Write("2 microb's name =")

N2=TextWindow.Read()

TextWindow.Write("2 microb's time =")

T2=TextWindow.ReadNumber()

TextWindow.Write("2 microb's way =")

W2=TextWindow.ReadNumber()

V2=W2/T2

IfV1>V2Then

TextWindow.WriteLine(N1+" win!")

ElseIfV2>V1then

TextWindow.WriteLine(N2+" win!")

Else

TextWindow.WriteLine("Repeat please!")

EndIf

4. Перспектива (25 баллов)

Разработайте программу, которая выводит такую вот картинку. Размеры графического окна 200 на 200, линий в рисунке 40. Очень не советуем строить это изображение без цикла;)

РЕШЕНИЕ:

GraphicsWindow.

GraphicsWindow.Height=200

Fork=0To40

GraphicsWindow.DrawLine(100,0,k*5,200)

EndFor

Разрезанный кирпич (20 баллов)

- Вжжжжжррррххххщщщщ… бряк!
Это пилят кирпич. На маленькие кубики со стороной 1 см. Кирпич красивый: сам он из жёлтой глины, а поверхность кирпича красная, блестящая. Размеры кирпича – целые числа: длина А, ширина В, высота С, все они больше 1.
Разработайте программу, определяющую, сколько после распила кирпича получится кубиков без красных граней, с одной красной гранью, двумя и тремя.

РЕШЕНИЕ:

TextWindow.Write("A =")

A=TextWindow.ReadNumber()

TextWindow.Write("B =")

B=TextWindow.ReadNumber()

TextWindow.Write("C =")

C=TextWindow.ReadNumber()

k3=8

k2=4*(A+B+C-6)

k1=2*((A-2)*(B-2)+(A-2)*(C-2)+(B-2)*(C-2))

k0=A*B*C-k3-k2-k1

TextWindow.WriteLine("3: "+k3)

TextWindow.WriteLine("2: "+k2)

TextWindow.WriteLine("1: "+k1)

TextWindow.WriteLine("0: "+k0)

6. Фудзияма (30 баллов)

Что должна делать программа – ясно из картинки. Программа должна корректно работать при любых значениях высоты от 1 до 40.

РЕШЕНИЕ:

TextWindow.Write("H =")

H=TextWindow.ReadNumber()

ForK=1ToH

Forj=1ToH-K

TextWindow.Write(" ")

EndFor

Fori=1Tok*2-1

TextWindow.Write("#")

EndFor

TextWindow.WriteLine("")

EndFor