Другие языки программирования и технологии
Народ, у меня практика идет, не успеваю с задачами по Паскалю... Кому не трудно и кто шарит помогите пару задачик решить
Группа заданий 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.
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: writeln('otl');
else writeln ('oshibka');
Перед else ; не ставят
Правильно будет
5: writeln('otl')
else writeln ('oshibka');
5: writeln('otl');
else writeln ('oshibka');
Перед else ; не ставят
Правильно будет
5: writeln('otl')
else writeln ('oshibka');
Не стыдно вам самому не решить эти задачи ?!
№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.
№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.
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.
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.
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;
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;
Похожие вопросы
- Pascal. Помогите пожалуйста решить задачу в паскале !
- Помогите решить задачи по Паскалю
- помогите решить задачу на паскале: напечатать "столбиком" значения sin2, sin3, ..sin 20.
- кто может решить и кому не лень помогите с задачей по паскалю, сам плохо с двумерными массивами лажу
- Пожалуйста, народ, помогите как можно быстрее решить хотя бы одну из задач Турбо Паскаля.
- Помогите,пожалуйста,решить задачу в Паскале.
- Помогите решить задачу в паскале
- Помогите решить задачу на паскале
- ПОМОГИТЕ С ЗАДАЧАМИ В ПАСКАЛЕ
- Помогите решить задачу в паскале. Задание: Заменить в строке все вхождения "да" на "нет".