Вычислить значение выражения

@WMC · Регистрация: 15.11.2011

Author24 — интернет-сервис помощи студентам

Решите пожалуйста,обязательно с repeat.
1. Вводятся числа до тех пор, пока не введется 0. Определить, сколько среди них целых чисел.

2.Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h. Результат представить в виде двух столбцов, первый столбец которой — значения аргумента, вто¬рой — соответствующие значения функции

3.Дано действительное x. Вычислить:

@crachka · 25.11.2011, 21:04

1)

Pascal

var a:real;
begin
repeat
read(a);
until a=0;
end.

@Gxost · 26.11.2011, 12:10

3

Pascal

var
a,b:real;
n:integer;
begin
readln(n);
b:=1;
if n>=2 then
begin
repeat
b:=b+1;
a:=1-(1/sqr(b));
a:=1*a;
until n=b;
writeln(a);
end
else writeln('n<2');
end.

Добавлено через 15 минут
1

Pascal

uses crt;
var
a:real;
b:integer;
begin
b:=0;
repeat
readln(a);
if frac(a)=0 then  inc(b);
until a=0;
writeln('Целых чисел',b);
end.

@WMC · 27.11.2011, 14:22 **[ТС]**

А с функцией помогите пожалуйста кто-нибудь??

Вычислить значение выражения

Решение

Решение

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192
		1
	Вычислить значение выражения 23.11.2011, 14:31. Показов 1159. Ответов 3 Метки нет (Все метки) Решите пожалуйста,обязательно с repeat. 1. Вводятся числа до тех пор, пока не введется 0. Определить, сколько среди них целых чисел. 2.Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h. Результат представить в виде двух столбцов, первый столбец которой — значения аргумента, вто¬рой — соответствующие значения функции 3.Дано действительное x. Вычислить: 0

@WMC 86 / 86 / 1 Регистрация: 15.11.2011 Сообщений: 192
	27.11.2011, 14:22 [ТС]	4
	А с функцией помогите пожалуйста кто-нибудь?? 0