06.12.2010, 21:59 | #1 (permalink) |
Новичок
Регистрация: 06.12.2010
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Три задачи на Паскале
Задача 1 В тексте определить количество гласных и согласных букв в самом длинном и самом коротком слове. Задача 2 const n=20; type num=array[1..n]of char; var a,b,c:num; t:boolean; Рассматривая а и b как последовательности цифр десятичной записи некоторых неотрицательных чисел(целых), получить с-аналогичное представление для суммы этих двух чисел. Если в сумме окажется больше n цифр, то её левую цифру отбросить, а переменной t присвоить значение ИСТИНА, иначе переменной t присвоить значение ЛОЖЬ. Задача 3 Дана действительная матрица размера m на n, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент. Прежде всего - читаем Правила, п. 2.1. Название темы изменено. Модератор. |
06.12.2010, 21:59 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправляю вам топики, которые по содержанию напоминают ваш Три задачи в Паскале Три задачи на Паскале Задачи на Паскале |
07.12.2010, 09:55 | #5 (permalink) |
Новичок
Регистрация: 06.12.2010
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Мужики... Пропадаю... Нужна помощь...
P.S Тему поднял...) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
07.12.2010, 22:08 | #9 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
TYPE ChSet=Set of Char; CONST ChS1:ChSet=['б','в','г','д','ж','з','к','л','м','н', 'п','р','с','т','ф','х','ц','ч','ш','щ', 'Б','В','Г','Д','Ж','З','К','Л','М','Н', 'П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ']; ChS2:ChSet=['а','е','и','о','у','ы','э','ю','я', 'А','Е','И','О','У','Ы','Э','Ю','Я']; VAR S:String; Wrd:ARRAY[1..100] of String; i,j,n,m,Num_Short,Num_Long, Short_vowel,Short_consonant,Long_vowel,Long_consonant:Byte; BEGIN WriteLn('Enter the string:'); ReadLn(S); j:=1; i:=1; If S[1]=' ' then Repeat Inc(i); Until S[i]<>' '; n:=0; While S[i+n]<>' ' do begin Inc(n); end; Wrd[j]:=Copy(S,i,n); REPEAT Inc(j); i:=i+n+1; If S[i]=' ' then Repeat Inc(i); Until S[i]<>' '; n:=0; While (S[i+n]<>' ') and ((i+n)<=Length(S)) do begin Inc(n); end; Wrd[j]:=Copy(S,i,n); UNTIL (i+n)>Length(S); m:=j; Num_Short:=1; Num_Long:=1; Short_vowel:=0; Short_consonant:=0; Long_vowel:=0; Long_Consonant:=0; For j:=1 to m do begin if Length(Wrd[j])<Length(Wrd[Num_Short]) then Num_Short:=j; if Length(Wrd[j])>Length(Wrd[Num_Long]) then Num_Long:=j; end; For i:=1 to Length(Wrd[Num_Short]) do begin If Wrd[Num_Short][i] in ChS1 then Inc(Short_consonant); If Wrd[Num_Short][i] in ChS2 then Inc(Short_vowel); end; For i:=1 to Length(Wrd[Num_Long]) do begin If Wrd[Num_Long][i] in ChS1 then Inc(Long_consonant); If Wrd[Num_Long][i] in ChS2 then Inc(Long_vowel); end; WriteLn; WriteLn('Самое короткое слово - "',Wrd[Num_Short],'"'); WriteLn('Количествово согласных - ',Short_consonant); WriteLn('Количество гласных - ',Short_vowel); WriteLn; WriteLn('Самое длинное слово - "',Wrd[Num_Long],'"'); WriteLn('Количествово согласных - ',Long_consonant); WriteLn('Количество гласных - ',Long_vowel); ReadLn; END. |
|
07.12.2010, 22:23 | #10 (permalink) |
Новичок
Регистрация: 06.12.2010
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Большое спасибо...!)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|