1 / 1 / 2
Регистрация: 12.03.2013
Сообщений: 164
1

Free Pascal

24.03.2013, 15:26. Показов 1584. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребята помогите пожалуйста,очень надо!!!
Миниатюры
Free Pascal   Free Pascal  
Вложения
Тип файла: pdf lab7_w10.pdf (66.8 Кб, 4 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2013, 15:26
Ответы с готовыми решениями:

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Нужен Turbo pascal или Free pascal на русском
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По книге обучаюсь по Turbo...

Free Pascal игнорирует $F
Решаю задачу, в которой некоторые процедуры и функции должны получать параметры-функции. Однако при...

Графические возможности Free Pascal
Графический возможности Фри паскаль y=x/x*2-1

1
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
24.03.2013, 17:15 2
Лучший ответ Сообщение было отмечено Максим_макс как решение

Решение

Вот задание 4,правда в ответе получается не 3/4 а 0.74 ,т.е должно быть 0.75=3/4 ,а выходит не совсем точно 0,74.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses Crt;
var a,b:Integer;
sum:Real;
begin
ClrScr;
a:=1;
b:=3;
sum:=sum+a/b;
while 1/(a*b)>0.0001 do
begin
inc(a);
inc(b);
sum:=sum+1/(a*b);
end;
Writeln('S=',sum:0:2);
Readln;
end.
Добавлено через 18 минут
Задание 2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses Crt;
var x,y,r:Real;
begin
ClrScr;
Writeln(' x  | f(x)');
x:=0.5;
while x<>2.5 do
begin
x:=x+0.5;
r:=sqr(cos(x+x*x*x));
y:=exp(ln(r)/3);
Writeln(x:0:1,' | ',y:0:2);
end;
Readln;
end.
1
24.03.2013, 17:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2013, 17:15
Помогаю со студенческими работами здесь

Используя стек, создать другой текстовый файл, в котором числа будут записаны в обратном порядке - Free Pascal
Создать текстовый файл, содержащий текстовую и числовую информацию. Используя стек, создать другой...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Чем отличаются Turbo Pascal и Pascal ABC?
Чем отличаются турбо паскаль и abc? Просто у меня windows7 последняя теперь стоит, и там турбо...

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг...

Есть ли аналог модуля tpdate.tpu (Turbo Pascal) для Free Pascal
Внимание! Нужно срочно узнать название юнита для freepascal, который выполняет функции tpdate.tpu...

Необходимо перевести программу с Pascal ABC на free pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru