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

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

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

 
 Ответить  Открыть новую тему 
> Строка, файл, матрица!
сообщение
Сообщение #1


Гость






Их "всего" три штуки. Первые две вообще простые знающего человека, а третяя... такие мне точно не решить самому. В общем, помогите пожалуйста разобраться!

1. Дана строка. Все символы строки длиннее 5 заменить на их длинну и вывести на экран.

2. Дан тексовый файл. После каждого слова длиннее 3 поставить "!".

3. Дана матрица: 2 столбца, 10 строк. 1й элемент каждой строки - внутренний диаметр, а второй - внешний диаметр кольца. Отпечатать внешние диаметры тех колец, площадь которых больше площади прямоугольника с заданными сторонами и число колец.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

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

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


Если я все правильно понял, то  3 задача не такая уж и сложная. Просто находишь площадь кольца и площадь прямоугольника, и сравниваешь. Что тут не понятно???


--------------------
Не могу сидеть, когда другие работают.
Пойду полежу.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Мне не понятны даже первые две.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

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

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


Вот вторая задача. Если успею, то третью позже выложу.
Код

program no2;
uses crt;
var f,g:text;
   n,slovo:string;
   i,k:integer;
begin
clrscr;
assign(g,'a:output.txt');
rewrite(g);
close(g);
assign(f,'a:input.txt');
reset(f);
 while not eof(f) do
  begin
   readln(f,n);
    for i:=1 to length(n) do
     begin
         inc(k);
         assign(g,'a:output.txt');
         append(g);
         if (n[i]=' ') and (k>3) then write(g,'!');
         if n[i]=' ' then k:=0;
         write(g,n[i]);
         close(g);
     end;
  end;
close(f);
end.


--------------------
Не могу сидеть, когда другие работают.
Пойду полежу.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

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

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


Вот третья задача.
Код

program no3;
uses crt;
const p=3.14;
var mas:array[1..10,1..2] of integer;
   i,k,a,b:integer;
begin
clrscr;
writeln('Введите матрицу (10х2)');
 for i:=1 to 5 do
  readln(mas[i,1],mas[i,2]);
write('Введите стороны прямоугольника (а,b) ');
readln(a,b);
 for i:=1 to 5 do
  if (p*sqr(mas[i,2])/2-p*(mas[i,1])/2)>a*b then
   begin
    inc(k);
    writeln(mas[i,2]);
   end;
writeln('Число колец равно ',k);
readkey;
end.


--------------------
Не могу сидеть, когда другие работают.
Пойду полежу.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






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


Новичок
*

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

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


Да не за что, обращайся  :)


--------------------
Не могу сидеть, когда другие работают.
Пойду полежу.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 29.03.2024 20:54
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name