IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Массив, график функции, создание 5 слов из 1
сообщение
Сообщение #1


Гость






Извиняюсь, не хотела никому доставлять неудобства, просто уж очень мало времени было и на чтение правил его не хватило  :(
Надеюсь, что на этот раз оформила всё правильно.  :smile.gif
Пожалуйста, помогите решить задачи! Ооочень нужно! Вопрос жизни и смерти.  
1. Составить программу создания пяти новых слов из слова "демобилизация".
2. Составить программу построения графика функции у=2x^2+1. выделить и вывести точки пересечения графика и осей координат.
3. Составит программу заполнения двумерного массива 2х10 случайными целыми числами от -5 до 10. Найти среднее арифметическое и минимум.  
Заранее спасибо!  
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 62
Пол: Мужской

Репутация: -  1  +


1. Из слова "демобилизация" можно составить не 5 а больше слов. Допустим перебором всех возможных комбинаций сочетания букв от 2 до 13. Чтобы определить что получилось в результате нужен словарь, с которым этор результат надо сравнивать. Создание словаря входит в постановку задачи?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






>Создание словаря входит в постановку задачи?
Нет, не входит. Условие звучит именно так, как я написала.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 41
Пол: Мужской

Репутация: -  0  +


чё-то я не понял как это.
Комп - не человек как он определит,что это слово ,а не набор символов,без
словаря


--------------------
кто ищет тот всегда найдёт
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Вот кажеться третья задача!! ;D
Код

uses Crt;
const n=2;
m=10;
var a:array[1..n,1..m] of integer;
i,j,min,Sum:integer;   Sa:real;
begin
 ClrScr;

 randomize;
 for i:=1 to n do {generation}
   for j:=1 to m do begin
     a[i,j]:=random(15)-2;
   end;



 ClrScr;
 for i:=1 to n do {vuvod masiva na ekran}
   for j:=1 to m do begin
     GotoXY(i*6-5,j);
     Writeln(a[i,j]);
   end;
 ReadKey;

Sum:=0;
for i:=1 to n do
for j:= 1 to m do   begin
Sum:=Sum+a[i,j];
Sa:=Sum/20;      {Sa}
end;


min:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]<min then min:=a[i,j];end;   {min}
writeln('Sa=',' ',Sa:4:2,' ','min=',' ',min);
ReadKey;
end.


генерацию можешь отрегулировать как те надо(если эта не устраивает)!! ;D
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата
чё-то я не понял как это.
Комп - не человек как он определит,что это слово ,а не набор символов,без
словаря


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


Catty, спасибо огромное!!!  :)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






;D
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 7

Репутация: -  0  +


женская взаимовыручка хи-хи
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






На этом  и живем!!!! ;) ;)
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.09.2017 8:59
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"