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

Робота в python/створіть програму у якій одна змінна набуває значення "файл" а інша "папка".метод який викликається з обох об'єктів виводить ці слова

работа в python / создайте программу в которой одна переменная принимает значение "файл" а другая "папка" .метод который вызывается из обоих объектов выводит эти слова

Показать ответ
Ответ:
fonvg
fonvg
16.04.2021 03:33

program Lyonyshna;
const
    Rus = ['А'..'Я', 'а'..'я'];
    Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
    i: integer;
    st,strus,stlat,stoth: string;
begin
    Assign(f, 'file1.txt');
    Rewrite(f);
    write('Введите исходную строку: '); readln(st);
    writeln(f,st);
    close(f);
    strus:='';
    stlat:='';
    stoth:='';
    Reset(f);
    Assign(frus, 'russian.txt');
    Rewrite(frus);
    Assign(flat, 'latin.txt');
    Rewrite(flat);
    Assign(foth, 'other.txt');
    Rewrite(foth);
    Readln(f,st);
    for i:=1 to length(st) do
      if st[i] in rus then strus:=strus+st[i]
        else
          if st[i] in lat then stlat:=stlat+st[i]
            else
              stoth:=stoth+st[i];
    Writeln(frus,strus);
    Writeln(flat,stlat);
    Writeln(foth,stoth);
    Writeln('Русские символы: ',strus);
    Writeln('Латинские символы: ',stlat);
    Writeln('Другие символы: ',stoth);
    Close(f); Close(frus); Close(flat);  Close(foth);
end.

0,0(0 оценок)
Ответ:
Алгебра111111111
Алгебра111111111
26.09.2021 20:47

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-бота