Turbo Pascal

[PLaTiNuM]

Ответ: Turbo Pascal

Кто-то поможет с четвертой задачей?

 

[AkeL.php]

Ответ: Turbo Pascal

if (x<=1) then Z:=sqr(x-1)
else if(x>2) then Z:=sqrt(x-2)
else Z:=2*x;

 

[PLaTiNuM]

Ответ: Turbo Pascal

Это что?Вся задача?

 

[Cris]

Ответ: Turbo Pascal

Проверь правильны ли адркес папки BIN.

да проверял, если неуказано то будет искать в папке которая в Ченж дир(забыл как называется)))

 

[PLaTiNuM]

Ответ: Turbo Pascal

Напишите задани с циклами :

1.Вычеслить сумму и произведение(умножение) всех положительных не четных чисел до 15.

2.Вычеслить положительных целых больших 20,менше 100 и кратным трём.

6.Вывести на экран таблицу перевода длин дюймов в сантиметры для значений от 1 до 10 дюймов с шагом в 1 дюйм.

...... 1 1 1 1 1
3.S=--+--+--+--+-- - Вычеслить сумму ряда
.......2 4 6 8 10

 

[AkeL.php]

Ответ: Turbo Pascal

Достаточно изучить любую книгу по паскалю для начинающих и твои проблемы разрешатся.

 

[PLaTiNuM]

Ответ: Turbo Pascal

Ну напишите!

Akel если б оно мне нада было я б изучил, а мне на информу...

 

[Пух]

Ответ: Turbo Pascal

Напишите задани с циклами :

1.Вычеслить сумму и произведение(умножение) всех положительных не четных чисел до 15.

2.Вычеслить положительных целых больших 20,менше 100 и кратным трём.

6.Вывести на экран таблицу перевода длин дюймов в сантиметры для значений от 1 до 10 дюймов с шагом в 1 дюйм.

...... 1 1 1 1 1
3.S=--+--+--+--+-- - Вычеслить сумму ряда
.......2 4 6 8 10

1-я

program kelbas1;
uses crt;
var sum,pro,i:integer;
begin
clrscr;
pro:=1;
sum:=0;
i:=1;
while i<=15 do
begin
pro:=pro*i;
sum:=sum+i;
inc(i,2);
end;
writeln('sum=',sum);
writeln(pro);
readln;
end.

или

program kelbas1;
uses crt;
var sum,pro,i:integer;
begin
clrscr;
pro:=1;
sum:=0;
for i:=1 to 15 do
if i mod 2 <> 0 then
begin
pro:=pro*i;
sum:=sum+i;
end;
writeln('sum=',sum);
writeln(pro);
readln;
end.

6-я

program kelbas6;
uses crt;
var i,sm:real;
x:byte;
begin
clrscr;
i:=1;
x:=5;
while i<=10 do
begin
sm:=2.54*i;
gotoxy(25,x);
write(i:2:0,' дюйм = ',sm:4:2,' см');
inc(x,2);
i:=i+1;
end;
readln;
end.

2-я

program kelbas2;
uses crt;
var sum,i:integer;
begin
clrscr;
sum:=0;
for i:=20 to 100 do
begin
if i mod 3 = 0 then
sum:=sum+i;
end;
write('sum=',sum);
readln;
end.

3-я

program kelbas3;
uses crt;
var sum,i:real;
begin
clrscr;
sum:=0;
i:=2;
while i<=10 do
begin
sum:=sum+1/i;
i:=i+2;
end;
write('sum=',sum);
readln;
end.

 

[Djmon]

Ответ: Turbo Pascal

Ребята, нужна помощь. Нужно решить задачу: реализовать работу с простейшей базой данных используя типизированные файлы (файлы записей). В программе должны быть предусмотрены соответствуующие процедуры и функции, которые обрабатывают выходные данные, ввод вывод файлов базы данных. Результат (база данных) должен запоминаться тоже в файл и быть доступен для последующей (многократной) обработки. В реализации должны быть предусмотрены модули ТП...................
Сам не успеваю в полной мере разобраться, поэтому решил попросить знаюищих людей за умеренную плату. Ответ плз в ЛС.

 

[serg_pet]

Ответ: Turbo Pascal

offtop: Предлагаю модераторам создать тему: типа "помогите написать программу" потому что раздел Turbo Pascal зафлудили полностью.
Спасибо.