Смотри
1) Нужно сделать функцию генерации случайных чисел от 1 до N
Например
def gen(n):
return random(1,n)
2) Сделать массив из строк ARRAY, который будет хранить картинки(ссылки на них)
3) При нажатии на кнопку, запускалась функция которая удаляет текущую картинку и ставит новую
def select_new():
now_img = ARRAY[gen(lenght(ARRAY))]
И все! Осталось только это переписать на паскаль или на чем вы пишите.
Думаю особого труда вам это не составит!)
Каждый человек желает знать где берут мозоль
Program kBt;
uses crt;
var
kBte,kBt1,sum:real;
begin
clrscr;
writeln('vvedite lo-vo KBt: ');
read(kBte);
writeLn('vvedite cenu za 1 KBt: ');
read(kBt1);
sum:=kBte*kBt1;
writeln('Neobhodimo oplaltit ',sum);
readln;
end.
Дополнил класс Geometry двумя методами PolygonS() для подсчета площади прямоугольника и квадрата. Метод S() для подсчета площади круга превратился в CircleS(), дабы было понятнее. В методе Par() теперь код не дублируется и используется из CircleS().
Var a,b,x:integer;
begin
writeln('введите число x:');
readln(x);
writeln('введите интервал от a до b:');
readln(a,b);
if (x>=a) and (x<=b) then writeln('x принадлежит данному интервалу') else
writeln('x не принадлежит данному интервалу');
readln;
end.