Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Вниз

помогите составить программу в Delphi6   Найти похожие ветки 

 
kate_1   (2007-04-08 13:46) [0]

Как при помощи инструкции while составить программу, которая бы вычисляла, сколько раз данная цифра встречается в целом числе?


 
sinus ©   (2007-04-08 13:50) [1]

скачай парочку учебников по Паскалю...там это алгоритм уже за тебя написали, за одно и что-то еще к будующим лабораторным найдешь


 
Anatoly Podgoretsky ©   (2007-04-08 13:59) [2]

Одной инструкцией while тут не обойтись


 
PZ   (2007-04-08 14:14) [3]

Как один из вариантов решения:

procedure TForm1.Button1Click(Sender: TObject);
Var
 R, I, N : Integer;
 S : String;
 C : Char;
begin
 R := Random(100000000000);
 S := IntToStr(R);
 I := 1;
 N := 0;    // Количество вхождений
 C := "5";  // Контролируемая цифра
 While I <= Length(S) do
   begin
     If C = S[I] then Inc(N);
     Inc(I);
   end;

 Label1.Caption := S+"   "+IntToStr(N); // Посмотреть результат
end;


 
default ©   (2007-04-08 14:23) [4]


var
 digitCount: Array[0..9] of Integer;
 N: Integer;
begin
...
N := 2342; // для примера

if N = 0 then Inc(digitCount[0]);
while N <> 0 do begin
 Inc(digitCount[N mod 10]);
 N := N div 10;
end;


 
kate_1   (2007-04-09 17:24) [5]

Ребята, спасибо вам большое, что откликнулись. Завтра лаба, в программировании я полный ноль, так что вы очень помогли. Еще раз ОГРОМНОЕ вам СПАСИБО за то, что помогаете, таким "чайникам", как я!!!



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
15-1175512484
Kot Andrei
2007-04-02 15:14
2007.04.29
MSDN offline


2-1175957800
Lamer666
2007-04-07 18:56
2007.04.29
поиск DBGridEH field name "not found


2-1175788232
likenoother
2007-04-05 19:50
2007.04.29
опять несколько вопросов :)


15-1175448523
den303
2007-04-01 21:28
2007.04.29
Нужен файл из дистриба BDS 06


2-1176115221
Provodnick
2007-04-09 14:40
2007.04.29
Цвет текста заголовка TTabSheet в TPageControl





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский