|
Ребят, оч нада! Воть задачки по Паскалю... Ну никак решить не могу! Пж, мне до послезавтра сдать надо! Воть! Заранее спасибо! 1. Дан одномерный целочисленный массив B(n) и натуральное число n. Для каждого из элементов массива B выяснить, сколько раз оно входит в эту последовательность. Результат представить в виде: "a1 встречается k1 раз" При печати не должно быть повторяющихся строк. 2. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят более чем в одно слово; все гласные буквы, которые не входят более чем в одно слово. 3. Дана строка символов и число N. Произвести ротацию строки на N символов (например: если исходная строка равна '1x2y3z4a', а N=3, то результирующая строка будет равна ' z4a1x2y3'). ...и самое главное: 4. Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284). Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа. 5. Элемент двумерного массива называется локальным минимумом, если он строго меньше всех имеющихся у него соседей. Подсчитать количество локальных минимумов заданной матрицы размером NxN найти максимум среди всех локальных минимумов. Я надеюсь на вашу помошь! |
| JeyLo |
| Могу на си.... |
| Неть! Мне ток на Паскале нуна! И плиз, до четверга... Я завтра в инете будю, посмотрю... Оч-оч-оч нада! :-) |
| Gorjie |
|
Посмотрю на выходных, если ещё надо... Но точно не обещаю, могу уехать в любой момент... |
|
Выручи плиз!!! Мне кранты, если не сдам! |
| kiskus |
|
Посмотри может поможет program Project1; {$APPTYPE CONSOLE} uses SysUtils; type MASS1=array of Int64; var a,CH_M:Integer; massiv:MASS1; CHISEL_V_MASSIVE:Integer; NATURALNOE_CHISLO:Integer; CHISLO_VSTRECHAETSA:Integer; begin Writeln('SKOLKO CHISEL V MASSIVE'); Readln(CHISEL_V_MASSIVE); Writeln('ZAPPOLNITE_MASSIV'); SetLength(massiv,CHISEL_V_MASSIVE); for a:=0 to CHISEL_V_MASSIVE-1 do begin Readln(CH_M); massiv[a]:=CH_M; end; Writeln('NATURALNOE CHISLO'); Readln(NATURALNOE_CHISLO); CHISLO_VSTRECHAETSA:=0; for a:=0 to CHISEL_V_MASSIVE-1 do begin if NATURALNOE_CHISLO=massiv[a] then Inc(CHISLO_VSTRECHAETSA); end; if CHISLO_VSTRECHAETSA<>0 then begin Writeln('CHISLO VSTRECHAETSA '+ Inttostr(CHISLO_VSTRECHAETSA)+' RAZA' ); end else begin Writeln('CHISLO NEVSTRECHAETSA'); end; SetLength(massiv,0); Readln; end |
| RoyalFlesh |
|
Мнда, поздновато зашел на эту тему... Вообще задачи - ерунда... Ну, 4 и 5 немного задают жару, но не сильно... Во всяком случае, на Паскале... |
| doodge |
|
Люди а мне поможите??? Если надо могу заплатить по "30 сексо" ... за задачку.... 4.36 Пусть дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами — запятая, за последним словом — точка. Введите: в) эту же последовательность слов, но удалив из нее повторные вхождения слов 7.8 В массиве содержится информация о зимней сессии. Сведения о каждом студенте содержат следующие данные: фамилию (до 12 символов), номер группы (от 1 до 7), оценки по трем предметам (математика, физика и программирование). Напишите программу, которая вводит эту информацию и печатает следующие данные: г) номера групп в порядке убывания средней успеваемости их студентов. 9.2 Пусть в программе введено описание типа: Type Letters = file of char; Описать процедуру: ж) del(f), удаляющую из текста f предпоследний элемент, если такой есть; |
| RoyalFlesh |
|
Давно не был на этом подфоруме... Задачи еще актуальны??? Если да, напиши в личку. помогу... |
| TRENT |
|
ребята знаю что сейчас ***ню спрошу,но кто поможет с такой вот задачкой: Вводся начальный член и шаг арифметической прогрессии.Вводится также число.Определить,принадлежит ли введенное число арифметической прогрессии с введенными начальным членом и шагом. Используя один из 3 циклов(while,repeat,for),короче задания для первокурсника!))) |
| do-do |
|
надеюсь число целое :)? в цикле считаешь N+1 член прогрессии проверяешь Полученное число с эталонным. Если оно меньше - продолжаем цикл, больше выходим из цикла с утверждением, что число не принадлежит, равно - выходим с утверждением, что все Ок Следует использовать Repeat Until |
| Пивован |
| Отнять от числа начальный член и рез-т разделить на шаг. Если получили целое - в последовательности. Только вот цикл не при делах... Зато программа оптимальнее по скорости выполнения :) |
| do-do |
| в том то и дело, что пример учебный... |
| TRENT |
| да число целое,да я заочник,вот и туплю,один раз в месяц препода вижу:*( |
| TRENT |
| как примерно будет исходник выглядить?Или где я могу найти подобные примеры? |
| ole256 |
|
Итак... объявлять переменные и читать в них данные с клавиатуры умеете? Тогда: a0 - начальный член, h - шаг. CurrentNumber - текущий член, CheckNumber - проверяемое число. CurrentNumber := a0; while ( CurrentNumber < CheckNumber ) do CurrentNumber := CurrentNumber + h; if ( CurrentNumber = CheckNumber ) writeln( 'Принадлежит' ) else writeln( 'Не принадлежит' ); Как-то так. |