1. Program tt; var A,B,C,D: Real; begin Writeln ('Введите массу воды в граммах.'); Readln(A); Writeln ('Введите массу соли в граммах.'); Readln(B); D := B+A; C := B/A; Writeln ('Массовая доля соли в раствворе - ',C,'.'); End. 2. Program tt; var A,B,PL,Per: Real; begin Writeln ('Введите длинну первого катета.'); Readln(A); Writeln ('Введите длинну второго катета.'); Readln(B); PL := (B*A)/2; PER := sqrt(B*B+A*A)+A+B; Writeln ('Площадь - ',PL,'.'); Writeln ('Периметр - ',PER,'.'); End.
Інформатика - дуже сучасна галузь знань. Ми вивчаємо її в школі, як предмет, але не тільки. Навіщо потрібна інформатика? У сучасному світі ми щодня стикаємося з новітніми технологіями. У мене вдома є комп'ютер, підключений до Інтернету. Коли я шукаю що-небудь в Інтернеті або пишу другу повідомлення, то використовую досягнення інформатики.
Навколо нас - море інформації, а наука інформатика якраз вирішує питання, як управляти цим морем. Тому вона і носить таку назву. Без досягнень інформатики не існувало б комп'ютерів, Інтернету та інших нових технологій, які вже стали для нас звичні. Не було б навіть обчислювальних машин, які можуть виробляти складні розрахунки за частки секунди. А розрахунки потрібні скрізь: на виробництві, в банках, на лініях транспорту. Життя було б набагато складніше, якби інформатика не розвинулася до такого рівня, як зараз.
Не було б пошукових систем, за до яких зараз можна відшукати потрібну інформацію. Я не кажу, що можна знайти будь-яку інформацію про будь-яку людину, тому що в світі завжди залишаються таємниці і секрети. Але більшість інформації, корисної в навчанні та повсякденному житті, знайти можна. Ну, і море всякого цікавого теж. Ще років двадцять тому для цього довелося б йти в бібліотеку і ритися там півдня.
Виникає питання, навіщо вивчати інформатику всім школярам? Адже далеко не всі стануть програмістами, системними адміністраторами, веб-дизайнерами? Напевно, сенс цього в тому, щоб всі розуміли, з чим вони стикаються щодня, як це діє. Адже не дарма наш час називається інформаційною епохою.
Program tt;
var A,B,C,D: Real;
begin
Writeln ('Введите массу воды в граммах.'); Readln(A);
Writeln ('Введите массу соли в граммах.'); Readln(B);
D := B+A;
C := B/A;
Writeln ('Массовая доля соли в раствворе - ',C,'.');
End.
2.
Program tt;
var A,B,PL,Per: Real;
begin
Writeln ('Введите длинну первого катета.'); Readln(A);
Writeln ('Введите длинну второго катета.'); Readln(B);
PL := (B*A)/2;
PER := sqrt(B*B+A*A)+A+B;
Writeln ('Площадь - ',PL,'.');
Writeln ('Периметр - ',PER,'.');
End.
Навколо нас - море інформації, а наука інформатика якраз вирішує питання, як управляти цим морем. Тому вона і носить таку назву. Без досягнень інформатики не існувало б комп'ютерів, Інтернету та інших нових технологій, які вже стали для нас звичні. Не було б навіть обчислювальних машин, які можуть виробляти складні розрахунки за частки секунди. А розрахунки потрібні скрізь: на виробництві, в банках, на лініях транспорту. Життя було б набагато складніше, якби інформатика не розвинулася до такого рівня, як зараз.
Не було б пошукових систем, за до яких зараз можна відшукати потрібну інформацію. Я не кажу, що можна знайти будь-яку інформацію про будь-яку людину, тому що в світі завжди залишаються таємниці і секрети. Але більшість інформації, корисної в навчанні та повсякденному житті, знайти можна. Ну, і море всякого цікавого теж. Ще років двадцять тому для цього довелося б йти в бібліотеку і ритися там півдня.
Виникає питання, навіщо вивчати інформатику всім школярам? Адже далеко не всі стануть програмістами, системними адміністраторами, веб-дизайнерами? Напевно, сенс цього в тому, щоб всі розуміли, з чим вони стикаються щодня, як це діє. Адже не дарма наш час називається інформаційною епохою.