Program Table;
uses math; //подключаем математический модуль, возможно с модулем я ошибся
var // объявляем локальные переменные для программы
a , b, h : Real; //указывает дробный тип числа
function calculate_f( x: Real) : Real; //объявляем функцию в теле программы
begin
calculate_f := 1/2*sin(x/4+1) ; //записываем результат вычисления в функцию
end;
Begin
a := -0.99; //определяем
b := 50.0; //вводные
h := 0.1; //значения
while a < b do begin //пока "a" меньше "b"
writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку
a := a + h; //прибавляем шаг "h"
end;
end.
Я могу и ошибиться, потому что писал на Паскале оочень давно :D
Поэтому Вам прийдется поправить некоторые ошибки в коде.
Задание №1
CLS
DIM
A(20), B(20)
DATA
-6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6
FOR i =
1 TO 8
READ
A(i)
PRINT i,
A(i)
NEXT i
PRINT
"----------------------"
FOR i
= 1 TO 8
B(i) =
A(i) * 5
PRINT
i, B(i)
NEXT i
PRINT
"----------------------"
FOR i
= 1 TO 8
PRINT
i, A(i) * B(i)
NEXT i
PRINT
"----------------------"
i = 5
PRINT
i, A(i)
i = 1
PRINT i, B(i)
<span>Задание
№2
</span>
CLS
INPUT
"vvod A"; A
c1 =
INT(A / 1000)
A = A -
1000 * c1
c2 =
INT(A / 100)
A = A -
100 * c2
c3 =
INT(A / 10)
c4 = A -
10 * c3
S$ =
"No"
IF c1 =
c2 THEN S$ = "Es"
IF c1 =
c3 THEN S$ = "Es"
IF c1 =
c4 THEN S$ = "Es"
IF c2 =
c3 THEN S$ = "Es"
IF c2 =
c4 THEN S$ = "Es"
IF c3 =
c4 THEN S$ = "Es"
<span>PRINT
S$, c1, c2, c3, c4
</span>
В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5];
Начало
Ввод g
d=g
c=d
b=c
a=b
Вывод а
Конец
Или
Ввод g
i=g
a=i
Вывод а
Да вариантов в принципе много
Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.
