В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Игорь12463
Игорь12463
14.07.2020 13:24 •  Информатика

1. Вiдкрийте середовище IDLE. 2. Вiдкрийте вікно текстового редактора для введення тексту проекту.
3. Уведіть команди для створення вiкна po3MipoM 600 * 400 пікселів.
4. Створіть напис із текстом Це напис і значеннями властивостей за замовчу ванням та розмістіть його у вікні. Для цього введіть команди: label =Label(text=^ ` L e напис') label.pack()
5. Збережіть проект у вашій папці у файлі з іменем вправа 6.4.py.
6. Запустіть проект на виконання. Зверніть увагу на розміщення напису у вікні, на колір його фону, на текст у написi, на колір і розмiр символів.
7. Закрийте вікно виконання проекту.
8. Установіть такі значення властивостей напису: колір фону - зелений, колір символів - білий, вид шрифту - Arial, розмiр символів - 16, накреслення - підкреслений. Для цього допишіть у команду створення напису властивості та їх значення: label =Label(text=^ L напис', bg = ' en^ prime ,fg= ' vhite^ prime font='Arial 16 underline')
9. Збережіть змiнену версію проекту в тому самому місці під тим самим iменем.
10. Запустіть проект на виконання. Зверніть увагу на змінення вигляду напису.
11. Закрийте вікно виконання проекту.
12. Створіть процедуру з іменем click для змiнення значень властивостей на пису. Для цього введіть після першого рядка тексту проекту такі команди (текст після символу \#- це коментар, пояснення; його вводити не потрібно): def click (event): label ['text'] = Moe mpis Семененко . амгнення тексту в написа label['bg 1^ prime 1=^ prime y e 3 ! ( змiнення кольору фоку напису на жо label 11^ prime fg^ prime 1- 'blue' I мiнення кольору символів на синій
14. Збережіть змінену версію проекту.
15. Запустіть проект на виконання.
13. Пов'яжіть створену процедуру з написом, зазначивши як подію клацання лі вої кнопки миші. Для цього введіть після останнього рядка проекту команду: in d(^ prime <1>^ prime , click)
16. Наведіть вказівник на напис і клацніть ліву кнопку миші. Зверніть увагу на змінення вигляду напису.
17. Закрийте вікно виконання проекту.
18. Закрийте вікно текстового редактора та середовище

Показать ответ
Ответ:
art1610
art1610
04.03.2023 04:48
В начале мы создаем массив случайных элем.
Потом работаем с ним.
Нам нужны 2 переменные:
1 - переменная, для сохранения результата (номера).
2 - переменная флажок.
Мы обходим весь массив ПО СТОЛБЦАМ.
В начале обхода конкретного столбца переменной флажка присвоим 1.
Сравниваем текущий элемент столбца с последующим,
если они не равны то ставим флажок 0

Код:
//Размерность массива
const n = 3;
//Сам массив
var 
ar : array[1..n,1..n] of integer;
//Переменные для работы с массивом
var 
i,j : integer; 
//Переменные для поиска столбца
//f - переменная флажок, которая по окончанию обхода столбца будет
//показывать одинаковы ли элементы в нем
//numb - переменная, в которой сохраним номер столбца с
//одинаковыми значениями элементов.
var 
f,numb : integer;
begin
//Создание и вывод на экран массива
//Элементы генерируются случайным образом
//  
for i:=1 to n do 
begin   
for j:=1 to n do   
begin     
ar[i,j] := random(2);     
write(ar[i,j]:3);   
end;   
writeln;   
end;  
// 

//Вот сам алгоритм поиска
//
//Записываем в numb значение -1
//Если в процессе работы значение не изменится (-1)
//То означает, что в массиве нет одинаковых столбцов
  numb := -1; 

//Идем по массиву
//
for j:=1 to n do
//Момент начала конкретного j столбца  
  begin    
//записываем в f значение 1
  //Предполагаем, что столбец одинаков
  //Если в конце обхода конкретного столбца значение f=1
  //Значит, что данный столбец одинаков
  f := 1;    
 
//Идем по столбцу
// n-1
//(т.к сравниваем текущий со следующим)
for i:=1 to n-1 do   
begin  
//Сравниваем текущий элемент столбца, со следующим     
if (ar[i,j] <> ar[i+1,j]) then
    //Если они не равны, то изменяем значение флажка f на 0       
    f := 0;   
end; 
//Конец обхода конкретного столбца  
 
//Если столбец одинаков   
if (f = 1) then
    //то записываем его номер в numb     
    numb := j;  
end;  
//  

//Вывод результата 
if (numb <> -1) then   
writeln('Столбец №: ',numb) 
else   
writeln('Нет ни одного одинакового столбца');    
end.
0,0(0 оценок)
Ответ:
dschunchewa2013
dschunchewa2013
27.02.2022 14:26

Program Markovsp1;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
  writeln();
  s:=0;
  i:=1;
  repeat
    t:=1/((i)*(i));
    s:=s+t;
    //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
    i:=i+1;
  until abs(t)<eps;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

Program Markovsp2;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
  writeln();
  s:=0;
  i:=1;
  t:=1;
  while t>eps do
    begin
      t:=1/(i*i);
      s:=s+t;
      //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
      i:=i+1;
     end;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота