27.01.2010, 16:55 | #1 (permalink) |
Member
Регистрация: 27.01.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Три задачи на Паскале
Нужно до пятницы сделать три задачи. Развилка Вводится номер месяца. Программа возвращает его название. Массивы Упорядочив целочисленных массив из 15 элементов по возрастанию и вывести на экран положительную часть массива. Строки Определить и вывести число слов во введенном предложении. Уважайте Правила форума, в том числе п.2.1. Тема переименована. Модератор. |
27.01.2010, 16:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Созданная вами тема имеет сходства со следующими Три задачи в Паскале Три задачи на Паскале Задачи на Паскале Три задачи на Паскале Снова задачи на паскале |
27.01.2010, 17:09 | #2 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Первая задача
Код:
Var m:byte; Begin Readln(m); Case m of 1 :writeln('Январь'); 2 :writeln('Февраль'); 3 :writeln('Март'); 4 :writeln('Апрель'); 5 :writeln('Май'); 6 :writeln('Июнь'); 7 :writeln('Июль); 8 :writeln('Август'); 9 :writeln('Сентябрь'); 10 :writeln('Октябрь'); 11 :writeln('Ноябрь'); 12 :writeln('Декабрь'); end; End. |
27.01.2010, 17:10 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
CONST Month:ARRAY[1..12] of STRING=('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); Var n:BYTE; Begin Write('Enter the number of month '); ReadLn(n); WriteLn(Month[n]); ReadLn; End. |
27.01.2010, 17:11 | #4 (permalink) |
Member
Регистрация: 27.01.2010
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Очень на вас рассчитываю, ибо препод злойстный гад с проблемами в личной жизни... объясняет словно мы должны читать его мысли наперед... вообщем .. =( я ни чего не шарю в турбопаскале. Пожалуйста помогите. (((
|
27.01.2010, 17:12 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вот - два гениальных решения задачи века.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.01.2010, 17:28 | #8 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Задача 2
Код:
Uses crt; Const n=15; Var i,j:byte; a:array[1..n]of integer; p:integer; Begin Clrscr; Randomize; For i:=1 to n do A[i]:=random(100)-50; For i:=1 to n do Write(a[i]:5); Writeln; For i := n downto 2 do For j := 2 to i do if A[j] < A[j-1] then begin p := A[j]; A[j] := A[j-1]; A[j-1] := p; end; For i:=1 to n do If a[i]>0 then write(a[i]:5); End. |
27.01.2010, 17:32 | #9 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Задача 3
Код:
Var text:string; i,k:byte; s:char; Begin s:=' '; k:=1; ReadLn(text); For i:=1 to length(text) do If text[i]=s then k:=k+1; Writeln(k); End. Последний раз редактировалось DDS; 27.01.2010 в 17:48 Причина: Исправление |
27.01.2010, 17:35 | #10 (permalink) |
Banned
Регистрация: 01.09.2009
Сообщений: 4,396
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 2544
|
DDS, у вас ошибка в решении задачи 3, сами найдете?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|