Приветствуем вас на форуме проекта WoW Circle. Если вы читаете это, значит не зарегистрировались у нас. Для того, чтобы получить доступ к расширенным возможностям нашего форума нажмите сюда и пройди регистрацию, которая не займет у вас много времени. После регистрации будут доступны новые, более расширенные, возможности.
Пасаны выручайте,еще одна задачка!
  1. В данный момент ведется 4 онлайн трансляции от наших игроков, посмотреть их можно тут.

Упомянутые в теме пользователи:

Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 12 из 13
  1. #1
    Заблокирован Аватар для Mysteryqt
    Регистрация
    30.04.2012
    Сообщений
    53
    Поблагодарил(а)
    17
    Получено благодарностей: 36 (сообщений: 32).
    Репутация: 3

    Пасаны выручайте,еще одна задачка!

    http://ucheba.pro/download/file.php?...a4327a583b7ab7
    Вообще ломаю голову,не могу решить

    ---------- Добавлено в 21:45 ---------- Предыдущее сообщение было размещено в 21:41 ----------

    Ластбосис памаги плз я знаю ты умеешь решать такую задачу

  2. #2
    Заблокирован
    Регистрация
    07.01.2012
    Адрес
    Дуротар
    Сообщений
    76
    Поблагодарил(а)
    106
    Получено благодарностей: 51 (сообщений: 39).
    Репутация: 24
    Цитата Сообщение от Mysteryqt Посмотреть сообщение
    Вообще ломаю голову,не могу решить
    Ты че внатури не можешь решить эту фигню? Зайди microsoft office acsces шо та такое сам поймешь.

    File>New>таблица>конструктор
    Заполни таблицы дальше объясню

  3. #3
    Заблокирован Аватар для Mysteryqt
    Регистрация
    30.04.2012
    Сообщений
    53
    Поблагодарил(а)
    17
    Получено благодарностей: 36 (сообщений: 32).
    Репутация: 3
    Это не эксэль,это в паскале нужно сделать. Помоги плз

  4. #4
    Заблокирован
    Регистрация
    07.01.2012
    Адрес
    Дуротар
    Сообщений
    76
    Поблагодарил(а)
    106
    Получено благодарностей: 51 (сообщений: 39).
    Репутация: 24
    1 строка всегда формат "счетчик"
    потом абитуриенты
    ФИО
    Баллы

    хз ты скоре тролиш! если бы не тролил я бы тебе правильно написал, а так там и балван поймет даже

  5. #5
    Заблокирован
    Регистрация
    07.01.2012
    Адрес
    Дуротар
    Сообщений
    76
    Поблагодарил(а)
    106
    Получено благодарностей: 51 (сообщений: 39).
    Репутация: 24
    я опять лоханулся значит. если надо через паскаль. моя репутация среди крутых пацанов опять упала

  6. #6
    Заблокирован Аватар для Mysteryqt
    Регистрация
    30.04.2012
    Сообщений
    53
    Поблагодарил(а)
    17
    Получено благодарностей: 36 (сообщений: 32).
    Репутация: 3
    Смотри изи решение:

    Скрытый текст

    {-- coding by Sabit Murzaliyev --}
    program olimp;
    const
    max = 100;
    type
    TParticipant = record
    LastName : string[20];
    FirstName: string[15];
    Class: 7..11;
    Bal: integer;
    end;
    var
    n, i, j, err, max_bal, winner: integer;
    s: string;
    Participants: array [1..max] of TParticipant;
    Temp: TParticipant;
    c, param: byte;
    bOk: boolean;
    begin
    write('Input participant count: ');
    readln(n);
    writeln('Enter data of participants');
    writeln('Format: Lastname Firstname class bal');
    writeln;
    for i:= 1 to n do
    begin
    repeat
    bOk:= true;
    param:= 0;
    write(i,': ');
    readln(s);
    if length(s) < 6 then
    bOk:= false
    else
    for j:= 2 to length(s) do
    if (s[j] = ' ') and (s[j-1] <> ' ') then
    inc(param);
    if (param <> 3) then bOk:= false;
    if s[length(s)] = ' ' then bOk:= false;
    c:= pos(' ', s);
    Temp.LastName:= copy(s, 1, c-1);
    s:= copy(s, c+1, length(s)-c);
    c:= pos(' ', s);
    Temp.Firstname:= copy(s, 1, c-1);
    s:= copy(s, c+1, length(s)-c);
    c:= pos(' ', s);
    val(copy(s, 1, c-1), Temp.Class, err);
    s:= copy(s, c+1, length(s)-c);
    val(s, Temp.Bal, err);
    if bOk then
    begin
    writeln('ok');
    Participants:= Temp;
    end
    else writeln('error');
    until bOk;
    end;
    max_bal:= Participants[1].Bal;
    winner:= 1;
    for i:= 2 to n do
    if (Participants.Bal >= max_bal) and (Participants.Bal <= 200) then
    begin
    if Participants.Bal = max_bal then inc(winner);
    max_bal:= Participants.Bal;
    end;
    if winner = 1 then
    begin
    writeln('Winner');
    for i:= 1 to n do
    if Participants.Bal = max_bal then
    writeln(Participants.Lastname +' '+ Participants.Firstname);
    end
    else
    writeln('winners count: ', winner);
    readln;
    end.
    [свернуть]

  7. #7
    Заблокирован
    Регистрация
    07.01.2012
    Адрес
    Дуротар
    Сообщений
    76
    Поблагодарил(а)
    106
    Получено благодарностей: 51 (сообщений: 39).
    Репутация: 24
    хз! по условиям не похоже. я короче пошел смотерть шерлок холмс 2. если там будет решение я тебе напишу

  8. #8
    Заблокирован Аватар для Mysteryqt
    Регистрация
    30.04.2012
    Сообщений
    53
    Поблагодарил(а)
    17
    Получено благодарностей: 36 (сообщений: 32).
    Репутация: 3
    Ластбосис а вы чо щас проходите в школе?

  9. #9
    Заблокирован
    Регистрация
    07.01.2012
    Адрес
    Дуротар
    Сообщений
    76
    Поблагодарил(а)
    106
    Получено благодарностей: 51 (сообщений: 39).
    Репутация: 24
    я не хожу в школу. но когда я был в школе! на паинте учили. Я и так умел поэтому 5 получал всегда

  10. #10
    Заблокирован Аватар для Mysteryqt
    Регистрация
    30.04.2012
    Сообщений
    53
    Поблагодарил(а)
    17
    Получено благодарностей: 36 (сообщений: 32).
    Репутация: 3
    Ну нихрена,ок что вы проходите по информатике?

    ---------- Добавлено в 22:00 ---------- Предыдущее сообщение было размещено в 21:59 ----------

    Ты в паинте рисовал варлоков и поэтому получал питерки?

  11. #11
    Заблокирован
    Регистрация
    07.01.2012
    Адрес
    Дуротар
    Сообщений
    76
    Поблагодарил(а)
    106
    Получено благодарностей: 51 (сообщений: 39).
    Репутация: 24
    в паинте я рисовал плохо. Просто учитель был африканец, а я тоже не русский он мне делал поблажки!

    Все я пошел фильм смотреть

  12. #12
    Заблокирован Аватар для shompgrom
    Регистрация
    26.03.2012
    Сообщений
    7
    Поблагодарил(а)
    20
    Получено благодарностей: 17 (сообщений: 9).
    Репутация: 20
    2 имбицыла гастарбайтера решают примерчики


    [18:20:30] [2] [Folow]: 3х этажным грузинским матом крыть!

Страница 1 из 2 12 ПоследняяПоследняя

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •