Паскаль-задачи

[natulika]

Паскаль-задачи

Помогите пожалуйста, а то завтра этот экзамен решает учусь я дальше в политехе или нет (((

 

[natulika]

нужно только первое фото

 

[MrSTEP]

А на кого учитесь?

 

[natulika]

ивт програмист

 

[MrSTEP]

Извините за прямоту, но какой же из вас программист, если вы не можете решать довольно несложные задачи? Смысл тогда учиться? Еще раз извините, но... Электрику я бы такое простил, но не программисту.

 

[natulika]

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

 

[shrek=)]

5

const n=10;
var a:array[1..n] of real;
i, x: integer;
begin
write('enter x ');
read(x);
randomize;
for i:=1 to n do begin
a[i]:=random*30-20;
if a[i]<0
then a[i]:=a[i]+x;
write(a[i]:2:1,' ');
end;
readln
end.

 

[shrek=)]

9

const n=10;
var a:array[1..n] of integer;
i, p: integer;
begin
write('enter p ');
read(p);
randomize;
for i:=1 to n do begin
a[i]:=random(100)+1;
write (a[i]:3);
end;
writeln;
for i:=1 to n do begin
if a[i]>p
then a[i]:=0;
write (a[i]:3);
end;
readln;
readln
end.

 

[MrSTEP]

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

В любом случае, слишком большой объем работы "до завтра"...

 

[shrek=)]

10

const m=10;
var a:array[1..m] of real;
i: integer;
begin
randomize;
for i:=1 to m do begin
a[i]:=random*100;
if a[i]>a[5]
then a[i]:=a[i]/2;
write (a[i]:2:1,' ');
end;
readln
end.

 

[Dram]

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

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

 

[Max]

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

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

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

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

 

[natulika]

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

 

[shrek=)]

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

 

[natulika]

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

 

[shrek=)]

Ну, а это уже притензии не к нам, а к вашему учителю информатики.
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=)]

Задача 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=)]

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.