Https://storymaps.arcgis.com/stories/aae56d53636949b6b32eda2019330b24
https://storymaps.arcgis.com/stories/6781313018ab42ddb386f616981a65a5

Паскаль
Var   a,b,h: double;
Begin 
   write('Введите a: ');  read(a);   
   write('Введите b: ');  read(b); 
   write('Введите h: ');  read(h); 
   writeln(''); 
   writeln('|    x    |                F(x)                       |'); 
   writeln('|||'); 
   while a <= b do begin   
       writeln('|',a:5,'|', a-abs(cos(a)):20,'|');   
       a:= a + h;   
   end; 
   write('|||');
end.
С#
class Program   
{       
   static void Main(string[] args)       
   {           
      Console.Write("Введите a: ");           
      double a = Convert.ToDouble(Console.ReadLine());           
      Console.Write("Введите b: ");           
      double b = Convert.ToDouble(Console.ReadLine());           
      Console.Write("Введите h: ");           
      double h = Convert.ToDouble(Console.ReadLine());           
      Console.WriteLine(" ");           
      Console.WriteLine("|    x     |             F(x)            |");
      Console.WriteLine("|||");           
      while (a <= b)           
      {               
          Console.WriteLine("|{0,5}|{1,15:0.000000000|}", a, a-Math.Abs(Math.Cos(a)));
          a += h;           
      }           
      Console.WriteLine("|||");           
      Console.ReadLine();       
      }   
}
C/C++
#include "stdafx.h"
#include "locale.h"
#include "stdlib.h"
#include <math.h>
#include <iostream>
using namespace std;
int main()
{
   double a=0,b=0,h=0;
   setlocale(0,"russian");
   printf("Введите a: ");   
   cin >> a;   
   printf("Введите b: ");   
   cin >> b;   
   printf("Введите h: ");   
   cin >> h;   
   printf(" \n");   
   printf("|    x    |          F(x)                |\n");   
   printf("|||\n");   
   while (a <= b)   
   {
       printf("|%5.2f|%14.9f|\n", a, a-abs(cos(a)));
       a += h;
   }
   printf("|||\n");
   system("pause");
}

{ Использован код горизонтальной табуляции
 09 для выравнивания вывода }
var
  a,b,h,x:real;
begin
  Write('введите a,b,h: '); Read(a,b,h);
  x:=a;
  while x<=b do begin
    Writeln(x,#09,#09,4*sin(x*x)+cos(x));
    x:=x+h
    end
end.

Пример
введите a,b,h: -2.15 1.7 0.38
-2.15        -4.53120848610505
-1.77        -0.163118638139122
-1.39        3.92156008975769
-1.01        3.9405021385098
-0.63        2.35427225489945
-0.25        1.21874969308017
0.13        1.05915867588807
0.51        1.90145326606337
0.89        3.47673114723651
1.27        4.29273595805526
1.65        1.54860630059752