Turbo Pascal Site

Завдань у вибраних темах: 66

Сторінка 9

Формульний рахунок. Знайти та надрукувати числа.Рішення

Надрукувати суму, суму модулів, модуль суми, різницю, різницю модулів, добуток двох чисел.Рішення

Модератор.Явних помилок тут немає. Зауваження щодо оформлення. Тут вводяться два числа. Я б їх одразу й надрукував. Взагалі вихідні дані краще завжди виводити теж. Далі. Оскільки висновок програми невеликий, пишіть краще все з нового рядка. І пишіть ЩО ви друкуєте. с1 не каже користувачеві нічого. Напишіть "сума"! Замість с2 – "сума модулів" і т.д.

Протабулювати функцію y = sin(x) на відрізку [ab] з кроком h. При введенні чи не відповідних чисел повертатися до введення чисел.Рішення

2. Я не можу сказати, що в Паскалі мітки використовувати не можна. Але робити цього не рекомендується. Будь-яка програма на Паскалі може обійтися без міток! Тому рядки 8-9 я замінив би на такі: writeln(' Function y=sin(x).'); repeat write('Input [a,b];h '); readln(a,b,h); іf (a>=b) writeln('Wrong data. Must be a 0.'); Must be h a) and (h>0) and (b-a>h); x:=a;

3. Розглянемо приклад: коли a,b,h рівні відповідно - 0, 1, 0.2 У цьому випадку trunc((1-0)/0.2) => 5. Дійсно будуть розраховані точки: 0, 0.2, 0.4, 0.6, 0.8. Значення функції правому кінці при b=1 розраховано нічого очікувати. Потрібно додати одне виконання циклу. 10 рядок: for i:=0 to trunc((b-a)/h) do або for i:=1 to 1+trunc((b-a)/h) do. Або використовувати while .. do/ repeat .. until.

Протабулювати функцію y = sin(x) на відрізку [ab] з кроком h. Використати цикл while При введенні не підходятьчисел повертатися до введення чисел.Рішення

01: program Tabff; 02: uses crt; 03: label m; 04: var x, y, a, b, h:real; clrscr; 07: m:readln(a,b,h); x:=a; 08: if h=0 then goto m else if a>b then goto m else 09: while X10: begin 11: y:=sin(x ); 12: writeln('x=',x:6:2,'y=',y:6:2); 13: x:=x+h; 14: end ; 15: readln; 16: end.

---