нужно чуть помочь по лабе на С. Треугольник паскаля #include <stdio.h> #include <conio.h> #define N 1000 long c[N]; int main () { long n, i, j; for(n=0; n<6;n++) { for(i = 0; i <=n ; i++) c =0; c[0] = 1; for(j = 0 ; j <=n; j++) for(i = j; i >= 1 ; i--) c = c[i-1] + c; for(i = 0; i <= n ; i++) printf ("% d", c); printf("\n"); } getch(); return 0; } Треугольник выводится прямоугольным, а надо равносторонний
Code: #include<stdio.h> int main() { int i, j,n,*p,check=1, blank, memspace, mem=0, rowdiff=1; printf("Enter the number of rows:"); scanf("%d",&n); blank=n-1; memspace=((n*(n+1))/2); p=(int*)malloc(sizeof(int)* memspace); for(i=0;i<n;i++){ printf("\n"); for(j=0;j<blank;j++) printf(" "); for(j=0;j<check;j++){ if(j==0 || j==(check-1)) p[mem]=1; else p[mem]=p[mem-rowdiff] + p[mem-rowdiff+1]; printf("%d ",p[mem]); mem++; } for(j=0;j<blank;j++) printf(" "); blank--; check++; rowdiff++; } }
Turbo Pascal Ребятки помогите задачку по паскалю решить: Дан двумерный массив А(N,N). Найти среднее арифметичечское его положительных элементов. Нужно решить через процедуру.
Как то так )) Code: m: array [1..n,1..n] of integer; procedure sum; var i,a,summa:integer; begin for i:=1 to n do for a:=1 to n do if m[i,a]>0 then summa:=summa+m[i,a]; write(summa); end;
Привет всем...можете написать следующие программы на АСМ...Я незнаю алгоритма построения программ... 1)Составить ассемблер-программу кодирования и раскодирования произвольной текстовой строки по произвольной кодирующей таблице. Вывести на экран исходную, колированную и раскодированную строки. 2)Сбросить биты 1, 4, 5, 10, 12, 15 заданного слова ОП. 3)Через сдвиг быстро умножить заданное слово ОП на 30. 4)Копировать из заданного массива слов в другой массив только отрицательные числа. 5)Создайте произвольное собственное прерывание и занесите его в любое место таблицы векторов прерывания.
Здарово народ, помогите пожалуста решить задание по лабе по турбо паскалю. УСЛОВИЕ: Дан массив А(N,N). Поменять элементы К-ой строки с элементами последней строкой этого массива. Переписать в одномерный массив элементы К-ой строки. Первоначальный и преобразованый двумерные массивы и одномерный массив вывести на экран.
Знающие, напишите плиз код на асемблере на условие: Дан массив из 15 байт с начальным адресом 35. Заменить нулями положительные числа.
Помогите плз с лабораторной, завтра нужно сдать задачку сделать с использованием функций , турбо паскаль Заданы 2 двумерных массива А(М,М) и В(К,К). Переписать в один одномерный массив элементы главной и побочной диагонали массива А , а в другой одномерный массив элементы главной и побочной диагоналей массива В. Использовать подпрограммы.
Да ты че с ума сошёл, такую лехкотню не можешь решить. Позор тебе. Книжки те надо читать, а не по всяким сайтам шастать. Иди сам делай.
всем ривет я хачу написать шахматы вот тока знаний у меня нехватает пока для этого посоветуите книгу или статю на ету тему где нетолко стоит Альфа-бета-отсечение а полностю код харошо розоброный и понятно описнаый скачал книгу "програмирование шахмат и других логичиских игр " тока там описание на С понять в принципи мошно но там работает он побитно а не обэктно орентировано да и обяснает както неочен на мои взгля или может я тупои просто кароче ест ли ченит в етом роде пишите буду благодарен !!!
молодой человек для начала вам бы прочитать это: _http://www.google.ru/search?hl=ru&source=hp&q=%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C+%D0%BE%D1%80%D1%84%D0%BE%D0%B3%D1%80%D0%B0%D1%84%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D0%B9+%D1%81%D0%BB%D0%BE%D0%B2%D0%B0%D1%80%D1%8C+%D1%80%D1%83%D1%81%D1%81%D0%BA%D0%BE%D0%B3%D0%BE+%D1%8F%D0%B7%D1%8B%D0%BA%D0%B0&lr=&aq=0&aqi=g8&aql=&oq=%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C+%D0%BE%D1%80%D1%84%D0%BE%D0%B3%D1%80%D0%B0%D1%84&gs_rfai=
LASS0..держи, слова разделяются пробелами PHP: var s, a: string; i, rez: integer; ok: boolean; begin readln(s); ok:=false; rez:=0; s:=s+' '; a:=''; for i:=1 to length(s) do begin if s[i]<>' ' then begin a:=a + s[i]; if s[i] = 'k' then ok:=true; end else begin if ok then begin writeln(a); ok:=false; end; a:=''; end; end; readln; end.
Помогите плз разобраться. Требуется составить програму на Паскале, которая выводит на экран все натуральные трехзначные числа, делящиеся без остатка на 17, сумма цифр которых равняется 11. Получилось вот что: PHP: var x,y,z,a,i,s:integer; Begin For i:=100 to 999 do x:=i div 100; y:=(i div 10) mod 10; z:=i mod 10; Begin a:=x+y+z; If (a=11) and (i mod 17 = 0) then s:=s+i; writeln ('s',s); readln; end; end. Выводит: s=0 Что не так, подскажите пожалст? Так же еще пробывал PHP: Begin i:=100 {тут манипуляции с числами, дальше сам цикл} If (a=11) and (i mod 17 = 0) then s:=s+i else i:=i+1; writeln ('s',s); readln; end; И cнова s=0. Только тут программа не выйдет из цикла при i=999, как это сделать??
rid3r~man..держи PHP: var x, y, z, a, i, s:integer; Begin For i:=100 to 999 do begin x:=i div 100; y:=(i div 10) mod 10; z:=i mod 10; a:=x+y+z; If (a = 11) and (i mod 17 = 0) then writeln (i); end; readln; end.
чето ты какуето..(похоже на неудачную попитку ломонут гоогле ) запостил нечо ненаходит пошли ключивое слово по каторому искал
