(VISUAL BASIC 6.0 or 2008 or 2010) Здравствуйте к каждому задания прикрепите код,или лучше скрины,чтобы было понятней тому кто сделает а то отчислят(
1. Создать программный проект, который будет выводить на экранную форму текст и графику.
2. Создать программный проект, который при нажатии кнопки будет выводить на экранную форму текст и графику, а при нажатии другой кнопки очищает форму.
3. Создать программный проект, который при нажатии кнопки будет выводить на экранную форму квадрат.
4. Создать программный проект, который будет выводить на экранную форму цветную пирамиду из двух рядов.
5. Создать программный проект, на котором задана цветная пирамида из двух рядов, а при нажатии кнопки меняется её положение.
6. Создать программный проект, на котором задана цветная пирамида из двух рядов, а при нажатии кнопки она исчезает.
7. Создать программный проект, на котором задана цветная пирамида из двух рядов одного цвета, а при нажатии кнопки цвет её элементов меняется.
8. Создать программный проект, на котором задана геометрическая фигура “Квадрат”, при нажатии кнопки меняется её цвет и выводится сообщение.
9. Создать программный проект, на котором задана геометрическая фигура “Квадрат”, исчезает при нажатии кнопки и выводится сообщение.
10. Создать программный проект, на котором задана горизонтальная полоса из четырёх квадратов, при нажатии кнопки будет появляться вертикальная полоса.
11. Создать программный проект, на котором задана картинка, при нажатии кнопки выводится сообщение для пользователя, появляется заголовок к картинке.
12. Создать программный проект, на котором задана картинка, при нажатии кнопки выводится сообщение для пользователя, а картинка исчезает.
13. Создать программный проект, на котором задана геометрическая фигура и надпись к ней, при нажатии кнопки меняется надпись, цвет фигуры и выводится сообщение для пользователя.
14. Создайте проект, показывающий по нажатию одной командной кнопки животное с надписью (например, “Это – лев”), а по нажатию другой командной кнопки – другое животное с надписью. (Вместо животного может быть другая картинка)
15. Создайте проект, показывающий по нажатию одной командной кнопки один дорожный знак с надписью , а по нажатию другой командной кнопки – другой дорожный знак с надписью. (Картинки с дорожными знаками можно создать с программы Paint).

Показать ответ

Ответ:

Adilkin

31.01.2021 19:10

uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.

0,0(0 оценок)

Ответ:

nicsiberia

19.05.2020 06:15

Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.

0,0(0 оценок)

Популярные вопросы: Информатика