Самостоятельная работа. Вариант 3.
Задание 1-2.
1. Пусть ѕt="klmn', x, fs - переменные строкового типа. Объявите эти переменные в разделе
описания переменных;
2. Запишите результат выполнения следующих функций:
delete(st.1.2)
б. Fs:=copy ( st.2.2)
а.
Задание 3.
Проанализируйте данный алгоритм и определите, что будет выведено на экран компьютера после
его выполнения:
Var S1, S2: string: i: integer;
Begin
S1:="водопроводчик";
52:= copy(S1.1.3)+'a':
For i:=1 to 13 do write (S1[i]);
Writeln(''S2):
End.
адание 4.
Дано слово, из которого требуется построить другие слова, используя процедуры и функции
обработки строк:
Слово: автоматический Новые слова: чеснок, мотив.
адание 5.
Составить программу, которая удалит, из введенного с клавиатуры текста, все гласные.
var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
end.
var
velichina_vklada, srok_vklada, godovaya_procentnaya_stavka: integer;
vklad_s_procentami: real;
vklad_s_procentami_rub, vklad_s_procentami_kop: integer;
dohod_rub, dohod_kop: integer;
begin
write('Величина вклада (р.) - ');
readln();
write('Срок вклада (дней) - ');
readln(srok_vklada);
write('Годовая процентная ставка (%) - ');
readln(godovaya_procentnaya_stavka);
vklad_s_procentami := velichina_vklada * ((real(100) + real(godovaya_procentnaya_stavka)*real(srok_vklada)/365)/100);
dohod_rub := (velichina_vklada - integer(vklad_s_procentami));
dohod_kop := (velichina_vklada*100 - integer(vklad_s_procentami*100)) mod 100;
vklad_s_procentami_rub := integer(vklad_s_procentami);
vklad_s_procentami_kop := integer((vklad_s_procentami*100)) mod 100;
writeln('Доход: ', dohod_rub,' р. ', dohod_kop, ' 80 коп.');
writeln('Сумма по окончании срока вклада: ', vklad_s_procentami_rub, ' р. ', vklad_s_procentami_kop, ' коп.');
end.