0 / 0 / 0
Регистрация: 23.06.2013
Сообщений: 18
1

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

23.06.2013, 21:07. Показов 796. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
28
29
n = 15;
    atext: array[1..10] of char = ('0','1','2','3','4','5','6','7','8','9');
    acode: array[1..11] of char = ('&','+','/','.','^','@','"','!','%','#','$');
var
    mytext: array[1..n] of char;
    mycode: array[1..n] of char;
    i, j: integer;
 
begin
    writeln('Введите данные: ');
    for i := 1 to n do
        read(mytext[i]);
 
    for i := 1 to n do begin
        j := 1;
        while (j <= 10) and (mytext[i] <> atext[j]) do
            j := j + 1;
        if j <= 10 then
            mycode[i] := acode[j]
        else
            mycode[i] := acode[11];
    end;
 
    write('Результат: ');
    for i := 1 to n do
        write(mycode[i]);
 
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2013, 21:07
Ответы с готовыми решениями:

Как подправить макрос, чтобы результат выводился не на странице этого файла, а новым файлом?
У меня проблема. Есть файл эксель с макросом, который выдает результат на странице этого же файла....

Изменить код, чтобы в начале программы выводился запрос для ввода размера стека
Нужно изменить пример так, чтобы в начале работы программы выводился запрос для ввода размера...

Как изменить код чтобы выводился номер дня с начала года?
Насколько я поняла, 24-29 определяет количество дней от текущей даты до введённой. Как можно...

Изменить код программы так чтобы работа происходила с консолью а не с файлом
Помогите изменить код программы так чтобы работа происходила с консолью а не с файлом. USES Crt;...

1
370 / 351 / 193
Регистрация: 31.03.2013
Сообщений: 2,586
23.06.2013, 23:10 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
28
29
30
31
32
33
34
35
36
37
const
n = 15;
    atext: array[1..10] of char = ('0','1','2','3','4','5','6','7','8','9');
    acode: array[1..11] of char = ('&','+','/','.','^','@','"','!','%','#','$');
var
    mytext: array[1..n] of char;
    mycode: array[1..n] of char;
    i, j: integer;
    f: text;
 
begin
    assign(f, 'f.txt');
    rewrite(f);
    writeln('Введите данные: ');
    for i := 1 to n do
        read(mytext[i]);
 
    for i := 1 to n do begin
        j := 1;
        while (j <= 10) and (mytext[i] <> atext[j]) do
            j := j + 1;
        if j <= 10 then
            mycode[i] := acode[j]
        else
            mycode[i] := acode[11];
    end;
 
    write('Результат: ');
    for i := 1 to n do
      begin
        write(f,mycode[i]);
        write(mycode[i]);
      end;
 
close(f);
readln;
end.
1
23.06.2013, 23:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2013, 23:10
Помогаю со студенческими работами здесь

Изменить код, чтобы год рождения тоже выводился в упорядоченный массив
uses crt; type tzap = record {Описание типа для одной записи списка} Fio:...

Изменить запрос, чтобы еще выводился код абонемента, для которого указана максимальная цена
Помогите пожалуйста!!!!SELECT Абонементы.Код_зала, Max(Абонементы.Цена) AS МАХ,...

Как сделать так чтобы результат выводился в градусах ?
Нужно что бы результат выводился в градусах, а то он выводит числа типо 0.0000034 и т д Если надо...

Как сделать чтобы в калькуляторе результат выводился и на мемо?c++ builder, help me
хочу чтобы калькулятор при написании цифр выводился результат на мемо, чтобы при нажатии кнопки...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru