VPF::[Pascal] Вывести на экран таблицу - Форум программистов

tolbkina

Дата 13.12.2006, 00:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 13.12.2006

Репутация: нет
Всего: нет

Помогите бедной студентке у которой уже ничего не думает и не работает,сделать програмку по Паскалю,уж очень надо,препод - уж очень стар,а все молодые сейчас денюшками берут, а голова не работает! Пашу на 2-работах,а учусь в Вечернем металлургическом плииз
Вот так она выглядит :
Вывести на экран таблицу значений функции f(x)=ln x + x(этот иск над корнем,перед ним,но над,потом корень(не могу найти эти значки))далее 1+5sin(Пx/3) (П-это 3,14) с шагом 0,2 в интервале от 0,2 до 2.Вывод осуществить в виде таблицы в 2 столбцах x и f(x). Заранее огромное спасибо,уж очень тяжело лекций куча, а толку мало. Сессия мать ее....

Это сообщение отредактировал(а) alexeis1 - 13.12.2006, 01:02

tolbkina

Дата 13.12.2006, 01:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 13.12.2006

Репутация: нет
Всего: нет

Эту строчку нашла через 20 минут"[Pascal] Вывести на экран таблицу значений функции",потом решила все таки еще немного подумав задание
f(x)=ln x + x(этот иск над корнем,перед ним,но над,потом корень(не могу найти эти значки))далее 1+5sin(Пx/3) (П-это 3,14) с шагом 0,2 в интервале от 0,2 до 2.Вывод осуществить в виде таблицы в 2 столбцах x и f(x). Извините честно прочитала все правила,если есть какие ошибки ,я не специально

anwe

Дата 13.12.2006, 02:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

tolbkina, вот первая задачка:

Код


var x,y:Real;
i,j:Byte;

begin
for i:=1 to 10 do begin
x:=0.2*i;
y:=ln(x)+exp(1/x*ln(x));
writeln(x:3:2,#$20,#$B3,#$20,y:8:6);
  for j:=0 to 15 do
  write(#$C4);
  writeln;
end;
end.

Вот вторая (аргумент переведен в градусы):

Код


var x,y:Real;
i,j:Byte;

begin
for i:=1 to 10 do begin
x:=0.2*i;
y:=1+5*sin((pi*(x/3)*pi/180);
writeln(x:3:2,#$20,#$B3,#$20,y:8:6);
  for j:=0 to 15 do
  write(#$C4);
  writeln;
end;
end.

tolbkina

Дата 13.12.2006, 02:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 13.12.2006

Репутация: нет
Всего: нет

я немного не понимаю,точнее я вообще ничего не понимаю,особенно в 1-ой проге,выдает ошибку,а во второй тоже в строчке 7 что-то не то(
Короче я наверно Лох...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »