пожалуйста выручте с программированием,а то егэ запары,а тут еще и училка по инфе напрягает(((если можно с блок схемами ф паинте хоть от руки
2. Пусть дан представленный ниже фрагмент программы. Присвойте переменной t значение true, если месяц m1 предшествует месяцу т2, и значение false в противном случае. Месяцы m1 и т2 принадлежат одному году.
type
month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
var
m1, m2: month;
t: boolean;
3. Пусть дан следующий фрагмент программы:
type
month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
var
m1, m2: month;
i: integer;
Присвойте переменной m1:
а) название месяца, следующего за месяцем m2 (считайте, что за декабрем идет январь);
б) название k-го месяца после месяца т;
в) название п-го месяца года.
5. Пусть даны описания:
Var
z: ' a'..' z';
date: 1. .31;
digit: '0' ..'9';
month: 1..12;
Допустимы ли операторы?
Date := 1:2:31
month := ord( digit )
month := ord(month )
for z .:= 'a' to 'z' do
for month := 6 to 31 do
read(month).
Writeln(z)
8. Определите значения переменных р и d после выполнения операторов:
р := true;
d := 1;
case k mod 10 of
3, 2, 7, 5: d := k;
1: ;
4,8: begin
p := false;
d := 2
end;
9, 6: begin
p := false;
d := 3
end
end;
если переменная k имеет значение:
а) 6;
б) 235;
в) 71.
12. Восстановите условие задачи:
program symbols;
var
n, k0, k1, k2: integer;
ch:char;
begin
k0:=0;
k1:=0;
k2:=0;
read(Ch);
while Ch <> '.' do
begin
n:=ord(Ch) – ord('A');
case n of
0: k0:=k0+1;
1: k1:=k1+1;
2: k2:=k2+1
end;
read(Ch)
end;
readln;
writeln (k0, k1, k2);
end.
16. В следующем фрагменте программы по значению переменной типа Country (название страны) присвоить переменной типа Capital название столицы этой страны.
type
Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, ФРГ);
Capital = (Вена, София, Афины, Рим, Осло, Париж, Бонн); [Ответ]

имхо Паскаль ужас... попроси на другом языке сделать скажем пхп) [Ответ]

Сообщение от MyJIbTuK:
имхо Паскаль ужас

и я про то же но мне надо на паскале [Ответ]

Сообщение от dkuzechkin:
2. Пусть дан представленный ниже фрагмент программы. Присвойте переменной t значение true, если месяц m1 предшествует месяцу т2, и значение false в противном случае. Месяцы m1 и т2 принадлежат одному году.
type
month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
var
m1, m2: month;
t: boolean;

точно не помню, но должно работать как t:=m1<m2; [Ответ]

Сообщение от dkuzechkin:
3. Пусть дан следующий фрагмент программы:
type
month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
var
m1, m2: month;
i: integer;

Сообщение от dkuzechkin:
Присвойте переменной m1:
а) название месяца, следующего за месяцем m2 (считайте, что за декабрем идет январь);

m1=m2+1;

Сообщение от dkuzechkin:
б) название k-го месяца после месяца т;

m1=т+k;

Сообщение от dkuzechkin:
в) название п-го месяца года.

m1=n;

зы: возможно это бред, во всяком случае что-то наподобие там было [Ответ]

Сообщение от dkuzechkin:
12. Восстановите условие задачи:
program symbols;
var
n, k0, k1, k2: integer;
ch:char;
begin
k0:=0;
k1:=0;
k2:=0;
read(Ch);
while Ch <> '.' do
begin
n:=ord(Ch) – ord('A');
case n of
0: k0:=k0+1;
1: k1:=k1+1;
2: k2:=k2+1
end;
read(Ch)
end;
readln;
writeln (k0, k1, k2);
end.

что то из раздела "посчитать число букв А, Б, В в предложении" [Ответ]

Сообщение от dkuzechkin:
16. В следующем фрагменте программы по значению переменной типа Country (название страны) присвоить переменной типа Capital название столицы этой страны.
type
Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, ФРГ);
Capital = (Вена, София, Афины, Рим, Осло, Париж, Бонн);

a: Country;
b: Capital;

b=a;//должно работать [Ответ]

Сообщение от dkuzechkin:
5. Пусть даны описания:
Var
z: ' a'..' z';
date: 1. .31;
digit: '0' ..'9';
month: 1..12;
Допустимы ли операторы?

Сообщение от dkuzechkin:
for z .:= 'a' to 'z' do

да

Сообщение от dkuzechkin:
for month := 6 to 31 do

нет

Сообщение от dkuzechkin:
Date := 1:2:31
month := ord( digit )
month := ord(month )
read(month).
Writeln(z)

незнаю [Ответ]

Сообщение от dkuzechkin:
8. Определите значения переменных р и d после выполнения операторов:
р := true;
d := 1;
case k mod 10 of
3, 2, 7, 5: d := k;
1: ;
4,8: begin
p := false;
d := 2
end;
9, 6: begin
p := false;
d := 3
end
end;
если переменная k имеет значение:

если mod означает остаток от деления , тогда:

Сообщение от dkuzechkin:
а) 6;

p := false;
d := 3

Сообщение от dkuzechkin:
б) 235;

p := true;
d := 5;

Сообщение от dkuzechkin:
в) 71.

р := true;
d := 1; [Ответ]

Сообщение от dkuzechkin:
2. Пусть дан представленный ниже фрагмент программы. Присвойте переменной t значение true, если месяц m1 предшествует месяцу т2, и значение false в противном случае. Месяцы m1 и т2 принадлежат одному году.
type
month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
var
m1, m2: month;
t: boolean;

t:=(m1<m2)

Сообщение от dkuzechkin:
3. Пусть дан следующий фрагмент программы:
type
month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
var
m1, m2: month;
i: integer;
Присвойте переменной m1:
а) название месяца, следующего за месяцем m2 (считайте, что за декабрем идет январь);
б) название k-го месяца после месяца т;
в) название п-го месяца года.

a)
if m2=dec then
m1:=Jan
else m1:=succ(m2)
b)
{насчет этого не уверена, можнт случиться, что такое работает только в дельфях}
i:=ord(m2)+k;
if i<=11 then
m2:=month(i)
else m2:=month(i-12);
c)
{опять же, надо проверять, работает ли преобразование интеджера в month в Паскале. Если нет--то придется прописывать тупо кейс, ну или как вариант, сделать массив y:array[1..12] of month и присваивать значение y[i]}
m2:=month(n-1);

Сообщение от dkuzechkin:
5. Пусть даны описания:
Var
z: ' a'..' z';
date: 1. .31;
digit: '0' ..'9';
month: 1..12;
Допустимы ли операторы?
Date := 1:2:31
month := ord( digit )
month := ord(month )
for z .:= 'a' to 'z' do
for month := 6 to 31 do
read(month).
Writeln(z)

допустимы=пропустит ли компилятор? Или допустимы=корректны? (считаю, что 1-е)
Date := 1:2:31 нет,
month := ord( digit ) да, но будет ошибка, если digit='0';
month := ord(month ) да, но будет ошибка, если month=1;
for z .:= 'a' to 'z' do да(если считать, что точка после z- опечатка)
for month := 6 to 31 do нет
read(month). нет
Writeln(z) да

Сообщение от dkuzechkin:
8. Определите значения переменных р и d после выполнения операторов:
р := true;
d := 1;
case k mod 10 of
3, 2, 7, 5: d := k;
1: ;
4,8: begin
p := false;
d := 2
end;
9, 6: begin
p := false;
d := 3
end
end;
если переменная k имеет значение:
а) 6;
б) 235;
в) 71.

а)p := false;
d := 3
б)p := true;
d := 5
в)р := true;
d := 1;

Сообщение от dkuzechkin:
12. Восстановите условие задачи:
program symbols;
var
n, k0, k1, k2: integer;
ch:char;
begin
k0:=0;
k1:=0;
k2:=0;
read(Ch);
while Ch <> '.' do
begin
n:=ord(Ch) – ord('A');
case n of
0: k0:=k0+1;
1: k1:=k1+1;
2: k2:=k2+1
end;
read(Ch)
end;
readln;
writeln (k0, k1, k2);
end.

Дан текст, заканчивающийся точкой. Посчитать кол-во заглавных букв A B C в этом тексте.

Сообщение от dkuzechkin:
16. В следующем фрагменте программы по значению переменной типа Country (название страны) присвоить переменной типа Capital название столицы этой страны.
type
Country = (Австрия, Болгария, Греция, Италия, Норвегия, Франция, ФРГ);
Capital = (Вена, София, Афины, Рим, Осло, Париж, Бонн);

Var Cap: capital;
Coun:Country;
begin
.....
Cap:=capital(ord(Coun));
....
end.


А вообще, паскаль учить надо... [Ответ]

Оля-ля, ну я пАчти угадал xD [Ответ]

огромное вам спасибо,завтра покажу посмотрим что она скажет [Ответ]