• Страница 1 из 1
  • 1
Модератор форума: No_MaTTeR, Dimitro, LightInDarkness  
Форум » Полезное » Флудилка » Паскаль осознание знаний О_О Последняя надежда
Паскаль осознание знаний О_О Последняя надежда
Зайка_
Зайка_
"-" Набрать легче...
Репутация: -400

надо сделать это на while и Repit и for на завтра ( это семестровая
for уже сделал
вот что у меня получилось на форе
я зайка , но "тебя не хватает "
Сообщение # 1 отредактировано Зайка_ - Понедельник, 02.12.2013, 22:03
Frankiel
Frankiel
Скаут
Репутация: 0
Программу не проверял, мне лень на вайл будет вот так

var x,i: integer;
var y:real;
begin
i:=2;
while i=<5 do
begin
writeln('sin(',i,')*ln(',i,')');
y := sin(i) * ln(i);
writeln(y);
writeln('sin^2(',i,')');
y:=sin(i)*sin(i);
writeln(y);
i:=i+1;
end;
end.

Добавлено (02.12.2013, 22:09)
---------------------------------------------
Я не уверен на Паскале давно не программировал)
var x,i: integer;
var y:real;
begin
i:=2;
repeat
writeln('sin(',i,')*ln(',i,')');
y := sin(i) * ln(i);
writeln(y);
writeln('sin^2(',i,')');
y:=sin(i)*sin(i);
writeln(y);
i:=i+1;
until i<=5;
end.

Сообщение # 2 отредактировано Frankiel - Понедельник, 02.12.2013, 22:07
Зайка_
Зайка_
"-" Набрать легче...
Репутация: -400
Frankiel, ура ура ура ) програмку тоесть ифы дописыввать же перед бегином ?

Добавлено (02.12.2013, 22:12)
---------------------------------------------
вот ифы ) помоги мне их вставить спаситель ) хоть в одну ) дальше сам разберусь
IF 35 <x then y:= sin(x)*LN(x)
else
Ifx<35 then y:= SQR (cos(x))

я зайка , но "тебя не хватает "
Сообщение # 3 написано 02.12.2013 в 22:12
NameNot
NameNot
1
Репутация: 5259
Цитата Зайка_ ()
это семестровая

Нужно же кому-то мой зад защищать smile
Исправительный от NameNot2
Сообщение # 4 написано 02.12.2013 в 22:17
Зайка_
Зайка_
"-" Набрать легче...
Репутация: -400
NameNot, имено вот эти циклы мне что то не понятны ...

Добавлено (02.12.2013, 22:52)
---------------------------------------------
аааааааааа, помогите \( вставьте ифы хоть в одну а дальше я сам

я зайка , но "тебя не хватает "
Сообщение # 5 написано 02.12.2013 в 22:52
Frankiel
Frankiel
Скаут
Репутация: 0
Прости, я отходил)

Добавлено (02.12.2013, 23:10)
---------------------------------------------
А почему у тебя writeln('sin^2(',i,')');
y:=sin(i)*sin(i); син в квадрате, на рисунке должен быть косинус.

Сообщение # 6 написано 02.12.2013 в 23:10
Зайка_
Зайка_
"-" Набрать легче...
Репутация: -400
Frankiel, помоги сложить хоть одну програму . а дальше я сам :СС
я зайка , но "тебя не хватает "
Сообщение # 7 написано 02.12.2013 в 23:34
Admirall18
Admirall18
Скаут
Репутация: 303
Паскаль не знаю, но предположу, что должно быть так:
IF x>35 then y:= sin(x)*LN(x)
else
y:= SQR (cos(x))
Сообщение # 8 отредактировано Admirall18 - Вторник, 03.12.2013, 00:00
Форум » Полезное » Флудилка » Паскаль осознание знаний О_О Последняя надежда
  • Страница 1 из 1
  • 1
Поиск: