Паскаль-задачи - Страница 2

Dram · 23.01.2011, 20:07

Цитата:

Сообщение от natulika

ну извените я только на 1 курсе и нам там почти не чего не объясняли т.к программа сокращенная

офф
Кстати подержу,тоже ученик ИВТ. и нам на первом курсе паскаль очень сжато "давали". только народ что после колледжей успешно справлялся с тем что задавали. Те кто после простых школ буксовали конкретно.
по задачкам они однотипные все, практически. можно найти подобные у нас на форуме немного "под шаманить" код и готово.

Max · 23.01.2011, 20:08

Не могу не согласиться с Алексеем (MrSTEP), ведь:

Цитата:

Сообщение от natulika

завтра этот экзамен решает учусь я дальше в политехе или нет

если не можешь самостоятельно решить задание, тогда какой смысл учиться дальше?

Dram
Когда получишь диплом и устроишься на работу, там тебе дадут задание, которое не объясняли в "политехе" и что тогда?
Программист не должен ориентироваться по шаблону, на то он и программист. А первый курс, своего рода, испытательный.

natulika · 23.01.2011, 20:19

Dram
ВОТ И У НАС ТАК ЖЕ )

shrek=) · 23.01.2011, 20:22

Я не знаю как на счет первого курса, но программы которые я выкладывал писал ученик 10 класса, изучающий программирование с 8 класса. И ни каких сложностей в решении простейших задач не нашел.

natulika · 23.01.2011, 20:24

у меня допустим в школе программирования не было вообще мы просто сидели наберали тексты в ворде .

shrek=) · 23.01.2011, 20:34

Ну, а это уже притензии не к нам, а к вашему учителю информатики.
4

Код:

const n=10;
var a:array [1..n] of integer;
i, p: integer;
begin
randomize;
p:=1;
for i:=1 to n do begin
a[i]:=random(30)-20;
if a[i]>0
then p:=p*a[i];
end;
write(p);
readln
end.

shrek=) · 23.01.2011, 20:46

Задача 8 с рисунка:

Код:

const n=10;
var a:array [1..n] of integer;
i,p:integer;
begin
randomize;
p:=0;
for i:=1 to n do begin
a[i]:=random(30)-20;
if (a[i] mod 4=0) and (a[i]>0)
then p:=p+a[i];
end;
write(p);
readln
end.

shrek=) · 23.01.2011, 21:16

2

Код:

var a:array [1..1000] of integer;
n,m,i,p:integer;
begin
write('enter n ');
read(n);
write('enter m ');
read(m);
p:=0;
for i:=n to m do begin
a[i]:=i;
end;
while n<>m+1 do begin
if a[n] mod 2<>0
then inc(p);
inc(n);
end;
write(p);
readln
end.

23.01.2011, 20:34	#16 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Ну, а это уже притензии не к нам, а к вашему учителю информатики. 4 Код: const n=10; var a:array [1..n] of integer; i, p: integer; begin randomize; p:=1; for i:=1 to n do begin a[i]:=random(30)-20; if a[i]>0 then p:=p*a[i]; end; write(p); readln end.

23.01.2011, 20:46	#17 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Задача 8 с рисунка: Код: const n=10; var a:array [1..n] of integer; i,p:integer; begin randomize; p:=0; for i:=1 to n do begin a[i]:=random(30)-20; if (a[i] mod 4=0) and (a[i]>0) then p:=p+a[i]; end; write(p); readln end.

23.01.2011, 21:16	#18 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	2 Код: var a:array [1..1000] of integer; n,m,i,p:integer; begin write('enter n '); read(n); write('enter m '); read(m); p:=0; for i:=n to m do begin a[i]:=i; end; while n<>m+1 do begin if a[n] mod 2<>0 then inc(p); inc(n); end; write(p); readln end.

23.01.2011, 20:07
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	К вашему вниманию аналогичные обсуждения Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль, три задачи на массивы Решение задачи. Паскаль Две задачи. Паскаль Помогите решить задачи на Паскаль

23.01.2011, 20:19	#13 (permalink)
natulika Member Регистрация: 12.01.2011 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Dram ВОТ И У НАС ТАК ЖЕ )

23.01.2011, 20:22	#14 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Я не знаю как на счет первого курса, но программы которые я выкладывал писал ученик 10 класса, изучающий программирование с 8 класса. И ни каких сложностей в решении простейших задач не нашел.

23.01.2011, 20:24	#15 (permalink)
natulika Member Регистрация: 12.01.2011 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	у меня допустим в школе программирования не было вообще мы просто сидели наберали тексты в ворде .

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070