Главная | Форум | Фото | Блоги | Игры
Форум студентов КФУ - ex ТНУ

Вернуться   Форум студентов КФУ - ex ТНУ > Университет > Факультеты > Физический

Результаты опроса: ?????????
Помогите 2 10.53%
Помогите 1 5.26%
Бог поможет 3 15.79%
Аллах поможет 2 10.53%
я бы вдул 11 57.89%
Голосовавшие: 19. Вы ещё не голосовали в этом опросе

Ответ
 
Опции темы
Старый 03.11.2010, 20:01   #41
вася_я вася_я вне форума
Новичок
 
Регистрация: 03.11.2010
Сообщений: 5
Репутация: 10
Очки: 65, Уровень: 1
Очки: 65, Уровень: 1 Очки: 65, Уровень: 1 Очки: 65, Уровень: 1
Активность: 0%
Активность: 0% Активность: 0% Активность: 0%
По умолчанию

кто это с наших такой умный)))))) А я создателя темы знаю))) КСС-1ХХ рулит

Алексей Бриж. Не знаю тебя!!! Первый курс сейчас такие проги тоже пишет.

uses crt;
var x, y, X1, Xn, dx: real; r: string; p, n:integer;
begin
repeat
clrscr;
P:=1;
repeat
if p=1 then writeln('ўўҐ¤ЁвҐ ¤***лҐ X**з, XЄ®*, Ё и*Ј dx')
else writeln ('ўл ¤®ЇгбвЁ«Ё ®иЁЎЄг ЇаЁ ўў®¤Ґ ¤***ле. ‚ўҐ¤ЁвҐ ¤***л X**з, XЄ®*, Ё и*Ј dx б**з*«*');
readln(x1, Xn, dx);
P:=P+1;
until ((Xn>x1)and(dx>0))or((xn<x1)and(dx<0));
x:=x1;
if dx>0 then
repeat
if x<=0 then writeln('ў в®зЄҐ Y','(', X:0:1, ')', ' *Ґ ¬®Јг Ї®бзЁв*вм') else
begin
y:=0.9*((3/x)+ln(x));
writeln ('Y', '(', x:0:1, ')', '=', y:1:2);
end;
x:=X+dx ;
until (X>Xn);
;
if dx<0 then
repeat
if x<=0 then writeln('ў в®зЄҐ Y','(', X:0:1, ')', ' *Ґ ¬®Јг Ї®бзЁв*вм') else
begin
y:=0.9*((3/x)+ln(x));
writeln ('Y', '(', x:0:0, ')', '=', y:1:2);
end;
x:=X+dx;

until X<Xn;
writeln('…б«Ё ўл е®вЁвҐ ўл©вЁ **¦¬ЁвҐ Y, …б«Ё е®вЁвҐ а*ббзЁв*вм §**зҐ*Ёп дг*ЄжЁЁ б**з*«*, **¦¬ЁвҐ «оЎго Є«*ўЁиг');
r:=readkey;
if r='y' then break;
n:=0;
until n=2;
end.

вот пример. Сори за дос кодировку.

ах да не забываем нажать +++++)))
  Ответить с цитированием
Старый 04.11.2010, 13:35   #42
St.Skilur St.Skilur вне форума
Тип События
 
Аватар для St.Skilur
 
Регистрация: 05.03.2007
Сообщений: 6,713
Репутация: 7742
Очки: 51,064, Уровень: 100
Очки: 51,064, Уровень: 100 Очки: 51,064, Уровень: 100 Очки: 51,064, Уровень: 100
Активность: 0%
Активность: 0% Активность: 0% Активность: 0%
По умолчанию Re: Pascal решение задач для КСС

ааааа, плакал от темы, жжоте, зачет по идиотизмам последний афтар хоть и не по теме языков, но улыбнул отмазкой про кодировку, а не произростание рук больше таких тем от вас товарищи "программисты" и дни будут веселее
и всем желающим спорить - нет, я не программист, как нынче модно, себя так не позиционирую, я человек, что любит черный горький шоколад
  Ответить с цитированием
Старый 13.11.2010, 23:10   #43
XFX XFX вне форума
Общительный
 
Аватар для XFX
 
Регистрация: 19.06.2008
Сообщений: 92
Репутация: 65
Очки: 2,539, Уровень: 30
Очки: 2,539, Уровень: 30 Очки: 2,539, Уровень: 30 Очки: 2,539, Уровень: 30
Активность: 0%
Активность: 0% Активность: 0% Активность: 0%
Отправить сообщение для XFX с помощью ICQ Отправить сообщение для XFX с помощью MSN
По умолчанию Re: Pascal решение задач для КСС

офигеть у вас на инженерии на первом курсе до сих пор учат паскаль???
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


tnu.in.ua
Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright © TNU.in.UA, 2007
Часовой пояс GMT +4, время: 02:29.