составьте программу написания своего имени на экране в строчку сто раз!
-
Var x: string;
i:integer;
begin write (‘Введите имя: ‘);
readln (x);
for i:=1 to 100 do write (x,’ ‘);
end.
- Комментировать
- Жалоба
- Ссылка
-
-
Злата
20 февраля, 07:05
0
составьте программу написания своего имени на экране в одну строчку
Написать имя Злата
- Комментировать
- Жалоба
- Ссылка
Найди верный ответ на вопрос ✅ «составьте программу написания своего имени на экране в строчку сто раз! …» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Новые вопросы по информатике
Главная » Информатика » составьте программу написания своего имени на экране в строчку сто раз!
program Project1;
uses crt;
const
t ='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
my_font: array [1..26] of array [0..4] of string[11] =
((' *** ',' ** ** ',' ** ** ',' ********* ','** **'),
('***** ','** * ','****** ','** * ','****** '),
(' ***** ','** * ','** ','** * ',' ***** '),
('******* ','** ** ','** * ','** ** ','******* '),
('******* ','** ','***** ','** ','******* '),
('******* ','** ','***** ','** ','** '),
(' ***** ','** ','** ** ','** * ',' ***** '),
('** ** ','** ** ','********* ','** ** ','** ** '),
(' **** ',' ** ',' ** ',' ** ',' **** '),
(' **** ',' ** ',' ** ',' * ** ',' *** '),
('** ** ','** ** ','**** ','** ** ','** ** '),
('** ','** ','** ','** ','******* '),
('*** ***','** * * **','** * * **','** * **','** **'),
('*** ** ','** ** ** ','** ** ** ','** ** ** ','** *** '),
(' ***** ','** **','** **','** **',' ***** '),
('***** ','** * ','***** ','** ','** '),
(' ***** ','** **','** **','** * **',' ***** '),
('***** ','** * ','***** ','** ** ','** ** '),
(' **** ',' ** * ',' ** ','* ** ',' **** '),
('******** ',' ** ',' ** ',' ** ',' ** '),
('** **','** **','** **',' ** ** ',' ***** '),
('** **',' ** ** ',' ** ** ',' ** ** ',' *** '),
('** **','** **','** * **',' ** * ** ',' * * '),
('** ** ',' ** ** ',' *** ',' ** ** ','** ** '),
('** ** ',' ** ** ',' **** ',' ** ',' ** '),
('******* ',' ** ',' ** ',' ** ','******* '));
var
name_, temp_:string;
i, y, x, n_str, last_char, l_scr:integer;
begin
while name_<>'exit' do
begin
writeln('vvedite imya');
readln(name_);
temp_:='';
writeln;
l_scr:=6;
last_char:=l_scr;
for n_str:= 0 to Length(name_) div l_scr do
begin
if n_str = Length(name_) div l_scr then
last_char:= Length(name_) mod l_scr ;
for x:=0 to 4 do
begin
for i:=1 to last_char do
begin
y:=pos(name_[i+(n_str*l_scr)],t);
if y>26 then
y:=y-26;
if y>0 then
temp_:=temp_+my_font[y,x]+' '
else
temp_:=temp_+' ';
end;
writeln(temp_);
temp_:='';
end;
writeln;
writeln('---------------------------------');
writeln;
end;
end;
end.
Вася Иванов
Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
uses crt; type bk=array[1..8,1..7] of char; const b=5; imya:array[1..b] of bk=((('*','*','*','*','*','*','*'), ('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*','*','*','*','*','*','*'), ('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*','*','*','*','*','*','*')), (('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*','*',' ',' ',' ',' ',' '), ('*',' ','*',' ',' ',' ',' '), ('*',' ',' ','*',' ',' ',' '), ('*',' ',' ',' ','*',' ',' '), ('*',' ',' ',' ',' ','*',' '), ('*',' ',' ',' ',' ',' ','*')), (('*','*','*','*','*','*','*'), ('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*','*','*','*','*','*','*'), ('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*','*','*','*','*','*','*')), (('*',' ',' ',' ',' ',' ','*'), ('*',' ',' ',' ',' ',' ','*'), ('*',' ',' ',' ',' ',' ','*'), ('*','*','*','*','*','*','*'), ('*',' ',' ',' ',' ',' ','*'), ('*',' ',' ',' ',' ',' ','*'), ('*',' ',' ',' ',' ',' ','*'), ('*',' ',' ',' ',' ',' ','*')), (('*',' ',' ',' ',' ',' ',' '), ('*',' ',' ',' ',' ',' ',' '), ('*','*',' ',' ',' ',' ',' '), ('*',' ','*',' ',' ',' ',' '), ('*',' ',' ','*',' ',' ',' '), ('*','*','*','*','*',' ',' '), ('*',' ',' ',' ',' ','*',' '), ('*',' ',' ',' ',' ',' ','*'))); var i,j,w,k:byte; begin w:=(80-b*9) div 2; for i:=1 to b do for j:=1 to 8 do begin gotoXY(w+9*(i-1),8+j); for k:=1 to 7 do write(imya[i][j,k]); end; end. |
10
составьте программу написания своего имени на экране в строчку сто раз!!
1 ответ:
0
0
Var x: string;
i:integer;
begin write(‘Введите имя: ‘);
readln(x);
for i:=1 to 100 do write(x,’ ‘);
<span>end.</span>
Читайте также
Const n=10;
var
a: array[1..n] of integer;
p,k: integer;
i: byte;
begin
randomize;
p:=1; k:=0;
for i:=1 to n do begin
a[i]:=random(21);
if (a[i]>0) and (a[i] mod 6 =0) then begin
p:=p*a[i];
k:=k+1;
end;
end;
println (a);
if k>1 then writeln (‘Произведение элементов, кратных 6, = ‘,p)
else if k=1 then writeln (‘Найден всего 1 элемент, кратный 6, — ‘,p)
else writeln (‘Нет элементов, кратных 6’)
end.
————————————
Примеры:
15 7 14 14 1 17 4 2 20 10
Нет элементов, кратных 6
12 11 16 1 20 6 0 8 7 20
Произведение элементов, кратных 6, = 72
14 6 8 3 15 7 14 5 19 15
Найден всего 1 элемент, кратный 6, — 6
1/32 ТБ = 32 ГБ = 32768 МБ = 33554432 КБ
mas = float(input(‘Введите вашу массу в кг: ‘)) #ввод массы
mas_on_Moon = mas * 0.165 #умножение на 16.5 процента
print(«Ваш вес на Луне составляет » + str(mas_on_Moon) + » кг»)
for i in range(15):
mas += 1 # увеличивание массы на 1
mas_on_Moon = mas * 0.165
print(str(i+1) + «) Масса на Земле = » + str(mas) + » кг | Масса на Луне = » + str(mas_on_Moon) + » кг»)
Объяснение:
Обычная не новогодняя елочка без звезды =) Нужна звезда?
SCREEN 9
FOR b = 0 TO 4
y = y + 30
h = h + 10
LINE (200, 70 + y)-(200 — h, 100 + y), 2
LINE (200, 70 + y)-(200 + h, 100 + y), 2
LINE (200 — h, 100 + y)-(200 + h, 100 + y), 2
PAINT (200, 75 + y), 2
NEXT b
LINE (190, 101 + y)-(210, 130 + y), 4, BF
Инфо заложенная в ДНК человека равна 1=2N=10 в десятой степени. Это предел запаса в ДНК человека