Паскаль
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");
}
4^4 =256 (мало, не хватает до 300)
4^5 =1024 -----> 5 лампочек
program MassaProg;
uses crt;
var factmassa, heigth: integer;
var massa: real;
begin
writeln('Vvedite rost v santimetrah: ');
readln(heigth);
writeln('Vvedite ves: ');
readln(factmassa);
massa:=heigth-100-0.1*(170-100);
if massa = factmassa
then writeln('Vash ves idealnii') else writeln('Vash ves ne idealnii');
end.
4) Мышь!
При подключение она просто начинает работать
var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>9)and(a<99) then
s:=s+a;
until a=0;
writeln(s);
end.
