|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите разобраться с 3-мя простыми задачами плиз
Нужно составить программы в delphi для решения следующих задач:
1- В тексте имеется одна точка с запятой. Подсчитать количество символов до точки с запятой и после нее. 2- Дан двумерный массив ращмером n*m, заполненный случайным образом из промежутка [-20, 20]. Поменять местами первый и последний столбцы. 3- Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение. Последний раз редактировалось ChosenUndead88, 13.12.2015 в 17:41. |
#2
|
||||
|
||||
1):
Код:
procedure TForm1.Button1Click(Sender: TObject); var s: string; b: integer; begin s:= Edit1.Text; b:= Pos(';', s); Label1.Caption:= 'Before: ' + IntToStr(b-1) + ', after: ' + IntToStr(Length(s)-b); end; Помогаю платно. Помогаю иногда бесплатно. |
#3
|
||||
|
||||
Код:
Const N = 10; M = 10; Var Arr: Array[1..N,1..M] of Integer; i, j, x: Integer; begin for i := 1 to N do begin for j := 1 to M do begin Arr[i,j] := -20 + Random(41); Write(Arr[i,j]:4); end; WriteLn; end; WriteLn; for i := 1 to N do begin x := Arr[i,1]; Arr[i,1] := Arr[i,M]; Arr[i,M] := x; end; for i := 1 to N do begin for j := 1 to M do Write(Arr[i,j]:4); WriteLn; end; ReadLn; end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |