Ангарский Форум

 FAQначало   ПоискПоиск  ПользователиПользователи  medals.php?sid=12d7b4f40f535efc03e7016a078f16f6Награды   Подписанные темыПодписанные темы    Любимые темыЛюбимые темы   StatisticsСтатистика  ВходВход
  РегистрацияРегистрация  ПрофильПрофиль  ГруппыГруппы  ПрофильПриглашения  РепутацияРепутация  AttachmentsФайлы  ФотоальбомФотоальбом  Войти и проверить личные сообщенияВойти и проверить личные сообщения
ДневникиДневники    Мой ДневникНовое в блогах


 Требуется помощь в решении задач на Pascal
 
Начать новую тему   Ответить на тему    Список форумов Ангарский Форум -> Персональные компьютеры
<  >  
Автор Сообщение
Strimmer
Прохожий
цитировать




Возраст: 29

Награды: Нет
Зарегистрирован: 19.09.2009
Сообщения: 37
Вся репутация : 0
Репутация: +0/-0

    



СообщениеДобавлено: 20 Окт 2009 20:09    Заголовок сообщения: Требуется помощь в решении задач на Pascal Ответить с цитатой

1. Ввести элементы одномерного массива размером 30 с клавиатуры и вывести на печать в несколько строчек.
2. Ввести элементы двухмерного массива произвольной структуры с общим размером не менее 30 с использованием генератора случайных чисел в произвольном диапазоне. Вывести массив на печать в виде матрицы.
3. Ввести элементы двухмерного массива как типизированную константу. Вывести на печать исходную матрицу.
4. Получить матрицу по формуле



Вывести на печать полученную матрицу.

_________________
...В мире Интернета и SMS'ок Мы за никами спрятались, у всех все OK. Никто не скажет какая жизнь настоящая. 6 миллиардов одиноких людей...
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
LION
Л.Н.Толстой
цитировать



Л.Н.Толстой

Возраст: 51

Награды: 4 (Подробнее...)
Медаль осетровая. (Количество: 1) За мысли и слова (Количество: 1) Орден Форума 1-й степени (Количество: 1)
Зарегистрирован: 16.10.2006
Сообщения: 18702
Вся репутация : 137
Репутация: +185/-48

    

Откуда: аткедава -аттедова

СообщениеДобавлено: 20 Окт 2009 20:21    Заголовок сообщения: Ответить с цитатой

а что гугля такие задачки не решает ?

_________________
Я не участвую в сценах, я не торгуюсь о ценах. Делай свое дело! (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Дневник Фотоальбом
Strimmer
Прохожий
цитировать




Возраст: 29

Награды: Нет
Зарегистрирован: 19.09.2009
Сообщения: 37
Вся репутация : 0
Репутация: +0/-0

    



СообщениеДобавлено: 20 Окт 2009 20:23    Заголовок сообщения: Ответить с цитатой

LION
как бы нет, иначе здесь бы не спрашивал

_________________
...В мире Интернета и SMS'ок Мы за никами спрятались, у всех все OK. Никто не скажет какая жизнь настоящая. 6 миллиардов одиноких людей...
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
LION
Л.Н.Толстой
цитировать



Л.Н.Толстой

Возраст: 51

Награды: 4 (Подробнее...)
Орден Затмения 1-й степени (Количество: 1) Медаль осетровая. (Количество: 1) За мысли и слова (Количество: 1)
Зарегистрирован: 16.10.2006
Сообщения: 18702
Вся репутация : 137
Репутация: +185/-48

    

Откуда: аткедава -аттедова

СообщениеДобавлено: 20 Окт 2009 20:29    Заголовок сообщения: Ответить с цитатой

жаль. я тоже не умею. Но тут парочка перцев мерялась письками в этом деле. Погодь может подскажут.

_________________
Я не участвую в сценах, я не торгуюсь о ценах. Делай свое дело! (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Дневник Фотоальбом
ForTruth
Знающий человек
цитировать



Знающий человек

Возраст: 41

Награды: Нет
Зарегистрирован: 26.01.2009
Сообщения: 781
Вся репутация : 35
Репутация: +35/-0

    



СообщениеДобавлено: 20 Окт 2009 20:58    Заголовок сообщения: Ответить с цитатой

Едрён-батон! А че учебника нема штоле?

Добавлено спустя 8 минут 40 секунд:

В первом примере в цикле оператором ввода и оператором присваивания заносишь данные в массив (его нужно ещё объявить). Так же в цикле оператором вывода на печать выводишь на экран, если в несколько строчек, то вложенный цикл.
Я с паскалем незнаком, просто принципы одни и те же.
Братела как-то принес задачку и учебник, таким макаром изучая решал...

Добавлено спустя 2 минуты 27 секунд:

С первым справишься - остальные тоже осилишь!

_________________
Не всякий учитель есть источник знаний, равно как и любой из них может стать источником заблуждений... (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
LION
Л.Н.Толстой
цитировать



Л.Н.Толстой

Возраст: 51

Награды: 4 (Подробнее...)
Медаль осетровая. (Количество: 1) Орден Затмения 1-й степени (Количество: 1) За мысли и слова (Количество: 1)
Зарегистрирован: 16.10.2006
Сообщения: 18702
Вся репутация : 137
Репутация: +185/-48

    

Откуда: аткедава -аттедова

СообщениеДобавлено: 20 Окт 2009 21:19    Заголовок сообщения: Ответить с цитатой

блин ,интересно стало - а нах...зачем это надо ? Это типа программистом что ли вот так стать можно ?

_________________
Я не участвую в сценах, я не торгуюсь о ценах. Делай свое дело! (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Дневник Фотоальбом
ForTruth
Знающий человек
цитировать



Знающий человек

Возраст: 41

Награды: Нет
Зарегистрирован: 26.01.2009
Сообщения: 781
Вся репутация : 35
Репутация: +35/-0

    



СообщениеДобавлено: 20 Окт 2009 21:35    Заголовок сообщения: Ответить с цитатой

Все матерые программисты с этого и начинали. Very Happy

_________________
Не всякий учитель есть источник знаний, равно как и любой из них может стать источником заблуждений... (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
LION
Л.Н.Толстой
цитировать



Л.Н.Толстой

Возраст: 51

Награды: 4 (Подробнее...)
Медаль осетровая. (Количество: 1) Орден Затмения 1-й степени (Количество: 1) За мысли и слова (Количество: 1)
Зарегистрирован: 16.10.2006
Сообщения: 18702
Вся репутация : 137
Репутация: +185/-48

    

Откуда: аткедава -аттедова

СообщениеДобавлено: 20 Окт 2009 21:43    Заголовок сообщения: Ответить с цитатой

и Жан Луи Гассе ?

_________________
Я не участвую в сценах, я не торгуюсь о ценах. Делай свое дело! (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Дневник Фотоальбом
ForTruth
Знающий человек
цитировать



Знающий человек

Возраст: 41

Награды: Нет
Зарегистрирован: 26.01.2009
Сообщения: 781
Вся репутация : 35
Репутация: +35/-0

    



СообщениеДобавлено: 20 Окт 2009 21:48    Заголовок сообщения: Ответить с цитатой

Простейший способ ввода -- ввод массива с клавиатуры:
const n = 30;
var a: array [1..n] of real;
i:integer;
begin
writeln ('Введите элементы массива');
for i:=1 to n do read (A[i]);

Добавлено спустя 3 минуты 36 секунд:

ссылка на учебник http://pers.narod.ru/study/pascal.html

LION
и Жан Луи Гассе как пить дать.

_________________
Не всякий учитель есть источник знаний, равно как и любой из них может стать источником заблуждений... (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
Strimmer
Прохожий
цитировать




Возраст: 29

Награды: Нет
Зарегистрирован: 19.09.2009
Сообщения: 37
Вся репутация : 0
Репутация: +0/-0

    



СообщениеДобавлено: 20 Окт 2009 22:09    Заголовок сообщения: Ответить с цитатой

ForTruth
ну вот хоть что то, учебник на руках, но я похоже нуб, а дело важное решается. Так 3 и 4 уже подогнали, мегареспектище добрым людям, интересуют 1 и 2 задания

_________________
...В мире Интернета и SMS'ок Мы за никами спрятались, у всех все OK. Никто не скажет какая жизнь настоящая. 6 миллиардов одиноких людей...
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
ForTruth
Знающий человек
цитировать



Знающий человек

Возраст: 41

Награды: Нет
Зарегистрирован: 26.01.2009
Сообщения: 781
Вся репутация : 35
Репутация: +35/-0

    



СообщениеДобавлено: 20 Окт 2009 23:48    Заголовок сообщения: Ответить с цитатой

Код:
const n = 30;
var a: array [1..n] of integer;
i:integer;
begin
 writeln ('Введите элементы массива');
 for i:=1 to n do read (A[i]);   {сказано, если в цикле всего один оператор, то begin...end не указываются}
 i:=1;
 while i<=30 do begin
  writeln (A[i],'_',A[i+1],'_',A[i+2]); {выводятся по три числа в строке}
  i:=i+4;
 end;
end.

var a:array [1..3,1..10] of integer; <<<< ошибочка вышла цифри 3 и 10 поменять местами
i:integer;
j:integer;
begin
 randomize;
 for i:=1 to 10 do begin
  for j:=1 to 3 do begin
   a[i,j]:=random(31);
   write (a[i,j],'_');    {вывод матрицы в 3 столбца и 10 строк}
  end;
  writeln;          {перевод строки}
 end;
end.


Ну не знаю... опять пришлось всё по новой вспоминать... Very Happy

_________________
Не всякий учитель есть источник знаний, равно как и любой из них может стать источником заблуждений... (с)


Последний раз редактировалось: ForTruth (21 Окт 2009 00:21), всего редактировалось 1 раз
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
LION
Л.Н.Толстой
цитировать



Л.Н.Толстой

Возраст: 51

Награды: 4 (Подробнее...)
Орден Затмения 1-й степени (Количество: 1) Орден Форума 1-й степени (Количество: 1) За мысли и слова (Количество: 1)
Зарегистрирован: 16.10.2006
Сообщения: 18702
Вся репутация : 137
Репутация: +185/-48

    

Откуда: аткедава -аттедова

СообщениеДобавлено: 20 Окт 2009 23:51    Заголовок сообщения: Ответить с цитатой

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

_________________
Я не участвую в сценах, я не торгуюсь о ценах. Делай свое дело! (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Дневник Фотоальбом
ForTruth
Знающий человек
цитировать



Знающий человек

Возраст: 41

Награды: Нет
Зарегистрирован: 26.01.2009
Сообщения: 781
Вся репутация : 35
Репутация: +35/-0

    



СообщениеДобавлено: 20 Окт 2009 23:56    Заголовок сообщения: Ответить с цитатой

А я не умею дрова собирать Crying or Very sad
А где учат?

Добавлено спустя 6 минут 39 секунд:

говорят драйвера писать - это ващеее... Surprised

_________________
Не всякий учитель есть источник знаний, равно как и любой из них может стать источником заблуждений... (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
Vegen
Ахилес
цитировать



Ахилес

Возраст: 47

Награды: 3 (Подробнее...)
Медаль гранёного стакана (Количество: 1) Орден Затмения 1-й степени (Количество: 1) Орден Форума 1-й степени (Количество: 1)
Зарегистрирован: 27.11.2008
Сообщения: 5252
Вся репутация : 132
Репутация: +134/-2

    

Откуда: Ангарск

СообщениеДобавлено: 21 Окт 2009 00:07    Заголовок сообщения: Ответить с цитатой

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

_________________
Вы имеете право хранить молчание, в противном случае всё, что вы скажете, может быть использовано против вас
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Дневник Фотоальбом
LION
Л.Н.Толстой
цитировать



Л.Н.Толстой

Возраст: 51

Награды: 4 (Подробнее...)
За мысли и слова (Количество: 1) Медаль осетровая. (Количество: 1) Орден Затмения 1-й степени (Количество: 1)
Зарегистрирован: 16.10.2006
Сообщения: 18702
Вся репутация : 137
Репутация: +185/-48

    

Откуда: аткедава -аттедова

СообщениеДобавлено: 21 Окт 2009 00:08    Заголовок сообщения: Ответить с цитатой

ForTruth
а хрен знает где учат...без понятия. Как то вот так...там кусок,тут описание,там полсырца...

_________________
Я не участвую в сценах, я не торгуюсь о ценах. Делай свое дело! (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Дневник Фотоальбом
ForTruth
Знающий человек
цитировать



Знающий человек

Возраст: 41

Награды: Нет
Зарегистрирован: 26.01.2009
Сообщения: 781
Вся репутация : 35
Репутация: +35/-0

    



СообщениеДобавлено: 21 Окт 2009 00:17    Заголовок сообщения: Ответить с цитатой

Vegen писал(а):
ForTruth
Дрова собирать лучше вдвоем - один руки вытягивает, а другой собирает и на руки ложит другому, пока охапка не получится. Проверено, работает.

Знаем, курили. Very Happy
У меня и в одного не плохо получалось Very Happy

_________________
Не всякий учитель есть источник знаний, равно как и любой из них может стать источником заблуждений... (с)
Вернуться к началу
Не в сети Посмотреть профиль Отправить личное сообщение Фотоальбом
Имя
Роботизм Для Вашей идентификации поставте галочки, напротив нужных пунктов.
 - Да, я бот !.  - Я не Бот.  - И не был ботом
Сообщение

Смайлики
Very Happy Smile Sad Surprised
Shocked Confused Cool Laughing
Mad Razz Embarassed Crying or Very sad
Evil or Very Mad Twisted Evil Rolling Eyes Wink
Exclamation Question Idea sick
Дополнительные смайлики

 
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Ангарский Форум -> Персональные компьютеры Часовой пояс: GMT + 9
Страница 1 из 1
 

Перейти:  
Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете добавлять приложения в этом форуме
Вы не можете скачивать файлы в этом форуме




Не хотите смотреть рекламу на форуме ? Прочтите эту тему