1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

помогите!

Тема в разделе "Помощь по программированию", создана пользователем drew, 3 ноя 2013.

  1. TopicStarter Overlay
    drew

    drew

    Регистрация:
    4 июн 2012
    Сообщения:
    185
    Симпатии:
    125
    в общем такая тема.нужно решить задачку на паскале,с ним особо не дружу.накидал кое-что.взгляните кто хоть немного понимает)
    заранее благодарен)

    **Скрытый текст: Для просмотра скрытого текста Вы должны авторизоваться.**

    Пожалуйста Зарегистрируйтесь или Войдите для того чтоб увидеть текст сообщения!


    Темы посвященные помощи по программированию создаем в соответствующем разделе!
     
    Метки:
  2. TraidenT

    TraidenT

    Регистрация:
    13 янв 2013
    Сообщения:
    200
    Симпатии:
    100
    на делфи не катит?(только паскаль)
     
  3. TopicStarter Overlay
    drew

    drew

    Регистрация:
    4 июн 2012
    Сообщения:
    185
    Симпатии:
    125
    только паскаль)гребанный универ))
     
    • Like Like x 1
  4. TraidenT

    TraidenT

    Регистрация:
    13 янв 2013
    Сообщения:
    200
    Симпатии:
    100
    В лс напиши само задание без, кода (попробую... Но паскаль не очень люблю...)
     
  5. Walentinka

    Walentinka

    Регистрация:
    29 янв 2013
    Сообщения:
    96
    Симпатии:
    47
    Писал на Delphi 7, сообразишь, что все что выше type можно выбросить.
    Небольшой совет...
    Соблюдай визуальное оформление кода, в чистом паскале нет подчеркивание циклов и другого, а значит потеряться будет очень легко.
    Успешного изучения языка...
    ;)

    Код:
    program Project2;
     
    {$APPTYPE CONSOLE}
     
    uses
      SysUtils;
     
    type
    Tcharcount=array[' '..'z'] of byte;
     
    var
     count:TcharCount;
     ch:char;
     max:byte;
     name:string;
    begin
    for ch:=' ' to 'z' do count[ch]:=0;
    writeln('Chtoby ostanovit tsikl vvedite A');
    while ch<>'A'do
     begin
      read(ch);
      count[ch]:=count[ch]+1;
     end;
    max:=0;
    for ch:=' ' to 'z' do
     begin
      if (count[ch]>max) and not (ch in ['A' ..'z']) and not (ch in['0' .. '9'])
      then
       begin
         max:=count[ch];
         name:=ch;
       end;
     end;
    Writeln;
    writeln('Simvol ', name, ' vstrechayetsya ', max, ' raz');
    readln;
    readln;
    end.
     
    • Like Like x 1
  6. TopicStarter Overlay
    drew

    drew

    Регистрация:
    4 июн 2012
    Сообщения:
    185
    Симпатии:
    125
    спасибо огромное))отработаю как нибудь)))
     

Поделиться этой страницей

Загрузка...