Нужна помошь по Pascal
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Нужна помошь по Pascal - 2008-02-13 21:29:43.996666
|
|
|
osbi
Сообщений: 19
Оценки: 0
Присоединился: 2005-10-22 09:57:51
|
Этеншн, народ нужна помошь, поступил на первый курс в институт, вот сча сессия, долги сдаю, есть 20 задачек по поскалю, ктонить может посмотреть, что знаете решить, очень нужно, а то наф из института попрут  Зарание огромное спасибо
Задачи к экзамену по программированию 1 семестр.
1. Дана непустая последовательность различных неотрицательных целых чисел, за которой следует число -1. Написать программу, которая обеспечивает ввод такой последовательности чисел, определяет, сколько среди них чисел, кратных 3 и выводит эти числа.
2. Дана последовательность не менее чем из трех положительных целых чисел, за которыми следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько из них больше своих «соседей», т. е. предыдущего и последующего.
3. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько раз в этой последовательности меняется знак.
4. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько в этой последовательности чисел палиндромов. Палиндром – число, которое читается справа налево и слева направо одинаково.
5. Написать программу, которая определяет все простые делители заданного натурального числа. Делителями числа является все числа от 1 до самого числа, которые нацело делят само число. Простым является такое число, у которого всего два делителя: 1 и само число.
6. Дана последовательность из N целых чисел. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет количество элементов с четной суммой цифр.
7. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько раз в этой последовательности встречаются числа, в десятичной записи которых нет одинаковых цифр.
8. Дана непустая последовательность шестизначных целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько этой последовательности «счастливых» чисел.
9. Дано число. Если оно по модулю больше 10, то определить, четность первых двух цифр.
10. Определить количество четных и произведение нечетных чисел в массиве А(N).
11. Найти наибольшее значение (xi – yi) для массивов (x1, x2, …, x50) и (y1, y2,…, y50).
12. В одномерном массиве D из K чисел поменять местами элементы массива с номерами m и n.
13. Найти сумму элементов одномерного массива размером 4. Разделить каждый элемент исходного массива на полученное значение, поместив результат в том же массиве.
14. Дан массив A = (a1,…,a10). Сформировать два массива, включая в первый элементы исходного массива с четными индексами, а во второй – с нечетными.
15. Даны действительные числа а1, …, а100 (положительные и отрицательные). Все числа, начиная с первого положительного, уменьшить на 0,5.
16. Дан массив А(20) вещественных чисел, содержащий хотя бы одно отрицательное число. Определить N – номер первого отрицательного числа и найти среднее арифметическое чисел а1, а2, …, аN.
17. Определить в одномерном массиве P из Х чисел количество чисел, равных максимальному (минимальному) элементу этого массива.
18. Даны целые числа a1,…,a100. Найти максимальное из них и получить новую последовательность, заменяя ai на 0, если ai равно найденному максимальному, и – на 1 в противном случае.
19. Определить порядковые номера первого и последнего элементов одномерного массива А, равных максимальному элементу этого массива.
20. Даны натуральные числа b1, b2, …, bN. Вычислить f(b1) + f(b2) +… + f(bN), где
21. Определить в массиве A = (a1,…a50) количество элементов, больших среднего арифметического всех элементов этого массива.
22. В массиве A = (a1, …, a20) есть хотя бы один отрицательный элемент. Вычислить произведение элементов массива до первого отрицательного.
23. Сформировать одномерные массивы A и B соответственно из положительных и отрицательных элементов массива X = (x1, …, x50).
24. Дан массив чисел. Составить программу, определяющую максимальное количество идущих подряд четных чисел.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-13 21:58:53.033333
|
|
|
3gen
Сообщений: 583
Оценки: 0
Присоединился: 2008-01-18 02:13:52.593333
|
Гыы, детский сад какой. Прочти любой учебник по паскалю, сам поймёшь.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-13 22:21:03.616666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ну да,на каждом потоке в каждой группе всегда немало людей,забивших на информатику/программирование. Мона попытаться развести сокурсника,но не всегда…целая история,кароч). Тоже советую учебник/хелп и т.д. Реально разберешься быстро+ещё пригодится. 20 задач=нехилая просьба,особенно с пометкой "решить". 0,5 WMZ/задача? :) //халява=редкость.мм…завтра? и вправду срочно))
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-13 22:23:34.710000
|
|
|
osbi
Сообщений: 19
Оценки: 0
Присоединился: 2005-10-22 09:57:51
|
ммм времени нету, это надо до завтра (крайний срок послезавтра), я ж не прошу все решить, мне надо 10 задачей любых, напишете кто что может, буду оч рад и признателен ;)
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-13 22:37:46.416666
|
|
|
3gen
Сообщений: 583
Оценки: 0
Присоединился: 2008-01-18 02:13:52.593333
|
В каком эквиваленте эта признательность будет выражена через WMZ?[sm=ab.gif]
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-13 22:41:20.790000
|
|
|
osbi
Сообщений: 19
Оценки: 0
Присоединился: 2005-10-22 09:57:51
|
Эх вы какие все в деньги, ну нету у меня возможности никакой вам заплатить, ну возьмите по 1-2 задачки самых легких на ваш взгляд, готов поспорить для вас это как орехи щелкать:D
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-14 02:44:25.390000
|
|
|
Ясkи
Сообщений: 204
Оценки: 0
Присоединился: 2008-02-12 22:56:17.683333
|
quote:
ORIGINAL: osbi
Эх вы какие все в деньги, ну нету у меня возможности никакой вам заплатить, ну возьмите по 1-2 задачки самых легких на ваш взгляд, готов поспорить для вас это как орехи щелкать:D
То есть нету? Я могу простить человеку незнание предмета ввиду нехватки времени, работал например, или на соревнованиях каких-нить участвовал. Меня самого по этой причине могут выпереть из вуза. Но в таком случае деньги то где? Мне в Вузе нравится то, что застваляет нехило повертется - остановишься и тебя отчислят. Бездельникам бой - или сам решай задачи, или мотивируй других сделать это за тебя.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-14 02:46:07.983333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
9. Дано число. Если оно по модулю больше 10, то определить, четность первых двух цифр.
—-
Это если первые 2 цифры справа. Если же слева - то раскоментируй первый цикл.
var
num, absnum:integer;
const
res1:boolean = false;
res2:boolean = false;
begin
readln( num );
if num >= 0 then {забыл, как модуль в паскале брать, давно паскаль не юзал =}
absnum := num
else
absnum := num * (-1);
{
while absnum >= 100 do
absnum := absnum div 10;
}
if (absnum mod 10) mod 2 = 0 then
res1 := true;
absnum := absnum div 10;
if (absnum mod 10) mod 2 = 0 then
res2 := true;
if res1 then
writeln('Перая цифра чётная')
else
writeln('Перая цифра не чётная');
if res2 then
writeln('Вторая цифра чётная')
else
writeln('Вторая цифра не чётная');
readln;
end.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-14 10:22:53.020000
|
|
|
dos 999
Сообщений: 331
Оценки: 0
Присоединился: 2007-12-17 10:49:07.556666
|
osbi чтобы тебе помогали с решением задач нужно иметь либо wm, либо хороших друзей знающих программирование, которые тебе это будут делать безвозмездно….
а лучше всего взять книгу и почитать (как уже и было посоветовано)
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-14 12:31:51.436666
|
|
|
kolPeeX
Сообщений: 1456
Оценки: 0
Присоединился: 2007-01-25 14:57:57.683333
|
http://www.pascal.hop.ru/cgi-bin/index.pl
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-14 15:00:17.923333
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
Решение 24 задачи ;)
program sunzer;
var
i:integer; // Переменная для цикла
BOOL:boolean;
x:integer; // Переменная для хранения ответа
OTV:array[1..10] of integer;
OTVi:integer;
const
Num: array [1..10] of integer = (2,2,2,2,2,3,3,3,3,3); // Массив чисел
function GMO:integer;
var
ii:integer;
xx:integer;
begin
x:=0;
for ii:=1 to 10 do
begin
if(OTV[ii]>xx)then xx:=OTV[ii];
end;
Result:=xx;
end;
begin
OTVi:=1;
for i:=1 to 10 do // Старт цикла
begin
if(NUM[i] mod 2<>0) and (GMO>x) then begin BOOL:=True; Inc(OTVi); x:=0; end; // Обнуляем ответ
if(NUM[i] mod 2=0) then BOOL:=False;
if(NUM[i] mod 2=0) and (BOOL=False) then OTV[OTVi]:=OTV[OTVi]+1;
end;
WriteLn('Максимальное количество идущих подряд четных чисел: '+IntToStr(GMO));
end.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 02:54:06.766666
|
|
|
VViskas =[O_o]=
Сообщений: 145
Оценки: 0
Присоединился: 2008-01-01 02:25:50.893333
|
Листинг задачи 22:
program xakep_ru;
uses
crt;
var
i:byte;
sum: integer;
A:array [1..10] of integer;
begin clrscr;
randomize;
for i:=1 to 10 do begin
A[i]:= random(100)-50;
write(A[i],' ');
end;
sum:=0;
i:=1;
while A[i]>=0 do begin
sum:= sum+A[i];
i:= i+1;
end;
writeln;
writeln(sum);
readkey;
end.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 08:49:12.830000
|
|
|
osbi
Сообщений: 19
Оценки: 0
Присоединился: 2005-10-22 09:57:51
|
Спасибо огромное, еще можно парачку ?;)
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 13:53:27.060000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
За 1.5 пива и пакетик колец кальмаров решу все… Только вот в Беларусь придётся везти )
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 18:55:02.056666
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
задача 7, написал первое, что пришло в голову.
Не проверял на работоспособность, возможно потребуется доработка.
var:
VALUE: integer;
COUNT: WORD;
function Proverka(chislo: inreger) of boolean
var
mAbsChislo: inreger;
modChislo: integer;
ciferki: array[0..9] of byte;
i: integer;
rezultat: boolean;
begin
if(chislo > 0)then
mAbsChislo := chislo
else
mAbsChislo := -chislo;
for i:=0 to 9 do
ciferki[i] := 0;
modChislo := mAbsChislo mod 10;
while(modChislo <> mAbsChislo) do
begin
inc(ciferki[modChislo]);
mAbsChislo := mAbsChislo div 10;
modChislo := mAbsChislo mod 10;
end;
rezultat := false;
for i:=0 to 9 do
rezultat:=rezultat AND (ciferki[i] > 1);
Proverka := NOT(rezultat);
end;
begin
COUNT := 0;
writeln('=======================================================');
writeln('VVEDITE CHISLA DLY PROVERKI:');
read(VALUE);
while(VALUE <> 0)
begin
if(Proverka(VALUE))then
inc(COUNT);
read(VALUE);
end;
writeln('RESULTAT = ',COUNT);
writeln('=======================================================');
readln;
end.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 18:57:26.070000
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
5. Написать программу, которая определяет все простые делители заданного натурального числа. Делителями числа является все числа от 1 до самого числа, которые нацело делят само число. Простым является такое число, у которого всего два делителя: 1 и само число.
Это метод решета, если ты знаешь, что такое поисковик, то тебе туда. искать Pascal, решето, простые числа.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 19:07:02.383333
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
Первая задача, естественно, не проверял на работоспособность
var:
VALUE: integer;
COUNT: WORD;
MASSIV: array[1..1000] of integer;
i :integer; {ИСПРАВЛЕНИЕ}
begin
COUNT := 1;
writeln('=======================================================');
writeln('VVEDITE CHISLA DLY PROVERKI:');
read(VALUE);
while((VALUE <> -1)AND(COUNT <=1000))
begin
if(VALUE mod 3 = 0)
begin
MASSIV[COUNT] := VALUE;
inc(COUNT);
end;
end;
dec(COUNT); {ИСПРАВЛЕНИЕ}
writeln('KOLICHESTVO CHISEL KRATNYH TREM = ',COUNT);
writeln('CHISLA: ');
for i:=1 to COUNT do
write(MASSIV[i]:8);
writeln;
writeln('=======================================================');
readln;
end.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 19:15:59.883333
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
Задача 2:
в задаче 1 переменную i объявил не правильно (по сишному), исправь.
var:
VALUE: integer;
COUNT: WORD;
MASSIV: array[1..1000] of integer;
rezyltat :integer;
i : integer;
begin
COUNT := 1;
writeln('=======================================================');
writeln('VVEDITE CHISLA DLY PROVERKI:');
read(VALUE);
while((VALUE <> 0)AND(COUNT <=1000))
begin
MASSIV[COUNT] := VALUE;
inc(COUNT);
end;
rezyltat := 0;
COUNT := COUNT - 2;
for i:= 2 to COUNT do
if(MASSIV[i] > MASSIV[i-1])AND(MASSIV[i] > MASSIV[i+1])
inc(rezyltat);
writeln('REZYLTAT: ', rezyltat);
writeln('=======================================================');
readln;
end.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 19:17:57.603333
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
Раскрой секрет, где ты учишься (ВУЗ) и на кого (специальность)?
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 19:27:30.306666
|
|
|
tеstеr
Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333
|
Заметь, что все проги тебе пишут на чистой латинице, так как тебе будет проще при компиляции.
Кирилица в досе (досовскими компиляторами обычно студегты пользуются) кирилица не видна (кодировки не совпадут).
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-15 20:29:52.176666
|
|
|
Ясkи
Сообщений: 204
Оценки: 0
Присоединился: 2008-02-12 22:56:17.683333
|
Поскольку я сейчас нахожусь почти в таком же положении как и ты, я не могу тебе не помочь.
Вот номер 21:
Program by_Yashin_number_twenty_one;
uses Crt;
var
Mass: array[0..50] of Integer;
Sum : LongInt;
Arg : Integer;
Num : byte;
var
i: integer;
BEGIN
Randomize;
ClrScr;
For i:=0 to 49 do Mass[i]:=Random(99);
While i>0 do begin
Dec(i,5);
Write('Mass[',i+6:2,']=',Mass[i]:2,' ');
Write('Mass[',i+5:2,']=',Mass[i]:2,' ');
Write('Mass[',i+4:2,']=',Mass[i]:2,' ');
Write('Mass[',i+3:2,']=',Mass[i]:2,' ');
WriteLn('Mass[',i+2:2,']=',Mass[i]:2,' ');
end;
For i:=0 to 49 do Sum:=Sum+Mass[i];
Arg:=Sum div 50;
WriteLn('Srednius ariphmeticus equalents : ', Arg);
For i:=0 to 49 do if Mass[i]>Arg then Inc(Num);
WriteLn('Count of elements above ',Arg,' equal: ',Num);
ReadLn;
END.
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-16 03:30:08.440000
|
|
|
M0L0T
Сообщений: 10
Оценки: 0
Присоединился: 2008-01-04 22:58:34.810000
|
листинг задачи 14:
uses Crt;
var
i:integer;
A:array[1..10] of integer;
A1,A2:array[1..5] of integer;
begin
Randomize;
Clrscr;
for i:=1 to 10 do
A[i]:=random(100);
for i:=0 to 4 do begin
A1[i+1]:=A[2*i+2];
A2[i+1]:=A[2*i+1];
end;
writeln; writeln('A given array A:');
for i:=1 to 10 do begin
writeln('A[',i,'] = ',A[i]);
end;
writeln('An array of elements with odd indexes: An array of elements with even indexes:');
for i:=1 to 5 do begin
writeln(' A1[',i,'] = ',A1[i],' A2[',i,'] = ',A2[i]);
end;
readln;
end.
Не понимаю - зачем поступать в ВУЗ, а тем более на программирование, если ничего не делаешь, а главное не хочешь делать? Зачем напрягать себя и терять на это время?
|
|
|
|
|
RE: Нужна помошь по Pascal - 2008-02-20 04:02:49.003333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Да. Что ни говори, а девушкам помогать надо. Хотя у нас в технаре на 4-м курсе язык ассемблера знали все, даже девушки. Просто препод хорошо объяснял и у него халява не прокатывала. Но я предпочитаю девушкам объяснять программуху у себя дома… условия лучше ). Можно потом кино какое показать, на диване поваляться (который в разложенном состоянии будет 1.8*2 метров) и т.д.
Только вот моя девушка скоро начнёт больше меня в программухе шарить. Обучил на свою голову…
|
|
|
|
|
|
… юзай ее…