-
Постов
108 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Весь контент Go-ger
-
Сегодня прыжки будут?
-
Когда ещё будут прыжки? И есть ли возростные ограничения?
-
Я уж понадеялся, что они в конце об турник башкой ударяться. булочка за 4,50
-
Без монитора. Кушаю йоугурт....
-
Justice спасибо.
-
Ёще раз прошу помочь в простой программе с процедурами и функциями: var n,i,j:integer; Procedure XXX (var a:array [1..100,1..100] of integer); begin write(' '); readln(n); for i:=1 to n do for j:=1 to n do a[i,j]:=j*i; end; begin write(XXX(a[i,j]):3); writeln end; end. Что бы не делал в 4 строчке с конца пишет: что "а" неизвестный индефикатор. И с Подпрограммами функций тоже самое.
-
TolkienDRR всё равно спасибо тебе и Lakers в написании программы
-
Вставляю if a='a'/'e' then a:=' '; и вылазиет ошибка "операция непременима к операндам данного типа". И всётаки как исправить неправилно выводимый ответ, который я описал выше.
-
Помогите пожалуйста найти ошибку: (Программа заменяет сиволы "А" и "е" на пробелы) i: integer; begin writeln('bvnfghfgj'); readln(a); for i:= 1 to length (a) do begin b:=b+a[i]; if a[i]= 'a' then b:=' '; if a[i]='e' then b:=' '; end; writeln(; end.Var a,b:string; ответ выводит правильно если Заменяемая буква стоит в начале, а если заменяемая буква стоит в конце выводит пустоту.
-
Спасибо, всё ясно и понятно
-
Помогите кто-нибудь составить программу, на тему: Обработка строк. Вот текст задачи: Дан текст длиной 10 символов. Слова текста разделены пробелом. Сформировать новый текст, включив в него слова заданного и разделив их двумя пробелами. Зарание спасибо.
-
Помогите пожайлуста дописать программу которая: Вычисляет суммы элементов четных строк матрицы Вот недописанная программа: const n=7; var a: array [1..n,1..n] of integer ; i,j,s1,s2 : integer ; begin for i:=1 to n do begin for j:=1 to n do begin a[i,j] :=i*j; write(a[i,j]:5); end; writeln end; s1:=0;s2:=0; ? end; writeln (????); end. Зарание спасибо
-
Punisher, классные демы На заднем плане справа Чак Норис
-
Спасибо за помощь Lakers и TolkienDRR
-
Задача №1 Пример программы для заполнения массива из 20 элементов целыми случайными числами в диапазоне от 0 до 99. и сортировки элементов массива по возрастанию. Оформить вывод сортированного массива и отладить программу. Const n= 20 Var m :array [1..n] of integer ; I,j temp for i :=1 to n do :integer ; Begin Randomize ;{инициализация генератора случайных чисел} m :=random (100) ;{заполнение массива случай. числами в диапазоне от 0 до 99} {сортировка элементов массива } for i : = 1to n do for j:=i+ 1to n do if m>m[j] then begin temp :=m;m :=m[j];m[j]:=temp end Задача №2 Задан массив действительных чисел. Определить , сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций , в которых происходит смена знака. Буду очень благодарен за помощь.
-
Хотелось бы узнать, нормальный ли комп для требовательных игр: Проц AMD Athlon II x2 6000+ (3100 Mhz) Мать MSI K9A2 Neo-F (MS-7388) Видюха ATI Radeon HD 4730 Series (512 Mb) Винт Seagate Barracuda 250 Gb Память Hynix 2*1Gb DDR2 800 Mhz
-
бугор - горб
-
Что делать? Когда открываю RELOADED файл, вылазеет это: http://ulanovka.ru/uploads/old_images/users/12219/%D0%91%D0%B5%D0%B7%D1%8B%D0%BC%D1%8F%D0%BD%D0%BD%D1%8B%D0%B9.JPG
-
вместо ковчега но построил, бардель, где исполнялись последние желания...