Вивчили принцип роботи в графічному режимі.
Зміст
Лінійна програма на Паскаль
Програма з ветвлениями
Циклічна програма
Масиви
Процедури і функції
Файлові дані в Паскалі
Записи в Паскалі
Рядки
Графіка в Турбо-Паскалі
Лінійна програма на Паскаль
Завдання 1. Скласти алгоритм обчислення y = 55 * (a + b)
program as; Блок-схема
uses crt;
var a, b, c, y: integer;
begin clrscr;
writeln ('Введи значення a, b);
readln (a, b);
C: = A + B
c: = a + b;
y: = 55 * c;
writeln ('y =', y);
Y: = 55 * C
readln;
end.
В
(Вводимо значення 5,3)
Відповідь: 440
Завдання 2. Скласти алгоритм обміну значень 2х змінних A і B
program as; Блок-схема
uses crt;
var a, b, c: integer;
begin clrscr;
writeln ('Введи значення a, b ');
readln (a, b);
c: = a;
C: = A;
A: = B;
B: = C;
a: = b;
b: = c;
writeln ('obmen', a, '-', b);
readln;
end.
(Вводимо значення 5,6)
Відповідь: 6,5
Завдання 3. Обчислити площу городу, що має форму прямокутника, якщо відомі сторони А і В
program as; Блок-схема
uses crt;
var a, b, c: integer;
begin clrscr;
writeln ('Введи сторони А і В ');
readln (a, b);
C: = (A + B) * 2
c: = (a + b) * 2;
writeln ('Площа городу = ', c);
readln;
end.
В
(Вводимо значення 5,6)
Відповідь: 22
Завдання 4. Знайти середнє арифметичне чисел x, y, z
program as; Блок-схема
uses crt;
var x, y, z: integer; d: real;
begin clrscr;
writeln ('Bведі x, y, z');
readln (x, y, z);
D: = (X + Y + Z)/3
d: = (x + y + z)/3;
writeln (d: 5:2);
readln;
end. br/>
(Вводимо значення 5,6,7)
Відповідь: 6.00
Завдання 5.Найті масу х літрів молока, якщо відомо, що щільність молока р кг/м 3
program as; Блок-схема
uses crt;
var x, p, m: real;
begin clrscr;
writeln ('Bведі х (літри), р (щільність) молока');
М: = Х
/100 * Р В В В В В readln (x, p);
m: = x/100 * p;
writeln (m);
readln;
end.
В
(Вводимо значення 7л, 1030кг/м 3 )
Відповідь: 7,21 кг
Завдання 6.Об'ем циліндра дорівнює V , а площа основи - S . Яка висота циліндра H ? br/>
program as; Блок-схема
uses crt;
var v, s, h: real;
begin clrscr;
writeln ('Введи обсяг циліндра і площ. його осн. '); p> readln (v, s);
H: = V/S
H: = v/s;
writeln ('Висота циліндра = ', H);
readln;
end.
(Вводимо значення 10,5)
Відповідь: 2м
Завдання 7.Дана довжина куба а . Знайти об'єм куба v і площа його бічної поверхні s .
В
program as;
uses crt;
var v, s, a: real;
begin clrscr;
V:...
