Предмет: Информатика,
автор: Алиса20040904
Написать программу для pascal. Решить 8 и 9 используя условный оператор
Приложения:
Ответы
Автор ответа:
1
8.
var s: string[4];
begin
write ('Введите четырёхзначное число: ');
readln(s);
if (s[1]='0') or (s[2]='0') or (s[3]='0') then writeln(s[4],s[3],s[2],s[1])
else if (s[4]='0') then writeln(s[3],s[2],s[1])
else writeln(s,'0');
readln;end.
Пример:
1.
Введите четырёхзначное число: 1203
3021
2.
Введите четырёхзначное число: 1234
12340
3.
Введите четырёхзначное число: 1230
321
var s: string[4];
begin
write ('Введите четырёхзначное число: ');
readln(s);
if (s[1]='0') or (s[2]='0') or (s[3]='0') or (s[4]='0') then writeln(s[4],s[3],s[2],s[1])
else writeln(s,'0');
readln;
end.
Пример:
1.
Введите четырёхзначное число: 1203
3021
2.
Введите четырёхзначное число: 1234
12340
3.
Введите четырёхзначное число: 1230
0321
9.
var k,b:real;
begin
writeln ('Введите k и b');
read (k,b);
if (k=1) and (b>0) then writeln ('y=x+',b)
else if (k=1) and (b<0) then writeln ('y=x',b)
else if (k=1) and (b=0) then writeln ('y=x')
else if (k=-1) and (b>0) then writeln ('y=-x+',b)
else if (k=-1) and (b<0) then writeln ('y=-x',b)
else if (k=-1) and (b=0) then writeln ('y=-x')
else if (k<>0) and (b>0) then writeln ('y=',k,'x+',b)
else if (k<>0) and (b<0) then writeln ('y=',k,'x',b)
else if (k<>0) and (b=0) then writeln ('y=',k,'x')
else if (k=0) and (b<>0) then writeln ('y=',b)
else if (k=0) and (b=0) then writeln ('y=0')
end.
Пример:
1.
Введите k и b
5 5
y=5x+5
2.
Введите k и b
-5 5
y=-5x+5
3.
Введите k и b
5 0
y=5x
4.
Введите k и b
-5 -5
y=-5x-5
5.
Введите k и b
1 0
y=x
6.
Введите k и b
-1 0
y=-x
var s: string[4];
begin
write ('Введите четырёхзначное число: ');
readln(s);
if (s[1]='0') or (s[2]='0') or (s[3]='0') then writeln(s[4],s[3],s[2],s[1])
else if (s[4]='0') then writeln(s[3],s[2],s[1])
else writeln(s,'0');
readln;end.
Пример:
1.
Введите четырёхзначное число: 1203
3021
2.
Введите четырёхзначное число: 1234
12340
3.
Введите четырёхзначное число: 1230
321
var s: string[4];
begin
write ('Введите четырёхзначное число: ');
readln(s);
if (s[1]='0') or (s[2]='0') or (s[3]='0') or (s[4]='0') then writeln(s[4],s[3],s[2],s[1])
else writeln(s,'0');
readln;
end.
Пример:
1.
Введите четырёхзначное число: 1203
3021
2.
Введите четырёхзначное число: 1234
12340
3.
Введите четырёхзначное число: 1230
0321
9.
var k,b:real;
begin
writeln ('Введите k и b');
read (k,b);
if (k=1) and (b>0) then writeln ('y=x+',b)
else if (k=1) and (b<0) then writeln ('y=x',b)
else if (k=1) and (b=0) then writeln ('y=x')
else if (k=-1) and (b>0) then writeln ('y=-x+',b)
else if (k=-1) and (b<0) then writeln ('y=-x',b)
else if (k=-1) and (b=0) then writeln ('y=-x')
else if (k<>0) and (b>0) then writeln ('y=',k,'x+',b)
else if (k<>0) and (b<0) then writeln ('y=',k,'x',b)
else if (k<>0) and (b=0) then writeln ('y=',k,'x')
else if (k=0) and (b<>0) then writeln ('y=',b)
else if (k=0) and (b=0) then writeln ('y=0')
end.
Пример:
1.
Введите k и b
5 5
y=5x+5
2.
Введите k и b
-5 5
y=-5x+5
3.
Введите k и b
5 0
y=5x
4.
Введите k и b
-5 -5
y=-5x-5
5.
Введите k и b
1 0
y=x
6.
Введите k и b
-1 0
y=-x
Похожие вопросы
Предмет: Английский язык,
автор: chokopaee
Предмет: Биология,
автор: plotnikovmitoslav123
Предмет: Алгебра,
автор: meowww2
Предмет: Биология,
автор: АЛЕНАВИШНЯ123