Imagine, Funnest Game Ever

nigerianelitesforum.com - 2013-05-08 13:49:12 - Similar - Report/Block

Lets play this game,it's called imagine. You imagine something funny and you post it here starting with "imagine".let me start, imagine obasanjo tying wrapper and dancing azonto. Imagine Dame patience (goodlucks wife) lecturing english 101 in university. Imagine a mad man applying for job at psychiatric hospital.

Price Chopper Shoppers! Imagine Broth just $0.79 each!

livingrichwithcoupons.com - 2013-06-05 20:00:20 - Similar - Report/Block

Imagine Coupon Use the $2/1 Imagine Coupon to get a great deal at Price Chopper this week! They have the Imagine Broth for just $2.79 each! After using the $2/1 coupon you can score this product for just $0.79 each! Awesome price for an organic product! Here’s your deal: Imagine Broth $2.79 $2/1 Imagine Coupon $0.79 each after coupon Be...

Comment on the shutterbugs: olivia rae james. by Jade Sheldon

sfgirlbybay.com - 2013-04-09 01:31:58 - Similar - Report/Block

I am such a fan of her work! I can’t even begin to imagine what it would be like to photograph Mr. Murray. I haven’t known life without that man!...

Engelsk Muntlig Eksamen "Imagine"

diskusjon.no - 2013-06-10 10:20:47 - Similar - Report/Block

Nå kom jeg opp i engelsk muntlig eksamen og fikk utdelt en oppgave som het "imagine". Det eneste oppgaven sier er at jeg skal snakke utifra temaet "Imagine." Jeg har litt problemer meg å finne ut hvordan jeg skal innlede framføringen og hva jeg burde ha med. Kunne noen hjulpet meg?...

[$129.99] MTD 20Volt Cordless Tiller / Cultivator by Tools.Woot

dealsucker.com - 2013-05-01 07:12:36 - Similar - Report/Block

Imagine, if you will, the farmer out in the field with his MTD Gold 9` Cordless Electric Tiller, staring at the great ships sailing in to Troy`s harbor. Imagine that farmer speeding through the work with the rechargeable 20v 2.6 Ah LithiumIon Battery, then going inside to find out what was wrong. Imagine that farmer learning that the nobl...

Carry select Adder

stackoverflow.com - 2013-04-26 08:41:27 - Similar - Report/Block

I am writing a code for carry select adder using a carry look ahead adder. I am sure my carry lookahead is fine but when I use it for carry select doesn't work. There are no syntax errors , but I am not sure if this is the right way carrylookahead_4bit CS0_0(aF[3:0],bF[3:0],1'b0,R0,CR1); carrylookahead_4bit CS1_0(aF[3:0],bF[3:0],1'b1,S0,...

Help! Weight has stayed the same

minimins.com - 2013-05-01 07:58:34 - Similar - Report/Block

Hi, This is now my 9th day on lipotrim and have been sticking to the TFR completely, I've been drinking the recommended water and haven't had anything but what I am allowed. I had quite a big weight loss in my first week but I have now stayed the same for 4 days (I weigh myself every morning). As you can imagine this is quite disheartenin...

If you don't believe in reincarnation you'll have problems to understand what homosexuality is all about

godlikeproductions.com - 2013-04-17 12:08:06 - Similar - Report/Block

Feeling/imagine/being gay stems from the fact, that souls choose to change their gender from one incarnation to the other, therefore its completely normal... - Poster: Anonymous Coward (UID 8717845) - Updated: 04/17/13 6:08 AM - Views 1,635 - Replies 96...

Не могу найти ошибку в задачи (метод Гауса) - Turbo Pascal

cyberforum.ru - 2013-03-19 15:26:58 - Similar - Report/Block

uses crt; var a:array [1..100,1..100] of real; x:array[1..100] of real; i,j,k,n:integer; d,c,h:real; begin write('n='); read(n); for i:=1 to n do begin for j:=1 to n+1 do a[i,j]:=random(10); end; for i:=1 to n do begin for j:=1 to n+1 do begin write(a[i,j],' '); end; end; for i:=1 to n-1 do begin if a[i,i]<>0 then begin for j:=...

Нужно додумать программу - PascalABC.NET

cyberforum.ru - 2013-02-20 16:00:06 - Similar - Report/Block

Код: var c,a,v:integer; k: array [1..10] of integer; b:string; n:integer; i:integer; begin Writeln ('Задача: вставьте вместо пропусков знаки (,),-,+,*,/ так, чтобы тождество стало верным (всего 8 знаков):'); writeln; writeln('3_2_2_3_2_2_2_2_3=8'); writeln; Write('Перепишите левую часть тождества, вставляя знаки: '); readln(b); n:= le...

матрица порядка n × n. Поправьте код - Delphi для начинающих

cyberforum.ru - 2013-04-25 15:59:32 - Similar - Report/Block

Не игнорьте ну >< Вот что имеется Кликните здесь для просмотра всего текста const N=10; var ii,jj,i,j:integer; a:array[1..20,1..20]of integer; begin writeln('Rezultat:'); i:=2; if n mod 2=0 then begin while i<=n do begin for j:=n downto 1 do a[i,j]:=n+1-j; i:=i+2; end; i:=1; while i<=n do begin for j:=1 to n do a[i,j]:=1; i:=i+2; while i=...

Как запускать шар при каждом нажатии мышки? - PascalABC.NET

cyberforum.ru - 2012-10-30 11:52:21 - Similar - Report/Block

Как запускать шар при каждом нажатии мышки а не ждать пока шарик до летит до конца Код: uses GraphABC, Events, ABCObjects, Timers, ABCButtons; var krug: CircleABC; prov: RectangleABC; procedure optim (x, y: integer; var z, m: integer); // оптимизация скорость шарика begin z:=x; m:=y; while (m<-10) do begin m:=m div 2; z:=z div 2;...

evolveStar Join

Измените программу - Pascal ABC

cyberforum.ru - 2013-03-18 16:47:14 - Similar - Report/Block

Составил программу по заданию: Вычислить суммы элементов находящихся в интервале от a до b, для данных двумерных таблиц X(n,m),Y(k,t) Код: program verB; uses crt; type matr=array[1..7,1..7] of integer; var m1:matr; m2:matr; var i,j,k,l,m,n,g:integer; procedure su (var a,b:integer;var r1:matr;var s:integer); var z:integer; begin z:=0; for...

Текстовый редактор. - Turbo Pascal

cyberforum.ru - 2013-03-21 12:33:12 - Similar - Report/Block

Ниже текст программы. Объясните пожалуйста, что делает каждая процедура. Кстати, работает ли программа? Программа - текстовый редактор. Код: program StrEditor; const signs=['!','.','?']; sign=['!','.','?',';',',']; sig=[',',';',' ']; si=['!','.','?',';',',',' ']; var s1: char; i,x,y: integer; s,s3: string; t1,t2: text; function del(...

решение СЛАУ - Pascal ABC

cyberforum.ru - 2013-04-18 13:26:08 - Similar - Report/Block

нужно решить СЛАУ методом простх итераций(Якоби)... у меня есть код программы он работает в среде паскаль АБС но иногда пишет вещественное переполнение. помогите кто сможет заранее благодарен Код: program iter; var A: array [1..6,1..6] of real; b,x,otv: array [1..6] of real; i,j,n: byte; eps: real; pr: boolean; begin write('razmer mat...

Алгоритм Кируса-Бека на Делфи - Delphi: графика, звук, видео

cyberforum.ru - 2013-06-04 19:43:42 - Similar - Report/Block

Учитывая, что сам алгоритм (функция Итселф) писался с регулярным подглядыванием в надёжный источник, маловероятно, что ошибка в нём. Скорее, в поиске нормалей. Отрезки режутся, но отнюдь не по нужным линиям. Фигура: http://static.diary.ru/userdir/1/6/7...3 /78622745.jpg Код: procedure Normal(k:byte); //если К=1 - обрабатывается внешний тре...

Непонятен код программы - Pascal (Паскаль)

cyberforum.ru - 2013-06-09 21:30:23 - Similar - Report/Block

Помогите пожалуйста разобраться в этой программе необходимы коментарии к каждой строчке программы. Завтра защита а я не могу разобраться(( Код: Program stroka; Const NS =['0'..'9']; Var i,k,t:Integer; st:String; f:Boolean; BEGIN Write('S='); Readln(st); i:=1; f:=True; While i<=Length(st) Do Begin If st[i]=' ' Then f:=True; If (Not(st...

Умножение матрицы - PascalABC.NET

cyberforum.ru - 2013-03-23 17:01:38 - Similar - Report/Block

Привет всем. Проблема такая, написал программу для умножения матриц, а он мне просчитывает только один столбец(последний), а остальные выдает за 0. Вот сам код: const maxN = 100; maxM = 100; type matrix = array[1..MaxN, 1..MaxM] of integer; procedure readf(var a: matrix; var n, m: integer; name: string); var f: text; i, j: integer; begin...

сложение двоичных чисел - Delphi для начинающих

cyberforum.ru - 2013-05-01 23:45:29 - Similar - Report/Block

ребят , вот мой код посмотрите че не так. по мне правильно ну че то не работает Код: var s,v,z:string; k,j,l,y:Integer; begin s:=edt1.Text; v:=edt2.Text; k:=Length(s); l:=Length(v); z:='0'; y:=0; if k>l then h:=k; else if k=l then h:=k else if k1 ) and (y<1))then begin z:=z+'0'; y:=1 ; end else if ((StrToInt(s[j])+strtoint(v[...

Схема Халецкого - Delphi для начинающих

cyberforum.ru - 2012-10-23 15:51:21 - Similar - Report/Block

Здравствуйте:), помогите пожалуйста.Решить СЛАУ Ах=b по схеме Халецкого. Заранее большое спасибо:-* Вот что у меня получилось Код: procedure TForm1.btn2Click(Sender: TObject); procedure Holet(L,U,a:Tmatrix ); var summ,summ1:Real; i,k,j,s:Integer; f:Tmatrix; begin for i:=0 to n-1 do f[i,0]:=StrToFloat(SG3.Cells[i,0]); begin for k:=0...

сортировка по двум ключам - PascalABC.NET

cyberforum.ru - 2013-03-20 08:07:54 - Similar - Report/Block

программа выдает ошибку, не понимаю, как ее исправить. помогите, пожалуйста. Код: Procedure Swapp(var p:PNode); //процедура меняет элементы местами var q:PNode; begin q:=p^.next; p^.next:=q^.next; q^.next:=p^.next^.next; p^.next^.next:=q; p:=p^.next; end; Procedure Sort(var head:Pnode); //процедура сортировки var b:boolean; p,px...

Найти: минимальный и максимальный элементы, сумму четных элементов массива - Delphi для начинающих

cyberforum.ru - 2012-09-12 17:49:30 - Similar - Report/Block

уже вконце после begin в строке zapovnenya; Что-то с параметрами вроде,посмотрите пожалуйста что не так Код: a:array[1..25] of integer; Procedure zapovnenya(i:integer); var max:integer; begin for i:=2 to 25 do if a[i]>max then max:=a[1]; Function min(i:integer):integer; var min:integer; begin min:=a[1];...

нужно сделать двухмерный массив через процедуры и функции - Pascal ABC

cyberforum.ru - 2013-03-25 10:29:00 - Similar - Report/Block

Создать массив целых чисел в 12*12. Отсортировать главную диагональ и строки за ней. uses crt; const n=12; var B:array[1..n,1..n]of integer; i,j,buf,k,tmp:integer; sort:boolean; begin randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin B[i,j]:=random(100); write(B[i,j]:4); end; writeln; end; sort:=false;{...

Процедуры в Pascal - PascalABC.NET

cyberforum.ru - 2013-03-19 16:34:46 - Similar - Report/Block

Добрый день! Помогите поставить правильные параметры для процедуры Вот собственно код Код: Program Hello_World; type ch = array [1..512] of char; var e, a: string; n: integer; procedure vvod(var s: ch;var fl:string); var f: text; b: boolean; i: integer; begin assign(f,fl); reset(f); while not eof(f) do begin read(f, e); a := a...

Оператор выбора - Turbo Pascal

cyberforum.ru - 2013-03-20 15:28:04 - Similar - Report/Block

Здравствуйте. Пожалуйста помогите найти ошибку. Код: Program Example_11; uses crt; var x,a,b,c,n,y: real; i:integer; begin clrscr; writeln ('1 - 1-exp(1/3*ln(abs(x)))'); writeln ('2 - (sin(x)*ln(x+1))/(1+2*sqr(cos(x)))'); writeln ('3 - ln(1+(2/(1+x)))*cos(x/2)'); writeln; write ('Uravnenija='); readln(n); write ('x='); readln(x); a:=0.1;...

Товарищи, не могу найти ошибку - PascalABC.NET

cyberforum.ru - 2013-04-09 09:49:00 - Similar - Report/Block

Написал программку под задание: Для числа n вывести произведение "n!!" с условием: если число чётное, то n!!=2*4*..*n, иначе n!!=1*3*..*n. Код: Var Ch,Nch : set of integer; i,n : integer; k : integer; begin Ch:=[]; Nch:=[]; for i:=1 to 255 do begin if i mod 2 = 0 then Ch:=Ch+[i]; if i mod 2 <> 0 then Nch:=Nch+[i]; end; Writeln('...

при запуске постоянно выводит одинаковые ошибки в разных позициях - Pascal ABC

cyberforum.ru - 2013-04-23 13:51:40 - Similar - Report/Block

Program kod; uses crt; var sss,ss:string; a:array[0..8] of integer; slovo,s,p,j,i,d,m,s1,s2,s3:integer; procedure dva; begin s1:=(a[1]+a[3]+a[5]+a[7]) mod 2; s2:=(a[2]+a[3]+a[6]+a[7]) mod 2; s3:=(a[4]+a[5]+a[6]+a[7]) mod 2; if (s1=1) or (s2=1) or (s3=1) then begin s:=s1+s2*2+s3*4; writeln('oshibka dopushena v pozitcii nomer ',s) end else...

Гласные буквы (a,e,o,i,u) чередуются с согласными - Pascal (Паскаль)

cyberforum.ru - 2013-02-28 20:55:55 - Similar - Report/Block

Код: Program string; label m1,m2; var s,posl,sl,b:string; kol,m:integer; i,l,l1 byte; gl:set of char; k:boolean; begin write('введите строку ');readln(s); i:=length(s); posl:=''; while s[i]<>' ' do begin posl:=s[i]+posl; i:=i-1; end; l:=length(s); gl:=['a','e','i','o','u','y']; if (s[l]<>'.')or(s[l]<>'!')or(s[l]<>'?') then begin s[l+1]:='...

Вывести столбец и строку двухмерного массива N×M, на пересечении которых расположен минимальный элемент - Pascal ABC

cyberforum.ru - 2012-11-14 13:33:54 - Similar - Report/Block

Есть часть решения, помогите, пожалуйста, с вывод строки и столбца на пересечении минимального элемента в Pascal ABC. Код: program n_4; var A:array[1..10,1..10] of integer; i,j,n,m,min:integer; //-Матрица-// begin write('vvedite m=');readln(m); write('vvedite n=');readln(n); randomize; for i:=1 to m do begin for j:=1 to n do begin A[i,j]:...

Модуль Graph и модуль Mouse - Turbo Pascal

cyberforum.ru - 2013-02-19 12:47:16 - Similar - Report/Block

Нужно сделать так чтобы при выходе за границы поля выводилось сообщение о том, что они были покинуты. А также при пересечении линий тоже нужны сообщение. Сама программа: Код: program game; uses crt,graph,mouse1; var x,y:word; x2,y2,i,x1,y1,gd,gm:integer; bn,nb:word; c:char; procedure rectan; begin rectangle(x2,y2,x1,y1); end; begin gd:...

Блок схема одномерного масива - Pascal (Паскаль)

cyberforum.ru - 2013-05-09 22:45:58 - Similar - Report/Block

Код: var arr: array [1..9] of real; i,k: byte; begin writeln('Массив:'); for i:=1 to 9 do begin arr[i]:=-10+random(20); write(arr[i],' '); end; writeln(); for i:=1 to 9 do if (arr[i] < 0) then begin inc(k); arr[i]:=power(arr[i],2); end; writeln('Количество отрицательных элементов = ',k); writeln('Полученный массив:'); for i:=1 to 9 do beg...

Суть - найти буквы которые встречаются чаще всего до точки - Pascal (Паскаль)

cyberforum.ru - 2012-10-12 13:23:09 - Similar - Report/Block

вот мой код Код: uses crt; var max,k:integer; f:char; a: array [1..100] of integer; s:string; i:integer; Begin Clrscr; Read(s); i:=0; repeat a[i]:=0; i:=i+1 until i<>25; k:=1; max:=0; While s[k]<>'.' do Begin If s[k]=' ' then Delete(s,k,1); k:=k+1; end; k:=1; While s[k]<>'.' do Begin For i:=0 to 25 do begin f:= upcase(chr(ord('a')+i)); If...

Написать комментарии к каждой строке программы3 - Pascal ABC

cyberforum.ru - 2013-02-20 11:46:06 - Similar - Report/Block

uses crt; var s,a,b,f:string; n,i,j,m,c:integer; begin readln(s); for i:=1 to length(s)-2 do begin a:=copy(s,i,4); n:=0; for j:=1 to length(s)-2 do begin b:=copy(s,j,4); if a=b then n:=n+1; end; if n>m then begin m:=n; f:=a; end; end; writeln(f,' ',m); readln; end.

Ограничение на ввод - Pascal (Паскаль)

cyberforum.ru - 2013-03-11 16:11:13 - Similar - Report/Block

Подскажите пожалуйста,как сделать ограничение на ввод с помощью директив,вот мой код: Код: uses crt; const pa = 100; Var a,b: array[1..pa,1..pa] of integer; i,j,n,m: integer; Begin clrscr; write('Razmernost massiva: '); readln(n); write(' Najmite 1 dlia vvoda matricu polzovatelem.Esli net,budet proishodit avtomaticheski '); readln(...

Блок-схема по программе - Pascal (Паскаль)

cyberforum.ru - 2013-05-14 16:39:36 - Similar - Report/Block

Здравствуйте, кто нибудь может нарисовать блок-схему по готовой программе? Код: Program coursework; var a:array[1..5] of real; b:array[1..5] of real; i,j,n: integer; procedure sort(var x,y: real); var t: real; begin t := x; x := y; y := t; end; Function S(i:byte):real; Var q,v:integer; z,maxA,maxB:real; Begin For q:=1 To 5 Do Begin m...

Задача "Очередь" - Pascal ABC

cyberforum.ru - 2013-03-17 10:08:17 - Similar - Report/Block

Принцип работы алгоритма "Первый пришел - первый пошел". Все работает токо нули откуда-то взялись, нужно убрать как то Вот код программы: Код: program n1 ; uses crt; type mas=array[0..100] of integer; var c:char; j,i,n,head:integer; a: mas; flag:boolean; procedure read_from_queue(a: mas;var i,j: integer); begin if (i=j) and (flag) then...

Реализация функцией - Pascal ABC

cyberforum.ru - 2013-02-28 09:15:42 - Similar - Report/Block

Дано квадратную матрицу (7*7). Элементы выше главной диагонали поместить в массив и найти минимальное значение. Вывести на экран исходную матрицы, полученный массив и минимум. ЗЫ: Данная программа у меня реализована, но мне нужно сделать ее с помощью функции. Код: program a1; const n=7; var a: array[1..n,1..n] of integer; i,j,min: byte...

Дискретка в Pascal - PascalABC.NET

cyberforum.ru - 2013-03-21 10:10:03 - Similar - Report/Block

Возникла еще одна проблема с кодом.. Он нее работает правильно. Из всего кода правильно работает только процедура Универсаьного дополнения. Вот код Код: program Laba1; type ch = array [1..512] of char; var a: string; D, R, A1, B, C: ch; Rn, Dn, An, Bn, Cn: integer; procedure vvod(var s: ch; fl: string; var n: integer); var f: text;...

Блок-схемки для зачёта! - Pascal (Паскаль)

cyberforum.ru - 2013-06-05 19:53:18 - Similar - Report/Block

Ребят, помогите, пожалуйста, осталось только блок-схемы сделать для зачёта! Вот код программы Код Код: Program Lab8; const i=10;j=11;k=12; type arr=array [1..100] of real; var s,t,a,b,c,z:real; ni,mj,lk:arr; Function F(x,y:real):real; Begin F:=((sqr(x)+2*y+3)/6); end; Function P(i:integer):real; begin If i=1 then P:=sin(0.5) else P:=z*sqr...

Переделайте под delphi - Delphi для начинающих

cyberforum.ru - 2013-05-29 08:10:13 - Similar - Report/Block

Переделайте под delphi Код: const n=5; var a:array[1..n,1..n]of integer; i,j:integer; SR,SC,S:integer; k:boolean; begin randomize; for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=random(5); write(a[i,j], ' '); end; writeln; end; S:=0; for j:=1 to n do S:=S+A[1,j]; k:=true; i:=1; while (i<=n)and(k) do begin SR:=0; for j:=1 to n do SR...


Fill out the form you see below. Registration is free, fast and simple.
If you are already registered, sign in page login.

Web Site :
Required Field
First Name :
Required Field
Last Name :
Required Field
Email :
Required Field
Sex :
Required Field

evolveStar.com is free for ever !

evolveStar.com provides a search engine that allows you to gather information to write their own blog.

evolveStar.com enhances the sources displaying the logo of the site.

If you want to remove your site or you believe a site listed infringes copyright, please report it to: info@evolveStar.com

Specifies the subject copyright violation and the url of the page

evolveStar.com respecting the law DMCA (Digital Millennium Copyright Act) will immediately remove whatever its merits.

Next will be effectual and relevant checks.

Who We Are Advertising Contacts Help & FAQ

© Copyright 2010-2014 Fabrizio Fichera. All rights reserved.