Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.64
f_p_g
0 / 0 / 1
Регистрация: 11.05.2010
Сообщений: 1
#1

Запросить имя пользовавателя и напечатать "Привет Вася", 10 раз - Pascal

15.05.2010, 10:17. Просмотров 2220. Ответов 1
Метки нет (Все метки)

Необходимо преобразовать задачу так, что бы "Привет Вася" печаталось 10 раз, если Вася имя пользователя (используя цикл repeat).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program 1212    
uses crt;   
var 
name:string[20];    
i:integer;  
begin clrscr;   
write('Vvedite Vashe imia: '); readln(name);    
i:=1;   
repeat  
writeln(i,' ',name);    
i:=i+1; 
until i>10; 
readln; 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2010, 10:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Запросить имя пользовавателя и напечатать "Привет Вася", 10 раз (Pascal):

Выведет на экран фразу "всем привет" 80 раз в таблице из 20 строк по 4 столбца
Написать(в редакторе Паскаля) программу.которая выведет на экран фразу " всем...

Напишите программу " Всем привет!" 80 раз
Напишите программу " Всем привет!" 80 раз. В таблице из 20 строк и 4 столбца.

Дано слово "привет". Выводить так : привет ривет
Дано слово "привет". Выводить так : привет ...

С клавиатуры вводится строка "Фамилия Имя Отчество". Изменить вывод строки на "Имя Отчество Фамилия"
С клавиатуры вводится строка "Фамилия Имя Отчество". Изменить вывод строки на...

Даны две строки. Если они начинаются с одинаковых символов, то напечатать "ДА", иначе - "НЕТ"
Помоги те пожалуйста, решите сколько сможете. Задачи на строки. 6. Даны две...

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не...

1
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
15.05.2010, 10:24 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
  Crt;
var
  uname: string[20];
  i: byte;
begin
  ClrScr;
  Write('Name: ');
  ReadLn(uname);
  i := 1;
  if uname = 'Vasya' then
    repeat
      Writeln('Hello, ', uname);
      Inc(i);
    until
      i > 10
  else
    WriteLn('Chto-to-tam');
  ReadLn;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2010, 10:24
Привет! Вот еще темы с решениями:

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи",...

Шахматы: охарактеризовать положение белых с помощью слов: "мат", "шах", "пат", "обыкновенная позиция"
у белых на доске остался только король , у черных - король, слон, конь....

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа "О" вставлять пробел и подсчитывать количество букв "А"...

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru