Архив форума ЛГ - Помогите) (нужны ток програмеры)

Помогите) (нужны ток програмеры)

Мамонт-Старший

Назад к темам раздела.

2009-02-12 14:13:58

Мамонт-Старший

Что будет выведено на дисплей после выполнения приведенной программы на языке Pascal?

var x, y: integer;
begin
x:= 11; y:= 17;
x:= x and y;
y:= y xor x;
x:= x or y;
writeln ('x=', x, ' y=', y);
readln;
end.

var a, b, k: intеgеr;
bеgin
a:= 23;
b:= 5;
k:= 0;
whilе a <> b do
bеgin
if a < b thеn b:= b - a
еlsе a:= a - b;
k:= k + 1;
еnd;
writеln(k);
еnd.

Дан массив mas[1..10]: = 1,3,-1,4,0,-4,-4,3,0,-4. Укажите, чему будет равно k после выполнения алгоритма. В ответе укажите число.

n:= 10;
m:= mas[1];
k:= 5;

for i:= 2 to n do
begin
if mas[i] > m then
k:= k + 1
else
if mas[i] = m then
k:= k - 1
else
begin
m:= mas[i];
k:= 1;
end;
end;

2009-02-12 14:16:23

Dorigos

трёхзначный числовой код синей кириллицы автогена.

2009-02-12 16:38:26

cassiopella

Мамонт-Старший
везет же вам... дают уже все готовенькое. А вот мы писали ручкой... и если что-то не там, то вся программа не верна и карисенький "нолик" как оценка.

2ое очень легкое. 1 и 3 погугли. Если погугли... Если к вечеру не найдешь, дам ответы.

2009-02-12 16:40:33

H3R0

во втором вроде быстро выведется 1 и исчезнет о_О

а ваще не пробовал в паскале написать и вывести ?)

2009-02-12 16:42:14

seal

это задачи для 3го класса, только не в матиматическом языке, а на компютерном. даже компилить не надо, чтоб дать результат. книги читай.

2009-02-12 16:43:18

seal

еще и не постандартам написаные

2009-02-12 16:46:08

H3R0

запустил вторую прогу короче, она быстро 7 выводит.

2009-02-12 16:46:51

cassiopella

H3R0
во во

кстати во втором будет "к"=7
а=23-5 и к=1; а=13 и к=2; а=8 и к=3; а=3 и к=4; б=2 и к=5; а=1 и к=6; б=1 и к=7. Хепи энд.

2009-02-12 16:49:37

справедливый

Мамонт-Старший-денег дашь,напишу ответы=)
задачки 1 класса=)

2009-02-12 16:52:50

H3R0

cassiopella
интересно, без readln специально написали ? о_О

2009-02-12 16:57:05

cassiopella

H3R0
слушай а запусти остальные.. а то мне лень думать.... 3 года назад это было.....

2009-02-12 16:59:53

H3R0

cassiopella
ща

2009-02-12 17:01:27

H3R0

cassiopella
x=17 y=16 первая

2009-02-12 17:04:06

H3R0

а третье чота я непонял о_О я массивы ещё не проходил 8)

2009-02-12 17:05:51

cassiopella

H3R0
интересно как там математически х стало 17 ( ну ладно это понятно), а у=16. А 3ие... просто копирни программу и скажи что выдает. Я кстати тоже не помню массивов

2009-02-12 17:14:29

PAYNE

Улыбнуло

2009-02-12 17:16:19

H3R0

cassiopella писал(а):

просто копирни программу и скажи что выдает.

просит Бегин, а после бегина надо ещё явно массив описать, а я этого делать не умею

2009-02-12 17:24:56

Gogol

H3R0
cassiopella

Пускай сам учится.. чего вы ему помогаете?..
Если сам не поймет ничего не сделает потом сам...

2009-02-12 17:31:48

cassiopella

Gogol
да я вообще не понимаю, как с такими заданиями можно что-то понять и выучить. пусть даже это экзамен/контрольная

2009-02-12 17:39:05

Т-34

закрыто

2009-02-12 17:39:09

Живчик

Во блин. Универ вспомнил, когда достал паскаль. и до 4 утра сидел всякие задачи писал методом проб и ошибок. Сидел перед экзаменом. Зато на экз за мин 5-10 написал и сдал на 5.