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

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

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

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


Гость






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


Пионер
**

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

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


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


Гость






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


Новичок
*

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

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


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


--------------------
кто ищет тот всегда найдёт
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Catty
сообщение 17.02.2004 18:13
Сообщение #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
 К началу страницы 
+ Ответить 
Allusya
сообщение 17.02.2004 19:33
Сообщение #6


Гость






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


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


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


Гость






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





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

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


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


Гость






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

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

 



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