(VISUAL BASIC 6.0 or 2008 or 2010) Здравствуйте к каждому задания прикрепите код,или лучше скрины,чтобы было понятней тому кто сделает а то отчислят(
1. Создать программный проект, который будет выводить на экранную форму текст и графику.
2. Создать программный проект, который при нажатии кнопки будет выводить на экранную форму текст и графику, а при нажатии другой кнопки очищает форму.
3. Создать программный проект, который при нажатии кнопки будет выводить на экранную форму квадрат.
4. Создать программный проект, который будет выводить на экранную форму цветную пирамиду из двух рядов.
5. Создать программный проект, на котором задана цветная пирамида из двух рядов, а при нажатии кнопки меняется её положение.
6. Создать программный проект, на котором задана цветная пирамида из двух рядов, а при нажатии кнопки она исчезает.
7. Создать программный проект, на котором задана цветная пирамида из двух рядов одного цвета, а при нажатии кнопки цвет её элементов меняется.
8. Создать программный проект, на котором задана геометрическая фигура “Квадрат”, при нажатии кнопки меняется её цвет и выводится сообщение.
9. Создать программный проект, на котором задана геометрическая фигура “Квадрат”, исчезает при нажатии кнопки и выводится сообщение.
10. Создать программный проект, на котором задана горизонтальная полоса из четырёх квадратов, при нажатии кнопки будет появляться вертикальная полоса.
11. Создать программный проект, на котором задана картинка, при нажатии кнопки выводится сообщение для пользователя, появляется заголовок к картинке.
12. Создать программный проект, на котором задана картинка, при нажатии кнопки выводится сообщение для пользователя, а картинка исчезает.
13. Создать программный проект, на котором задана геометрическая фигура и надпись к ней, при нажатии кнопки меняется надпись, цвет фигуры и выводится сообщение для пользователя.
14. Создайте проект, показывающий по нажатию одной командной кнопки животное с надписью (например, “Это – лев”), а по нажатию другой командной кнопки – другое животное с надписью. (Вместо животного может быть другая картинка)
15. Создайте проект, показывающий по нажатию одной командной кнопки один дорожный знак с надписью , а по нажатию другой командной кнопки – другой дорожный знак с надписью. (Картинки с дорожными знаками можно создать с программы Paint).
Не совсем верно, но очень близко.
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,k:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]=a[i] then k:=k+1;
if k=1 then write('В массиве только 2 одинаковых элемента')
else write('В массиве не 2 одинаковых элемента');
readln
end.
Объяснение: