Помогите решить, плз, оооооооооооооооооооооооочень надо! - Форум
Вторник, 06.12.2016, 08:45
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить, плз, оооооооооооооооооооооооочень надо!
Помогите решить, плз, оооооооооооооооооооооооочень надо!
sPnXmДата: Пятница, 27.03.2009, 00:55 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите решить 2 задачки, ооооочень надо:
1)Даны три числа x,y,z. Если (x+y+z)>10, то умножить на 10 наименьшее из x,y,z. Иначе значения x,y оставить без изменения, а у числа z поменять знак на противоположный.
2) Определить, может ли шахматная ладья за один ход попасть из клетки с координатами (x1,y1) в клетку с координатами (x2,y2), Ладья ходит только в горизонтальном или верикальном направлениях.
365177133 - ася
 
zadachkiДата: Пятница, 27.03.2009, 19:09 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
sPnXm,
1)
Code

var x, y, z : integer;
begin
writeln('vvedite x');
readln(x);
writeln('vvedite y');
readln(y);
writeln('vvedite z');
readln(z);

if (x+y+z)>10
then
begin
if(x<=y) and (x<=z) then x:=x*10; {умножаться будут все минимальные числа}
if(y<=x) and (y<=z) then y:=y*10;
if(z<=x) and (z<=y) then z:=z*10;
end
else z:=-z;
writeln('x=',x,' y=',y,' z=',z);
readln;
end.
 
zadachkiДата: Пятница, 27.03.2009, 19:15 | Сообщение # 3
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
2)
Code

var x1, y1, x2, y2 : integer;
begin
writeln('vvedite x1');
readln(x1);
writeln('vvedite y1');
readln(y1);
writeln('vvedite x2');
readln(x2);
writeln('vvedite y2');
readln(y2);
{ладья идет по оси y или по оси x}
if (x1=x2) or (y1=y2)  
  then writeln('Moget!')
  else writeln('Ne moget');
readln;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить, плз, оооооооооооооооооооооооочень надо!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016