Чергування нулів та одиниць.
Цілочисловий одновимірний масив з n елементів заповнити нулями та одиницями, починаючи із заданого числа та чергуючи їх.
Введення-виведення.
Ввести два цілі числа – число n і значення першого елемента (0 або 1).
Вивести через пробіл елементи утвореного масиву.
Приклад.
Введення: 4 1
Виведення: 1 0 1 0
var i,n,f:integer; a:array of Byte; begin readln(n,f); SetLength(a,n); for i:=1 to n-1 do begin a[i]:=f; f:=f+1; if f>1 then f:=0; write(a[i],' '); end; readln; end.
З дюймів в метри.
Довжина відрізка задана в дюймах (1 дюйм = 2,54 см). Перевести значення довжини у метричну систему, тобто виразити її у метрах, сантиметрах і міліметрах.
Приклад.
Введення: 21
Виведення: 0 м 53 см 3,4 мм
var d,m,sm,mm:Real; begin readln(d); d:=d*2.54; m:=int(d/100); sm:=int(d-100*m); mm:=(d-100*m-sm)*10; writeln(m:0:0,' м ', sm:0:0 ,' см ', mm:0:1 ,' мм ' ); readln; end.
Цифри окремо
Напишіть програму, яка зчитує трицифрове число і виводить через пропуск кожну цифру окремо.
Приклад.
Введення: 123
Виведення: 1 2 3
var ch,c1,c2,c3:Integer;
begin
readln(ch);
c3:= ch mod 10;
ch:=ch div 10;
c2:= ch mod 10;
c1 := ch div 10;
writeln(c1:1, c2:2, c3:2 );
end.
Тепліший тиждень
Відома середня температура першого тижня грудня та середньодобові температури семи днів другого тижня. Який тиждень видався теплішим? Введення-виведення. Ввести вісім чисел – середню температуру першого тижня та сім значень середньодобових температур другого тижня. Вивести номер тижня з вищою середньою температурою.
Приклад.
Введення: 5 4 5 6 2 5 3 2
Виведення: 1
var s1,s2:real; t:array[1..7] of real; i:Integer; begin read(s1); s2:=0; for i:=1 to 7 do begin read(t[i]); s2:=s2+t[i]; end; s2:=s2/7; if (s1>s2) then write(1) else write(2); readln; end.
Викреслити нулі.
Вилучити з масиву A(n) нульові елементи, пересунувши не їх місце наступні елементи без порушення порядку їх слідування. У результаті повинна утворитися послідовність меншого (або такого ж) розміру, що не містить нулів. Введення-виведення. Ввести число n та n елементів масиву A. Вивести через пробіл елементи зміненого масиву A (без нульових елементів).
Приклад.
Введення: 6 0 7 -8 0 3 5
Виведення: 7 -8 3 5
var
a:Array of Real;
i,j,n:word;
begin
Read(n);
SetLength(a,n+1);
for i:=1 to n do
Read(a[i]);
for i:=1 to n do
if a[i]<>0
then Write (a[i]:0:0,' ');
Readln;
end.
«Косий» квадрат.
У квадрата ABCD на площині відомі координати двох протилежних вершин – точок A і C. Знайти координати точок B і D. Примітка. Розташування квадрата довільне; його сторони не обов’язково паралельні координатним осям.
Введення-виведення.
Ввести чотири числа – по дві координати точок A і C.
Вивести через пробіл чотири числа – по дві координати точок B і D.
Приклад.
Введення: -1 0 1 0
Виведення: 0 1 0 -1
var
x1,y1,x2,y2,x3,y3,x4,y4,xs,ys,d,sin,cos,x,y:Real;
begin
Readln(x1,y1,x3,y3);
xs:=(x1+x3)/2;
ys:=(y1+y3)/2;
x:=x3-x1;
y:=y3-y1;
d:=sqrt(x*x+y*y);
sin:=y/d;
cos:=x/d;
x2:=xs-sin*d/2;
y2:=ys+cos*d/2;
x4:=xs+sin*d/2;
y4:=ys-cos*d/2;
write (x2:0:0,' ',y2:0:0, ' ',x4:0:0, ' ',y4:0:0);
end.