![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
The Wild One |
![]()
Сообщение
#1
|
Гость ![]() |
Их "всего" три штуки. Первые две вообще простые знающего человека, а третяя... такие мне точно не решить самому. В общем, помогите пожалуйста разобраться!
1. Дана строка. Все символы строки длиннее 5 заменить на их длинну и вывести на экран. 2. Дан тексовый файл. После каждого слова длиннее 3 поставить "!". 3. Дана матрица: 2 столбца, 10 строк. 1й элемент каждой строки - внутренний диаметр, а второй - внешний диаметр кольца. Отпечатать внешние диаметры тех колец, площадь которых больше площади прямоугольника с заданными сторонами и число колец. |
Serega |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Мужской Репутация: ![]() ![]() ![]() |
Если я все правильно понял, то 3 задача не такая уж и сложная. Просто находишь площадь кольца и площадь прямоугольника, и сравниваешь. Что тут не понятно???
-------------------- Не могу сидеть, когда другие работают.
Пойду полежу. |
The Wild One |
![]()
Сообщение
#3
|
Гость ![]() |
Мне не понятны даже первые две.
|
Serega |
![]()
Сообщение
#4
|
Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вот вторая задача. Если успею, то третью позже выложу.
Код 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. -------------------- Не могу сидеть, когда другие работают.
Пойду полежу. |
Serega |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вот третья задача.
Код 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. -------------------- Не могу сидеть, когда другие работают.
Пойду полежу. |
The Wild One |
![]()
Сообщение
#6
|
Гость ![]() |
Огромное спасибо!
|
Serega |
![]()
Сообщение
#7
|
Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Мужской Репутация: ![]() ![]() ![]() |
Да не за что, обращайся :)
-------------------- Не могу сидеть, когда другие работают.
Пойду полежу. |
![]() ![]() |
![]() |
Текстовая версия | 18.04.2025 16:46 |