new hw + project

victoria.binkovskaya/10.1_task_writeln2_procedure.pas

@@ -0,0 +1,23 @@
+program task9_1;
+uses crt;
+
+procedure writeln2(st: String);
+	var 
+	i, l: Integer;
+
+	begin
+		l := Length(st);
+		for i := 1 to l do
+		begin
+			write(st[i]);
+			delay (50);
+		end;
+		writeln();
+	end;	
+
+begin	
+	writeln2('Have a nice day');
+	writeln2('Have a great day');
+	writeln2('Have a good mood');
+	readln();
+end.	

victoria.binkovskaya/10.2_task_array.pas

@@ -0,0 +1,61 @@
+program task9_2;
+
+var 
+	a: array [ 1..7 ] of Integer;
+	i: Integer;
+	// i, j, k, l, m, n, o: Integer;
+
+begin
+
+	for i := 1 to 7 do
+	begin
+		writeln('Enter number, please');
+		readln(a[i]);
+	end;
+
+	for i := 1 to 7 do 
+	begin
+		if (a[i] mod 2 = 0) then
+		begin
+			writeln (a[i]);
+		end;
+	end; 	
+	// writeln('Enter 1 number, please');
+	// readln(i);	
+	// writeln('Enter 2 number, please');
+	// readln(j);
+	// writeln('Enter 3 number, please');
+	// readln(k);
+	// writeln('Enter 4 number, please');
+	// readln(l);
+	// writeln('Enter 5 number, please');
+	// readln(m);
+	// writeln('Enter 6 number, please');
+	// readln(n);
+	// writeln('Enter 7 number, please');
+	// readln(o);
+
+	// if (i mod 2) = 0 then
+	// 	writeln(i);
+
+	// if (j mod 2) = 0 then
+	// 	writeln(j);
+
+	// if (k mod 2) = 0 then
+	// 	writeln(k);
+
+	// if (l mod 2) = 0 then
+	// 	writeln(l);
+
+	// if (m mod 2) = 0 then
+	// 	writeln(m);
+
+	// if (n mod 2) = 0 then
+	// 	writeln(n);
+
+	// if (o mod 2) = 0 then
+	// 	writeln(o);						
+
+
+	readln();
+end.	

victoria.binkovskaya/10.3_task_array.pas

@@ -0,0 +1,18 @@
+program task9_3;
+uses crt;
+
+var 
+	st: array [ 1..256 ] of Char;
+	i, l: Integer;
+
+begin	
+	st := 'Have a nice day';
+	l := Length(st);
+	for i := 1 to l do
+	begin
+		write(st[i]);
+		delay (50);
+	end;
+
+	readln();
+end.	

victoria.binkovskaya/10.5_task_double_string.pas

@@ -0,0 +1,53 @@
+program task9_5;
+uses crt;
+
+var 
+	st: String;
+	// newSt: String;
+    i, count: Integer;
+
+begin	
+	writeln('Enter the line, please');
+	readln(st);
+
+	for i := 1 to length(st) do
+	begin
+	  	write(st[i]);
+	  	write(st[i]);
+  	end;
+
+  	writeln();
+
+  	// _________else_variants________
+
+	// newSt := '';
+	// for i := 1 to length(st) do
+	// begin
+	//       newSt := newSt + st[i] + st[i];
+	// end;
+	// writeln(newSt);
+
+	// i := 1;
+	// repeat
+	// begin
+	// 	insert(st[i], st, i);
+	// 	inc(i, 2);
+	// end;	
+	// until i > length(st);
+
+	// ______end_of_else_variants_____
+
+	count := 0;
+
+	for i := 1 to length(st) do
+	begin
+	  	if st[i] = 'a' then 
+	  	begin
+	  		count := count + 1;
+	  	end;
+  	end;	
+
+	writeln('Quantity of letters "a": ', count);
+	readln();
+
+end.	

victoria.binkovskaya/10.6_task_double_string_procedure_function.pas

@@ -0,0 +1,50 @@
+program task10_6;
+uses crt;
+
+var 
+	str: String;
+	count: Integer;
+
+procedure writeDouble(st: String); 
+	var
+		i: Integer;
+
+	begin  
+		for i := 1 to length(st) do
+		begin
+		  	write(st[i]);
+		  	write(st[i]);
+	  	end;
+  	writeln();
+  	end; 
+
+function FindLetter(st: String): Integer;
+	var
+		i: Integer;
+
+	begin
+	    count := 0;
+
+		for i := 1 to length(st) do
+		begin
+		  	if (st[i] = 'a') then 
+		  	begin
+		  		count := count + 1;
+		  	end;
+	    end; 
+	    FindLetter := count;
+	end;       
+
+begin	
+	writeln('Enter the sentence, please');
+
+	readln(str);
+
+    writeln('Result:');
+	writeDouble(str); 
+
+	writeln('Result:');
+	writeln('Quantity of letters "a": ', FindLetter(str));
+
+	readln();
+end.	

victoria.binkovskaya/11.1_task_word.pas

@@ -0,0 +1,31 @@
+program cw_25_08;
+
+var
+	st, word, indent: String;
+	i, leng: Integer;
+
+begin
+	writeln('Enter the line, please');
+	readln(st);
+
+	leng := length(st);
+	word := '';
+	indent := ' ';
+
+	for i := 1 to leng do
+	begin
+		if st[i] <> indent then
+		begin
+			word :=  word + st[i];
+		end
+		else
+		begin
+			writeln(word);
+			word := '';
+		end;
+	end;
+	writeln(word);
+	word := '';
+	readln();
+end.	
+

victoria.binkovskaya/11.2_task_word.pas

@@ -0,0 +1,32 @@
+program cw_25_08;
+
+var
+	st, word: String;
+	i, leng, osi: Integer;
+
+begin
+	writeln('Enter the line, please');
+	readln(st);
+
+	leng := length(st);
+	word := '';
+
+	for i := 1 to leng do
+	begin
+		osi := Ord(st[i]);
+
+		if ((osi >= 65) and (osi <= 90)) or ((osi >= 97) and (osi <= 122)) then
+		begin
+			word := word + st[i];
+		end
+		else
+		begin
+			writeln(word);
+			word := '';
+		end;
+	end;
+	writeln(word);
+	word := '';
+	readln();
+end.	
+

victoria.binkovskaya/11.3_task_low_mid_high.pas

@@ -0,0 +1,48 @@
+program cw_25_08;
+
+var
+	a: array[1..10] of Integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
+	search: Integer; // искомое
+	index: Integer; 
+	low, high, mid: Integer;
+
+begin
+	writeln('Enter the searching number');
+	readln(search);
+
+	low := 1;
+	high := length(a);
+
+	index := -1;
+
+	while low <= high do	
+	begin
+		mid := (low + high) div 2;
+
+		if a[mid] = search then
+		begin
+			//writeln('found at index ', mid);
+			index := mid;
+			break;
+		end;
+
+		if a[mid] > search then	
+		begin
+			high := mid - 1;
+		end
+		else 
+		begin
+			low := mid + 1;
+		end;
+	end;	
+
+	if index = -1 then
+	begin
+		writeln('not found');
+	end
+	else
+	begin
+		writeln('found at index ', index);
+	end;
+	readln();
+end.		

victoria.binkovskaya/12.1_task_hello_file.pas

@@ -0,0 +1,30 @@
+program task_11_1;
+uses sysutils;
+
+var
+	f: TexTFile;
+	n: Integer;
+
+begin
+	Assign(f, '11.1_task_hello_file.txt');
+	// Rewrite(f); // создать новый / перезаписать старый
+	Reset(f); // только для чтения
+	// Append(f); // дописать в конец
+	// write(f, 'Make up your mind! ');
+	while not eof(f) do
+	begin
+		read(f, n);
+		write(n, ' ');
+
+		if eoln(f) then
+		begin
+			writeln();
+		end;	
+	end;	
+
+	// eof(f) // End of file
+	// eoln(f) // End of line
+
+	Close(f); // обязательно закрыть файл перед выходом с программы
+	readln();
+end.		

victoria.binkovskaya/12.1_task_hello_file.txt

@@ -0,0 +1,4 @@
+12 13 14
+35 36 37
+44 45 46
+10 11 12