Галсан Опубликовано 29 апреля, 2009 Жалоба Поделиться Опубликовано 29 апреля, 2009 Галсанuses wincrt;const y = 1;var a: array[1..y] of string; i, j: integer; s: string;begin clrscr; writeln('BBeguTe cJIoBo'); for i := 1 to y do readln(a[i]); for i := 1 to y do begin s := ''; for j := 1 to Length(a[i]) do begin s := s + a[i][j]; if a[i][j] = 'a' then s := s + 'MbI'; end; a[i] := s; end; for i := 1 to y do write(a[i], ' ');end.program zad;Спасибо. Но чет выдает ошибку. Error 15: File not found (WINCRT.TRU) Цитата Ссылка на комментарий
bayarookie Опубликовано 29 апреля, 2009 Жалоба Поделиться Опубликовано 29 апреля, 2009 Галсану меня с CRT глючит, поэтому WINCRT пишу, переправь на CRT Цитата Ссылка на комментарий
Галсан Опубликовано 29 апреля, 2009 Жалоба Поделиться Опубликовано 29 апреля, 2009 Галсану меня с CRT глючит, поэтому WINCRT пишу, переправь на CRTя уже переправлял. После этого вылетает *11з.ы. вот я тупанул забыл поставить readkey в концеuses crt;const y = 1;var a: array[1..y] of string; i, j: integer; s: string;begin clrscr; writeln('BBeguTe cJIoBo'); for i := 1 to y do readln(a[i]); for i := 1 to y do begin s := ''; for j := 1 to Length(a[i]) do begin s := s + a[i][j]; if a[i][j] = 'a' then s := s + 'MbI'; end; a[i] := s; end; for i := 1 to y do write(a[i], ' ');[b]readkey[/b]end.program zad;Спасибо bayarookie!!!! Цитата Ссылка на комментарий
Галсан Опубликовано 6 мая, 2009 Жалоба Поделиться Опубликовано 6 мая, 2009 Помогите решить эту задачку:Подсчитать количество строк целой матрицы размера 4х6 в котором все элементы находятся в столбцах с четными номерами, нечетны. *09 Цитата Ссылка на комментарий
martinges Опубликовано 6 мая, 2009 Жалоба Поделиться Опубликовано 6 мая, 2009 ответ 4 строки если без шуток.... то набор слов помойму)) или где то знаки препинания пропущены.... Цитата Ссылка на комментарий
X-tender Опубликовано 7 мая, 2009 Жалоба Поделиться Опубликовано 7 мая, 2009 Галсанm=кол_во_строк;n=кол-во_столбцов;for i:=1 to m do begin t=1; for j:=1 to n div 2 do if (a[i,j*2] mod 2=0) then t:=0; sum:=sum+t; end; Цитата Ссылка на комментарий
Галсан Опубликовано 7 мая, 2009 Жалоба Поделиться Опубликовано 7 мая, 2009 X-tenderизвиняюсь конечно, но можно полностью программу написать. Что-то я не понял эту задачу Цитата Ссылка на комментарий
FunlOvEe Опубликовано 7 мая, 2009 Жалоба Поделиться Опубликовано 7 мая, 2009 Галсанconst m=4; n=6;var i,j,t,sum:integer; a:array[1..m,1..n] of integer;beginclrscr; for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,'] = '); read(a[i,j]); end; for i:=1 to m do begin t:=1; sum:=0; for j:=1 to n div 2 do begin if (a[i,j*2] mod 2 = 0) then t:=0; sum:=sum+t; end; writeln(sum); end;readkey;end.uses crt; Цитата Ссылка на комментарий
X-tender Опубликовано 7 мая, 2009 Жалоба Поделиться Опубликовано 7 мая, 2009 FunlOvEe, не так, begin end зря вставлял uses crt;const m=4; n=6;var i,j,t,sum:integer; a:array[1..m,1..n] of integer;beginclrscr; for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,'] = '); read(a[i,j]); end; for i:=1 to m do begin t:=1; sum:=0; for j:=1 to n div 2 do if (a[i,j*2] mod 2 = 0) then t:=0; sum:=sum+t; end;writeln("Result=",sum);readkey;end. Цитата Ссылка на комментарий
FunlOvEe Опубликовано 7 мая, 2009 Жалоба Поделиться Опубликовано 7 мая, 2009 X-tenderЗадание не так понял.Тогда надо sum повыше занулить до цикла или ваще убрать, иначе будет 0 или 1.const m=4; n=6;var i,j,t,sum:integer; a:array[1..m,1..n] of integer;beginclrscr; for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,'] = '); read(a[i,j]); end; for i:=1 to m do begin t:=1; for j:=1 to n div 2 do if (a[i,j*2] mod 2 = 0) then t:=0; sum:=sum+t; end;writeln(sum);readkey;end.uses crt; Цитата Ссылка на комментарий
Галсан Опубликовано 7 мая, 2009 Жалоба Поделиться Опубликовано 7 мая, 2009 X-tender, FunlOvEe Спасибо! Цитата Ссылка на комментарий
X-tender Опубликовано 7 мая, 2009 Жалоба Поделиться Опубликовано 7 мая, 2009 Тогда надо sum повыше занулить до цикла или ваще убрать, иначе будет 0 или 1.1) sum не инициализировать вручную нулем, если нормальный компилятор, то мусора в нем не будет.2) зачем его убирать, если он и считает кол-во рядов удовлетворяющих требованиям. Цитата Ссылка на комментарий
}{0t@BbI4 Опубликовано 10 мая, 2009 Жалоба Поделиться Опубликовано 10 мая, 2009 Сможет кто выложить рисунок и его программу написания в TurboPasale 7было бы вообще отлично если не рисунка, а анимации в TurboPasale 7 Цитата Ссылка на комментарий
PapiruS Опубликовано 10 мая, 2009 Жалоба Поделиться Опубликовано 10 мая, 2009 uses crt;const n=4;var x,y:array[1..n]of real; i,j,a,b:integer; r:real;BEGINwriteln('Vvedite koordinaty ',n,' tochek');for i:=1 to n do begin read(x); read(y); end;r:=sqrt(sqr(x[2]-x[1])+sqr(y[2]-y[1]));a:=1;b:=2;for i:=1 to n-1 do for j:=i+1 to n do begin if sqrt(sqr(x[j]-x)+sqr(y[j]-y))>=r then begin r:=sqrt(sqr(x[j]-x)+sqr(y[j]-y)); a:=i; b:=j; end; end;writeln('Maximalnoe rasst meshdy ',a,' Ё ',b,' paroi:',r:0:2);readkey;END.1.Даны координаты N точек на плоскости. Найти номера всех пар точек, расстояние между которыми наибольшее.я сделал но у меня находит тока одну пару. А нужно чтобы находило все пары с наибольшим расстояниемпомогите плз Цитата Ссылка на комментарий
martinges Опубликовано 10 мая, 2009 Жалоба Поделиться Опубликовано 10 мая, 2009 вместо writeln('Maximalnoe rasst meshdy ',a,' Ё ',b,' paroi:',r:0:2);напиши :for i:=1 to n-1 dofor j:=i+1 to n doif sqrt(sqr(x[j]-x)+sqr(y[j]-y))=r then writeln('искомая пара: (',i,',',j,')');P.S. и тебе не нужны будут переменные a и b Цитата Ссылка на комментарий
PapiruS Опубликовано 11 мая, 2009 Жалоба Поделиться Опубликовано 11 мая, 2009 martingesспасиба большое тебе)помогите вот еще одну задачку:Определить все седловые точки (если таковые вообще имеются) в действительной матрице размера 5х6. Элемент матрицы называется седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце.uses crt;var i,j,k,min,max,sedl_min,sedl_max:integer; a:array[1..5,1..6]of integer;BEGINclrscr;for i:=1 to 5 do for j:=1 to 6 do read(a[i,j]);min:=a[1,1];max:=a[1,1];for j:=1 to 6 do begin for i:=1 to 5 do if a[i,j] begin min:=a[i,j]; sedl_min:=i; end; i:=sedl_min; max:=a[i,j]; for k:=1 to 6 do begin if a[i,k]>max then begin max:=a[i,k]; sedl_max:=k; end; end; if sedl_max=j then write('Седловые точки: a[',i,',',j,']=',a[i,j],' '); end;readkey;END.исправьте плз неправильно она чета работает Цитата Ссылка на комментарий
Sotik Опубликовано 11 мая, 2009 Жалоба Поделиться Опубликовано 11 мая, 2009 про графику материал нужен ваше ничего не могу решить!!!и( примеры желательно) Цитата Ссылка на комментарий
PapiruS Опубликовано 12 мая, 2009 Жалоба Поделиться Опубликовано 12 мая, 2009 а все уже решил) Цитата Ссылка на комментарий
PapiruS Опубликовано 14 мая, 2009 Жалоба Поделиться Опубликовано 14 мая, 2009 Дано натуральное число k. Напечатать k-ую цифру последовательности: 12345678910111213141516171819......., в которой выписаны подряд все натуральные числа. помогите ктонить плз решить, эта задача в общем на тему:циклы, и решить ее нужно используя тока циклы с пред и пост условиями,ну и целочисленные деления.ее ранее уже решали но мне нужно др. способом.заранее буду благодарен Цитата Ссылка на комментарий
X-tender Опубликовано 15 мая, 2009 Жалоба Поделиться Опубликовано 15 мая, 2009 PapiruS, пользуйся поиском. Уже есть решение тут Цитата Ссылка на комментарий
!=Вовк@=! Опубликовано 15 мая, 2009 Жалоба Поделиться Опубликовано 15 мая, 2009 Помогите решить задачу на турбо паскале!!!!!!!А) Создать файл содержащий сведения о количестве изделий категории А,В,С, собранных рабочим за месяц. Структура записи имеет поля- Фамилия сборщика, наименование цеха, количество изделий по категориям,собранных рабочим за месяц. Количество записей- 30, из них 3 цеха по 10 человек.В) Считая заданными значения расценок Sa,Sb,Sc за выполненную работу по сборке единицы изделия категории А,В,С соответственно подсчитать:-общее количество изделий категорий А, собранных рабочим цеха Х;-вывести 3 ведомости по заработной плате для рабочих каждого цеха;Значения расценок Sa,Sb,Sc определить константами. Наименование цеха Х вводить отдельно с терминала.Заранее спасибо!!!!!!!!! Цитата Ссылка на комментарий
PapiruS Опубликовано 15 мая, 2009 Жалоба Поделиться Опубликовано 15 мая, 2009 X-tenderмне нужно было бы другое решение) прочитай то что я написал выше под задачей Цитата Ссылка на комментарий
efremovlex Опубликовано 15 мая, 2009 Жалоба Поделиться Опубликовано 15 мая, 2009 Помоготе пожалуйсто как создать меню в базе даннных так чтоб можно было выберать нужный пункт меню клавишами верх вниз интер. и чтоб выделялся выбор.В pascalзарание спасибо!! Цитата Ссылка на комментарий
X-tender Опубликовано 15 мая, 2009 Жалоба Поделиться Опубликовано 15 мая, 2009 Помоготе пожалуйсто как обявить мень в базе даннных так чтоб можно было выберпть действие клавишами верх вниз интер. и чтоб выделялся выборзарание спасибоо.Очто это было? Цитата Ссылка на комментарий
PapiruS Опубликовано 16 мая, 2009 Жалоба Поделиться Опубликовано 16 мая, 2009 посмотрите ктонить плз мою задачку Цитата Ссылка на комментарий
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.