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

Скласти алгоритми (блок-схеми) 1)b =2a/3 ,2)y =x/2-x,3)a=b+1/3- c+2/b​

Показать ответ
Ответ:
Zakhar13371
Zakhar13371
11.08.2022 19:32
Function GetWord(s:string; var ptr:integer):string;
var
  i:integer;
begin
  i:=PosEx(' ',s,ptr);
  if i>0 then
    Result:=Copy(s,ptr,i-ptr)
  else
    Result:=Copy(s,ptr,length(s)-ptr+1);
  ptr:=i+1
end;

var
  f,g:Text;
  ib:integer;
  s,Fam,Im,Ot:string;
begin
  Assign(f,'Input.txt');
  Reset(f);
  Assign(g,'Result.txt');
  Rewrite(g);
  while not Eof(f) do begin
    readln(f,s);
    writeln(s); // отладочная выдача
    ib:=1;
    Fam:=GetWord(s,ib);
    Im:=GetWord(s,ib);
    Ot:=GetWord(s,ib);
    writeln(g,Im,' ',Ot,' ',Fam); // закомментарить строку для б)  
    writeln(Im,' ',Ot,' ',Fam);   // отладочная выдача
    writeln(g,Fam,' ',Im[1],'.',Ot[1],'.'); // закомментарить строку для а)
    writeln(Fam,' ',Im[1],'.',Ot[1],'.'); // отладочная выдача
  end;
  Close(f);
  Close(g)
end.

Тестовый прогон:

Иванов Петр Сергеевич
Петр Сергеевич Иванов
Иванов П.С.
Тарасова Анна Георгиевна
Анна Георгиевна Тарасова
Тарасова А.Г.
Коваленко Евгений Станиславович
Евгений Станиславович Коваленко
Коваленко Е.С.
Петрова Татьяна Вячеславовна
Татьяна Вячеславовна Петрова
Петрова Т.В.
Бородкин Тимофей Савельевич
Тимофей Савельевич Бородкин
Бородкин Т.С.
Пышка Варвара Семеновна
Варвара Семеновна Пышка
Пышка В.С.
Голобородько Ирина Олеговна
Ирина Олеговна Голобородько
Голобородько И.О.
0,0(0 оценок)
Ответ:
Рост2006
Рост2006
09.11.2021 08:18
INPUT "Kolichestvo okrugov. K="; k
INPUT "Kolichestvo partiy. M="; m
INPUT "Porog yavki izbirateley (v %). P="; p
DIM g(k, m + 1)
DIM pr(k, 1)
FOR i = 1 TO k
    CLS
    PRINT "Okrug  "; i
    g(i, 0) = i
    FOR j = 1 TO m
        PRINT "Golosov za partiyou "; j;
        INPUT g(i, j)
        pr(i, 1) = pr(i, 1) + g(i, j)
    NEXT j
    INPUT "Ne golosovalo "; g(i, m + 1)
    pr(i, 0) = i
    pr(i, 1) = 100 * pr(i, 1) / (pr(i, 1) + g(i, m + 1))
NEXT i
CLS
FOR i = 1 TO k
    FOR j = 1 TO k
        IF pr(i, 1) > pr(j, 1) THEN
            x = pr(i, 1)
            y = pr(i, 0)
            pr(i, 1) = pr(j, 1)
            pr(i, 0) = pr(j, 0)
            pr(j, 1) = x
            pr(j, 0) = y
        END IF
    NEXT j
NEXT i
PRINT "Itogi po golosovavshim"
PRINT "Okrug #", "Golosovalo (%)", "Pobedila partia #"
FOR i = 1 TO k
    PRINT pr(i, 0), pr(i, 1),
    IF pr(i, 1) >= p THEN
        PRINT "Yes. Sostojlis",
        max = 0
        FOR j = 1 TO m
            IF g(pr(i, 0), j) > max THEN
                max = g(pr(i, 0), j)
                x = j
            END IF
        NEXT j
        PRINT x
    ELSE PRINT "No. Ne sostojlis"
    END IF
NEXT i
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота