Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 13.04.2011, 22:11   #1 (permalink)
Анастасия9
Новичок
 
Регистрация: 13.04.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите пожалуйста составить программку в паскале

увеличить каждый третий элемент массива , размерностью 12, в 2 раза.
Миниатюры
aacuiyiiue.jpg  
Анастасия9 вне форума   Ответить с цитированием

Старый 13.04.2011, 22:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Решение вашего вопроса может скрываться в похожих темах

Пожалуйста, помогите написать программку. Pascal Free
Помогите пожалуйста составить программу
Помогите составить программу на Паскале
Помогите составить программу на борланд паскале
Помогите, пожалуйста, исправить программку на Паскале
Помогите написать программку на Паскале

Старый 13.04.2011, 22:15   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Анастасия9 Посмотреть сообщение
увеличить каждый третий элемент массива , размерностью 12, в 2 раза.
Настя, выложите листинг по-простому, на рисунке очень мелко, ничего не разобрать толком.
Vladimir_S вне форума   Ответить с цитированием
Старый 14.04.2011, 09:53   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Настя, выложите листинг по-простому, на рисунке очень мелко, ничего не разобрать толком.
М-да... Не знаю, что и думать... То ли уважаемая Анастасия9 сочла мою просьбу выложить листинг программы в удобочитаемом виде наглой и оскорбительной, то ли... даже не знаю, что и думать. Во всяком случае, ушла, хлопнув дверью. Ну что же, если моя просьба была воспринята ТАК, то приношу извинения. И, похоже, придется работать с программой без послаблений.
Вот что удалось разобрать:

program 24;
var i,n:integer;
a:array[1..12] of integer;
begin
randomize;
write ('n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
if i/3mod=0 then a[i]:=a[i]*2;
writeln;
writeln(a[i]);
readln;
end.

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

Код:
program 24;
var 
 i,n:integer;
 a:array[1..100] of integer;
begin
 randomize;
 write('n= ');
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i]:4);
  end;
 writeln;
 writeln;
 for i:=1 to n do
  begin
   if (i mod 3)=0 then a[i]:=a[i]*2;
   write(a[i]:4);
  end;
 writeln;
 readln;
end.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:19.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.