03.03.2002 - Арабскими
lll.lll.MMll - Римскими
FORTRAN 90
На паскаль переводится очень легко
program for_znanija
implicit none
real :: a,b,dx,x,f
integer :: k
print *,'Введите левую границу'
read *, a
print *,'Введите правую границу'
read *, b
print *, 'Введите шаг'
read *, dx
x=a
k=0
do while (x<=b)
print '(a,f5.2,a,f8.4)','При x=',x, ' значение функции f=',f
f=tan(x)
x=x+dx
enddo
end
На скриншоте тоже моя программа, но написана ранее, поэтому там есть небольшие изменения.
Справа проверка на работоспособность. Функция tg(x).
Нужно понять причину ошибки. Исправить её. Провести тестирование. Убедиться что проблема решена.
Var n,i:integer;
a:array[1..1024] of integer;
begin
randomize;
write('N=');
readln(n);
for i:=1 to n do
a[i]:=random(2*n+1)-n;
write('V pramom poradke - ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('V obratnom poradke - ');
for i:=n downto 1 do
write(a[i],' ');
writeln;
<span>end.</span>
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>