Другие языки программирования и технологии

Народ, у меня практика идет, не успеваю с задачами по Паскалю... Кому не трудно и кто шарит помогите пару задачик решить

Группа заданий If Дано целое число. Если оно является положительным, то прибавить к нему 1, в противном случае вычесть из него 2, вывести полученное число Программный код. Группа заданий Case Дано целое число K . Вывести строку-описание оценки, соответствующей числу K (1-плохо. 2-неудовлетворительно. 3-удовлетворительно. 4-хорошо. 5-отлично). Если K не лежит в диапазоне 1-5, то вывести строку (ошибка)
по первому
program bla-bla-bla
var a: integer;
begin
writeln('chislo');
readln(a)
if a>0 then a:=a+1 else a:=a-2;
writeln(a);
readln;
end.

по второму
program bla-bla-bla
var k: integer;
begin
writeln('chislo');
readln(a)
case k of
1: writeln('ploho');
2: writeln('neud');
3: writeln('ud');
4: writeln('horosho');
5: writeln('otl');
else writeln ('oshibka');
readln;
end.
Марсель Замалиев
Марсель Замалиев
5 900
Лучший ответ
У Дениса небольшая ошибка
5: writeln('otl');
else writeln ('oshibka');

Перед else ; не ставят
Правильно будет
5: writeln('otl')
else writeln ('oshibka');
Юрий
Юрий
29 246
Не стыдно вам самому не решить эти задачи ?!
№1
Program aa;
Uses crt;
Var
n: integer;
f: real;
Begin
write ('Введите число: '); readln (n);
if n>=0 then
inc(n)
else
n:=n-2;
write ('Ответ: ',n)
End.

№2
Program aa;
Uses crt;
Var
K: integer;
Begin
write ('Введите оценку: '); readln (k);
case k of
1: write ('Плохо');
2: write ('Неудовлетворительно');
3: write ('Удовлетворительно');
4: write ('Хорошо');
5: write ('Отлично')
else
write ('Ошибка');
end
End.
Orxan Valizade
Orxan Valizade
2 200
1)
var
n: integer;
begin
write('Vvedite chislo: ')
readln(n);
if n > 0 then n := n + 1 else n := n - 2;
writeln(n);
end.

2)
var
k: integer;
begin
write('Vvedite k: ');
readln(k);
case k of
1: writeln('ploho');
2: writeln('neudovletvoritelno');
3: writeln('udovletvoritelno');
4: writeln('horosho');
5: writeln('otlichno');
end;
end.
Михаил
Михаил
1 811
Program one;
var x: integer;

Begin

write('x='); readln(x);

if x>0 then
x:=x+1;

else
x:=x-2;

writeln('x=', x);

End.

Program 2;
var k: integer;

Begin

write('k=');
readln(k);

case k of
1: writeln('ploho');
2: writeln('neudovletvoritelno');
3: writeln('udovletvoritelno);
4: writeln('horosho');
5: writeln('otlichno') ;
else writeln('error');
end;

End.

2 Сали-Мали: Синтаксис case на Pascal

case expression of
values_l: statement_l;
values_2: statement_2;
...
values_n: statement_n;
else
statement;
end;