Написать программу которая по номеру дня недели выдаст название дня и количество уроков в вашем классе .в паскале .ps уроков у нас 6 каждый день .кроме среды. в среду 7 уроков
Пронумеруем дни недели числами от 0 до 6 (0-Вс, 1-Пн, .. 6-Сб).
var dow:0..6; begin Write('Введите номер дня недели (0-Вс, 6-сб): '); Read(dow); case dow of 0:Writeln('Воскресенье, выходной'); 1:Writeln('Понедельник, 6 уроков'); 2:Writeln('Вторник, 6 уроков'); 3:Writeln('Среда, 7 уроков'); 4:Writeln('Четверг, 6 уроков'); 5:Writeln('Пятница, 6 уроков'); 6:Writeln('Суббота, 6 уроков'); else Writeln('Введено неверное значение') end end.
Тестовое решение: Введите номер дня недели (0-Вс, 6-сб): 5 Пятница, 6 уроков
Program al; Var x: integer; BEGIN Repeat Write('VVedite cislo ot 1 äî 7: '); Readln(x); until x in [1..7]; Case x of 1: Writeln('Ponidelnik-6urokov'); 2: writeln('Vtornik-6erokov'); 3: writeln('Sreda-7urokov'); 4: writeln('Cetverg-6urokov'); 5: writeln('Piatnita-6urokov'); 6: writeln('Subbota-6urokov'); 7: writeln('Voskresenie-vihadnoy'); end; Readln END.
//Вот программа, которая кодирует слова в системах счисления от 2 до 10 //Первый ввод - число, второй - система счисления //Pascal ABC.NET v3.0
var a,i,b,r,n,j,bug:integer; s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string); begin repeat b:=a mod n; a:=a div n; str(b,se); s+=se; until (a<=n-1); end;
begin readln(slo); readln(n); for j:=1 to length(slo) do begin; a:=ord(slo[j]); preob(a,b,n,se); str(a,se); s+=se; for i:=1 to length(s) div 2 do begin; se:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=se[1]; end; write(s,'-'); slof:=slof+s; delete(s,1,length(s)); end; end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
var
dow:0..6;
begin
Write('Введите номер дня недели (0-Вс, 6-сб): ');
Read(dow);
case dow of
0:Writeln('Воскресенье, выходной');
1:Writeln('Понедельник, 6 уроков');
2:Writeln('Вторник, 6 уроков');
3:Writeln('Среда, 7 уроков');
4:Writeln('Четверг, 6 уроков');
5:Writeln('Пятница, 6 уроков');
6:Writeln('Суббота, 6 уроков');
else Writeln('Введено неверное значение')
end
end.
Тестовое решение:
Введите номер дня недели (0-Вс, 6-сб): 5
Пятница, 6 уроков