Схема алгоритма

@oshilan · Регистрация: 03.10.2009

Author24 — интернет-сервис помощи студентам

Составьте пожалуйста схему алгоритма программы с таким исходным кодом:

Код

program lab1;
    const
        n=80;
        k=100;
    var
        a  : array[1..n] of integer;
        s,i: integer;
begin
    randomize;
    for i:=1 to n do
        begin
            a[i]:=random(k);
            write(a[i]:3);
            if i mod 10 = 0 then writeln;
        end;
    s:=0;
    for i:=1 to n do
    s:=s+a[i];
    writeln;
    writeln('S= ',s);
    readln;
end.

Зараннее спасибо!

@hohol · 10.10.2009, 17:34

Посмотри ЗДЕСЬ, выберешь что тебе больше подойдет, и сам доработаешь, в принципе все понятно...

Добавлено через 1 минуту
И от спасибо не откажусь.

@oshilan · 10.10.2009, 17:56 **[ТС]**

2 hohol: Не переходит на тот линк..
Я создал свою схему во вложении. Верна ли она?

@hohol · 10.10.2009, 18:36

У тебя второй цикл не от туда выходит, он не может в обознычении начинатся

Добавлено через 4 минуты
Вот твоя схема с правильным циклом, только типы фигур расставишь как в твоем примере, а то здесь чисто прямоугольники, ну ты, я надеюсь, разберешься...

@oshilan · 10.10.2009, 18:38 **[ТС]**

У меня ошибку выдаёт при переходе на ссылку, которую ты мне дал.

@hohol · 10.10.2009, 18:39

на первую или вторую?

@oshilan · 10.10.2009, 18:40 **[ТС]**

О, точно, протупил, спасибо!

@hohol · 10.10.2009, 18:40

все нормально?

@oshilan · 10.10.2009, 18:42 **[ТС]**

На обе!

Добавлено через 1 минуту
В решении всё нормально, разобрался, а если ты за линк (ссылку) имел ввиду, то всё равно н заходит.

@hohol · 10.10.2009, 18:48

Проверь сейчас вторую

Добавлено через 29 секунд
если снова не получится напиши....

@oshilan · 10.10.2009, 18:52 **[ТС]**

Да, всё прекрасно заходит. Схема сродна с моей, просто у меня минимизирована, т.к. препод захотел.. Спасибо ещё раз за помощь!

Добавлено через 49 секунд
+ ;-)

@oshilan · 10.10.2009, 21:00 **[ТС]**

А кто может изменить исходный текст, чтобы вместо цифр в массиве появлялись символы, а сумма вычислялась по значению символа в символьной таблице?

@Давид · 10.10.2009, 21:03

oshilan, Воспользуйтесь таблицой ASCII-кода....она есть на любом сайти программирования...воспользуйтесь поиском!

@oshilan · 10.10.2009, 21:05 **[ТС]**

Она у меня есть, мне просто нужно изменить элементы на char, но чёто не клеется компиляция..

@Давид · 10.10.2009, 21:08

oshilan, Какие именно элементы вы хотите изменить?

@oshilan · 10.10.2009, 21:18 **[ТС]**

Кто может закоментировать это:

Код

Program lab2;
       const
            n=255;
       type
            tx=array[0..n] of integer;
       var
            m   :tx;
            a   :char;
            i,s :integer;
begin
       for i:=0 to n do
            begin
                 m[i]:=i;
                 write(chr(i),' ');
            end;
       s:= 1;
       for i:= ord(s) to n do
       s:= s+m[i];
       writeln;
       writeln('S= ',s);
       readln;
end.

(как можно по-подробней)

Добавлено через 9 минут
2 Давид: Ну все. Исходный текст в шапке.

@Давид · 10.10.2009, 21:21

Так вот...

Pascal

Program lab2;
       const
            n=255; {описываем константу  в количество элементов массива}
       type
            tx=array[0..n] of integer; {описываем тип массива от 0 до 255 символов}
       var
            m   :tx; {Пресваиваем переменной m значение массива}
            a   :char;
            i,s :integer;
begin
       for i:=0 to n do {цикл от 0 до 255}
            begin
                 m[i]:=i; {массиву присваивается i-ый элемент}
                 write(chr(i),' ');{Который затем выводиться в виде символа} 
            end;
       s:= 1;
       for i:= ord(s) to n do {Цикл от номера переменной S до 255}
       s:= s+m[i]; {Накапление в s символов массива}
       writeln;
       writeln('S= ',s); {вывод на экран массива в виде символов asc кода}
       readln;
end.

А для чего вам символьная переменная а?....ведь она даже в программе не используется!

@oshilan · 10.10.2009, 21:35 **[ТС]**

Спасибо! +

Добавлено через 1 минуту
А вот не знаю (текст не мой). Можете ли вы с нуля написать текст где создаётся массив из 80-ти элементов (символов) и подсчитать их сумму. + обеспечен

Добавлено через 9 минут
Ага, реально. +

@Давид · 10.10.2009, 21:44

Все просто....третью строку переправьте на

Pascal

1 2	const n=80;

И еще

Pascal

1	s:= s+m[i]; {Накапливается сумма-S елементов массива}

@oshilan · 10.10.2009, 21:58 **[ТС]**

Я это понял, но чёто при запуске программы издаётся писк и массив некрасивый какой-то (разрыв строки иль что-то такое).

Добавлено через 7 минут
Яху! Я понял. Нужно просто маску chr применить при выводе на экран:

Код

write(chr(a[i]):3);

Ещё раз спасибо за внимание!

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 18:52 [ТС]	11
	Да, всё прекрасно заходит. Схема сродна с моей, просто у меня минимизирована, т.к. препод захотел.. Спасибо ещё раз за помощь! Добавлено через 49 секунд + ;-) 0

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 21:00 [ТС]	12
	А кто может изменить исходный текст, чтобы вместо цифр в массиве появлялись символы, а сумма вычислялась по значению символа в символьной таблице? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	10.10.2009, 21:03	13
	oshilan, Воспользуйтесь таблицой ASCII-кода....она есть на любом сайти программирования...воспользуйтесь поиском! 1

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 21:05 [ТС]	14
	Она у меня есть, мне просто нужно изменить элементы на char, но чёто не клеется компиляция.. 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	10.10.2009, 21:08	15
	oshilan, Какие именно элементы вы хотите изменить? 1

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
		1
	Схема алгоритма 10.10.2009, 16:52. Показов 2017. Ответов 20 Метки нет (Все метки) Составьте пожалуйста схему алгоритма программы с таким исходным кодом: Код program lab1; const n=80; k=100; var a : array[1..n] of integer; s,i: integer; begin randomize; for i:=1 to n do begin a[i]:=random(k); write(a[i]:3); if i mod 10 = 0 then writeln; end; s:=0; for i:=1 to n do s:=s+a[i]; writeln; writeln('S= ',s); readln; end. Зараннее спасибо! 0

@hohol 7 / 7 / 0 Регистрация: 03.10.2009 Сообщений: 46
	10.10.2009, 17:34	2
	Посмотри ЗДЕСЬ, выберешь что тебе больше подойдет, и сам доработаешь, в принципе все понятно... Добавлено через 1 минуту И от спасибо не откажусь. 1

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 17:56 [ТС]	3
	2 hohol: Не переходит на тот линк.. Я создал свою схему во вложении. Верна ли она? Миниатюры 0

@hohol 7 / 7 / 0 Регистрация: 03.10.2009 Сообщений: 46
	10.10.2009, 18:36	4
	У тебя второй цикл не от туда выходит, он не может в обознычении начинатся Добавлено через 4 минуты Вот твоя схема с правильным циклом, только типы фигур расставишь как в твоем примере, а то здесь чисто прямоугольники, ну ты, я надеюсь, разберешься... 1

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 18:38 [ТС]	5
	У меня ошибку выдаёт при переходе на ссылку, которую ты мне дал. 0

@hohol 7 / 7 / 0 Регистрация: 03.10.2009 Сообщений: 46
	10.10.2009, 18:39	6
	на первую или вторую? 1

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 18:40 [ТС]	7
	О, точно, протупил, спасибо! 0

@hohol 7 / 7 / 0 Регистрация: 03.10.2009 Сообщений: 46
	10.10.2009, 18:40	8
	все нормально? 1

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 18:42 [ТС]	9
	На обе! Добавлено через 1 минуту В решении всё нормально, разобрался, а если ты за линк (ссылку) имел ввиду, то всё равно н заходит. 0

@hohol 7 / 7 / 0 Регистрация: 03.10.2009 Сообщений: 46
	10.10.2009, 18:48	10
	Проверь сейчас вторую Добавлено через 29 секунд если снова не получится напиши.... 1

	10.10.2009, 21:58

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 21:18 [ТС]	16
	Кто может закоментировать это: Код Program lab2; const n=255; type tx=array[0..n] of integer; var m :tx; a :char; i,s :integer; begin for i:=0 to n do begin m[i]:=i; write(chr(i),' '); end; s:= 1; for i:= ord(s) to n do s:= s+m[i]; writeln; writeln('S= ',s); readln; end. (как можно по-подробней) Добавлено через 9 минут 2 Давид: Ну все. Исходный текст в шапке. 0

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 21:35 [ТС]	18
	Спасибо! + Добавлено через 1 минуту А вот не знаю (текст не мой). Можете ли вы с нуля написать текст где создаётся массив из 80-ти элементов (символов) и подсчитать их сумму. + обеспечен Добавлено через 9 минут Ага, реально. + 0

@oshilan 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 56
	10.10.2009, 21:58 [ТС]	20
	Я это понял, но чёто при запуске программы издаётся писк и массив некрасивый какой-то (разрыв строки иль что-то такое). Добавлено через 7 минут Яху! Я понял. Нужно просто маску chr применить при выводе на экран: Код write(chr(a[i]):3); Ещё раз спасибо за внимание! 0