Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 26.09.2015
Сообщений: 25
1

Переделайте эту программу через функцию

27.11.2015, 16:29. Просмотров 311. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
  letters = array ['A'..'Z'] of integer;
var
  a: letters;
  i, max: char;
begin
  randomize;
  for i := 'A' to 'Z' do
    a[i] := random(1001);
  for i := 'A' to 'Z' do
    writeln(i, ' - ', a[i]);
  max := 'A';
  for i := 'B' to 'Z' do
    if a[i] > a[max] then
      max := i;
  writeln(max, ' - most used letter (', a[max], ')');
  readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2015, 16:29
Ответы с готовыми решениями:

Переделайте эту программу через процедуру
type letters = array of integer; var a: letters; i: char; begin randomize; for...

Написать функцию Faktorial и программу, использующую эту функцию для вывода таблицы факториалов
Написать функцию Faktorial и программу, использующую эту функцию для вывода таблицы факториалов. ...

Сделать эту же программу, только через процедуру
program laba_14; uses crt; const m=20; var C:array of integer; max_num, max_index:byte; i:...

Сделайте эту программу через подпрограмму процедур
program pr1; type mn=set of 0..9; var a,b,s1,s2,s3,s4,s5: mn; f: text; i: integer; begin...

1
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
27.11.2015, 17:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
type
    TRange = 'A'..'Z';
    TArray = Array[TRange] Of Word;
function GetMaxId(const ar: TArray): Char;
var
    Result, i: Char;
begin
    Result := Low(TRange);
    for i := Succ(Low(TRange)) to High(TRange) do
        if (ar[i] > ar[Result])
        then
            Result := i;
    GetMaxId := Result;
end;
var
    c, i: Char;
    ar: TArray;
begin
    Randomize();
    for i := Low(TRange) to High(TRange) do
    begin
        ar[i] := Random(1001);
        WriteLn(i, ' - ', ar[i]);
    end;
    c := GetMaxId(ar);
    WriteLn; Write(c, ' - most used letter (', ar[c], ')');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2015, 17:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сделать эту же программу, только через процедуру
Сделать эту же программу, только через процедуру program Course; uses crt; var mar:...

как записать эту программу через функцию main и ее прототип?
можите помоч! как записать эту программу через функцию main и ее прототип? в конце вызвать эту...

Как переделать эту программу, чтобы она выполнялась через функцию?
#include "stdafx.h" #include <iostream> using namespace std; int main(int argc, char* argv)...

Как переделать эту программу, чтобы она выполнялась через функцию?
#include "stdafx.h" #include <iostream> using namespace std; int main() { int Array; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.